Mercurial > octave
view test/return.tst @ 20249: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 | 4197fc428c7d |
children | bac0d6f07a3e |
line wrap: on
line source
## Copyright (C) 2006-2015 John W. Eaton ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. %!function y = f () %! y = 1; %! return; %! y = 2; %!endfunction %! %!assert (f (), 1) %!test %! return;