Mercurial > octave

annotate scripts/gui/getpixelposition.m @ 31191:bb9d776eafac stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix wrong color in PDF printout of some latex strings (bug #62884) * octave-svgconvert (draw): For "rect" elements only set brush color if necessary and eventually restore to previous color.
author Pantxo Diribarne <pantxo.diribarne@gmail.com>
date Sun, 14 Aug 2022 18:24:07 +0200
parents 796f54d4ddbf
children 597f3ee61a48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28331
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
1 ########################################################################
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
2 ##
30564
796f54d4ddbf update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 29359
diff changeset
3 ## Copyright (C) 2020-2022 The Octave Project Developers
28331
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
4 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
5 ## See the file COPYRIGHT.md in the top-level directory of this
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
6 ## distribution or <https://octave.org/copyright/>.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
7 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
8 ## This file is part of Octave.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
9 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
10 ## Octave is free software: you can redistribute it and/or modify it
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
11 ## under the terms of the GNU General Public License as published by
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
12 ## the Free Software Foundation, either version 3 of the License, or
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
13 ## (at your option) any later version.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
14 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
15 ## Octave is distributed in the hope that it will be useful, but
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
18 ## GNU General Public License for more details.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
19 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
20 ## You should have received a copy of the GNU General Public License
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
21 ## along with Octave; see the file COPYING. If not, see
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
22 ## <https://www.gnu.org/licenses/>.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
23 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
24 ########################################################################
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
25
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
26 ## -*- texinfo -*-
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
27 ## @deftypefn {} {@var{pos} =} getpixelposition (@var{h})
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
28 ## @deftypefnx {} {@var{pos} =} getpixelposition (@var{h}, @var{rel_to_fig})
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
29 ## Return the position of a user interface component in pixel units.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
30 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
31 ## The first argument @var{h} must be a handle to a valid graphics object of
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
32 ## type uibuttongroup, uicontrol, uipanel, uitable, axes, or figure. For other
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
33 ## object types, the function returns zeros.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
34 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
35 ## By default, the position is returned relative to the object's parent.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
36 ## If the second argument @var{rel_to_fig} is logically true, the position
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
37 ## is computed relative to the enclosing figure object.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
38 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
39 ## The return value @var{pos} is a 4-element vector with values
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
40 ## @code{[ lower_left_X, lower_left_Y, width, height ]}.
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
41 ##
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
42 ## @seealso{get}
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
43 ## @end deftypefn
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
44
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
45 function pos = getpixelposition (h, rel_to_fig = false)
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
46
28789
28de41192f3c Eliminate unneeded verification of nargin, nargout in m-files.
Rik <rik@octave.org>
parents: 28331
diff changeset
47 if (nargin < 1)
28331
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
48 print_usage ();
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
49 endif
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
50
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
51 if (! isscalar (h) || ! ishghandle (h))
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
52 error ("getpixelposition: H must be a scalar graphics handle");
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
53 endif
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
54
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
55 if (! any (strcmp (get (h, "type"), {"uibuttongroup", "uicontrol", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
56 "uitable", "uipanel", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
57 "axes", "figure"})))
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
58 pos = zeros (1, 4);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
59 return;
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
60 endif
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
61
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
62 pos = __get_position__ (h, "pixels");
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
63
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
64 if (rel_to_fig)
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
65 while (! isfigure (h))
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
66 h = get (h, "parent");
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
67 pos(1:2) += __get_position__ (h, "pixels")(1:2);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
68 endwhile
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
69 endif
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
70
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
71 endfunction
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
72
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
73
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
74 %!demo
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
75 %! clf ();
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
76 %! hax = axes ("position", [0.25 0.25 0.5 0.5])
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
77 %! pos = getpixelposition (hax);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
78 %! han = annotation ("rectangle");
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
79 %! set (han, "units", "pixels", "position", pos, "color", "r")
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
80
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
81 %!demo
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
82 %! hf = clf ();
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
83 %! hbg = uibuttongroup (hf, "position", [0.2 0.7 0.2 0.2]);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
84 %! hb1 = uicontrol (hbg, "style", "radiobutton", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
85 %! "string", "Choice 1", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
86 %! "units", "normalized", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
87 %! "position", [0.01 0.5 0.98 0.5]);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
88 %! hb2 = uicontrol (hbg, "style", "radiobutton", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
89 %! "string", "Choice 2", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
90 %! "units", "normalized", ...
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
91 %! "position", [0.01 0 0.98 0.5]);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
92 %! pos = getpixelposition (hbg);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
93 %! han = annotation ("rectangle");
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
94 %! set (han, "units", "pixels", "position", pos, "color", "r")
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
95
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
96
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
97 %!test
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
98 %! pos = [0 0 400 400];
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
99 %! hf = figure ("visible", "off", "menubar", "none", "position", pos);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
100 %! unwind_protect
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
101 %! hp = uipanel (hf, "position", [0.5 0.5 0.5 0.5]);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
102 %! hax = axes (hp, "position", [0.5 0.5 0.5 0.5]);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
103 %! assert (getpixelposition (hax), [100 100 100 100], 2);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
104 %! assert (getpixelposition (hax, true), [300 300 100 100], 2);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
105 %! unwind_protect_cleanup
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
106 %! close (hf);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
107 %! end_unwind_protect
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
108
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
109 %!test
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
110 %! ## Compatibility: return zeros for root figure
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
111 %! assert (getpixelposition (groot), zeros (1, 4));
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
112
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
113 %!test
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
114 %! ## Compatibility: return the same for figures regardless of rel_to_fig
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
115 %! hf = figure ("visible", "off");
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
116 %! unwind_protect
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
117 %! assert (getpixelposition (hf), getpixelposition (hf, true));
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
118 %! unwind_protect_cleanup
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
119 %! close (hf);
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
120 %! end_unwind_protect
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
121
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
122 ## Test input validation
28886
d8318c12d903 test: remove unnecessary BIST tests in m-files checking for excessive number of inputs.
Rik <rik@octave.org>
parents: 28789
diff changeset
123 %!error <Invalid call> getpixelposition ()
28331
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
124 %!error <H must be a scalar> getpixelposition ([1, 2])
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
125 %!error <H must be a .* graphics handle> getpixelposition (-1)
be3dab3212e9 getpixelposition.m: Implement new function (bug #58181)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
diff changeset
126