Mercurial > octave-nkf
comparison scripts/plot/util/ginput.m @ 20284:b93a155dc200
ginput.m: Stop feval error when ginput called multiple times (bug #45261).
* ginput.m: Restore the original closereq function for the figure at the end of
a normal termination of ginput.
| author | Rik <rik@octave.org> |
|---|---|
| date | Sat, 06 Jun 2015 08:26:21 -0700 |
| parents | 2283dd03bf50 |
| children |
comparison
equal
deleted
inserted
replaced
| 20283:011a364b4d78 | 20284:b93a155dc200 |
|---|---|
| 100 unwind_protect_cleanup | 100 unwind_protect_cleanup |
| 101 if (isfigure (fig)) | 101 if (isfigure (fig)) |
| 102 ## Only execute if window still exists | 102 ## Only execute if window still exists |
| 103 set (fig, "windowbuttondownfcn", orig_windowbuttondownfcn); | 103 set (fig, "windowbuttondownfcn", orig_windowbuttondownfcn); |
| 104 set (fig, "keypressfcn", orig_keypressfcn); | 104 set (fig, "keypressfcn", orig_keypressfcn); |
| 105 set (fig, "closerequestfcn", orig_closerequestfcn); | |
| 105 endif | 106 endif |
| 106 end_unwind_protect | 107 end_unwind_protect |
| 107 | 108 |
| 108 varargout = {x, y, button}; | 109 varargout = {x, y, button}; |
| 109 | 110 |