Mercurial > octave-nkf
annotate scripts/plot/util/isfigure.m @ 20602:af5591ef9790 stable
__gnuplot_drawnow__.m: Use "screenpixelsperinch" instead of constant value (bug #46122).
author | ederag <edera@gmx.fr> |
---|---|
date | Tue, 06 Oct 2015 11:07:10 +0200 |
parents | 777f26aa8e3e |
children |
rev | line source |
---|---|
19731
4197fc428c7d
maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
1 ## Copyright (C) 2005-2015 John W. Eaton |
6257 | 2 ## |
3 ## This file is part of Octave. | |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
6 ## under the terms of the GNU General Public License as published by | |
7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
8 ## your option) any later version. | |
6257 | 9 ## |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
14 ## | |
15 ## You should have received a copy of the GNU General Public License | |
7016 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
6257 | 18 |
19 ## -*- texinfo -*- | |
20 ## @deftypefn {Function File} {} isfigure (@var{h}) | |
17094
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
21 ## Return true if @var{h} is a figure graphics handle and false otherwise. |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
22 ## |
20208
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
23 ## If @var{h} is a matrix then return a logical array which is true where the |
777f26aa8e3e
doc: Update more docstrings to have one sentence summary as first line.
Rik <rik@octave.org>
parents:
19731
diff
changeset
|
24 ## elements of @var{h} are figure graphics handles and false where they are not. |
17123
bcada0a4f8a7
isaxes.m: New function to determine if object is axes handle.
Rik <rik@octave.org>
parents:
17094
diff
changeset
|
25 ## @seealso{isaxes, ishandle} |
6257 | 26 ## @end deftypefn |
27 | |
28 ## Author: jwe | |
29 | |
30 function retval = isfigure (h) | |
31 | |
17094
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
32 if (nargin != 1) |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
33 print_usage (); |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
34 endif |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
35 |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
36 hlist = ishandle (h); |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
37 if (any (hlist)) |
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
38 retval(hlist) = strcmp (get (h(hlist), "type"), "figure"); |
6257 | 39 else |
17094
60228ef13f20
isfigure.m: Expand to allow matrix inputs and return a logical array.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
40 retval = hlist; |
6257 | 41 endif |
42 | |
43 endfunction | |
13123
6efa1a691713
Add further tests for scripts/plot.
Kai Habel <kai.habel@gmx.de>
parents:
11523
diff
changeset
|
44 |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
45 |
13123
6efa1a691713
Add further tests for scripts/plot.
Kai Habel <kai.habel@gmx.de>
parents:
11523
diff
changeset
|
46 %!test |
13124
2ea1658ad049
Don't use explicit figure number for tests to avoid interference with any figures opened by user.
Kai Habel <kai.habel@gmx.de>
parents:
13123
diff
changeset
|
47 %! hf = figure ("visible", "off"); |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13124
diff
changeset
|
48 %! unwind_protect |
13124
2ea1658ad049
Don't use explicit figure number for tests to avoid interference with any figures opened by user.
Kai Habel <kai.habel@gmx.de>
parents:
13123
diff
changeset
|
49 %! assert (isfigure (hf)); |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
50 %! assert (! isfigure (-hf)); |
13123
6efa1a691713
Add further tests for scripts/plot.
Kai Habel <kai.habel@gmx.de>
parents:
11523
diff
changeset
|
51 %! unwind_protect_cleanup |
6efa1a691713
Add further tests for scripts/plot.
Kai Habel <kai.habel@gmx.de>
parents:
11523
diff
changeset
|
52 %! close (hf); |
6efa1a691713
Add further tests for scripts/plot.
Kai Habel <kai.habel@gmx.de>
parents:
11523
diff
changeset
|
53 %! end_unwind_protect |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
54 |