Mercurial > octave
annotate scripts/plot/util/clf.m @ 31593:0f93c3a756f7 stable
doc: grammarcheck documentation ahead of 8.1 release.
* interpreter.cc, load-path.cc, warning_ids.m, __memoize__.m,
print.m: grammarcheck documentation ahead of 8.1 release.
author | Rik <rik@octave.org> |
---|---|
date | Tue, 29 Nov 2022 15:58:49 -0800 |
parents | 796f54d4ddbf |
children | 597f3ee61a48 |
rev | line source |
---|---|
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
1 ######################################################################## |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
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) 2005-2022 The Octave Project Developers |
27918
b442ec6dda5c
use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents:
27898
diff
changeset
|
4 ## |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
5 ## See the file COPYRIGHT.md in the top-level directory of this |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
6 ## distribution or <https://octave.org/copyright/>. |
5597 | 7 ## |
8 ## This file is part of Octave. | |
9 ## | |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23270
diff
changeset
|
10 ## Octave is free software: you can redistribute it and/or modify it |
5597 | 11 ## under the terms of the GNU General Public License as published by |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23270
diff
changeset
|
12 ## the Free Software Foundation, either version 3 of the License, or |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
13 ## (at your option) any later version. |
5597 | 14 ## |
15 ## Octave is distributed in the hope that it will be useful, but | |
16 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
22755
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
17 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3a2b891d0b33
maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents:
22323
diff
changeset
|
18 ## GNU General Public License for more details. |
5597 | 19 ## |
20 ## You should have received a copy of the GNU General Public License | |
7016 | 21 ## along with Octave; see the file COPYING. If not, see |
24534
194eb4bd202b
maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents:
23270
diff
changeset
|
22 ## <https://www.gnu.org/licenses/>. |
27923
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
23 ## |
bd51beb6205e
update formatting of copyright notices
John W. Eaton <jwe@octave.org>
parents:
27919
diff
changeset
|
24 ######################################################################## |
5597 | 25 |
26 ## -*- texinfo -*- | |
20852
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
27 ## @deftypefn {} {} clf |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
28 ## @deftypefnx {} {} clf reset |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
29 ## @deftypefnx {} {} clf (@var{hfig}) |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
30 ## @deftypefnx {} {} clf (@var{hfig}, "reset") |
516bb87ea72e
2015 Code Sprint: remove class of function from docstring for all m-files.
Rik <rik@octave.org>
parents:
19833
diff
changeset
|
31 ## @deftypefnx {} {@var{h} =} clf (@dots{}) |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
32 ## Clear the current figure window. |
19593
446c46af4b42
strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
33 ## |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
34 ## @code{clf} operates by deleting child graphics objects with visible |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
35 ## handles (HandleVisibility = @qcode{"on"}). |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
36 ## |
17281
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
37 ## If the optional argument @qcode{"reset"} is specified, delete all child |
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
38 ## objects including those with hidden handles and reset all figure |
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
39 ## properties to their defaults. However, the following properties are not |
bc924baa2c4e
doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents:
17122
diff
changeset
|
40 ## reset: Position, Units, PaperPosition, PaperUnits. |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
41 ## |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
42 ## If the first argument @var{hfig} is a figure handle, then operate on |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
43 ## this figure rather than the current figure returned by @code{gcf}. |
19593
446c46af4b42
strip trailing whitespace from most source files
John W. Eaton <jwe@octave.org>
parents:
17744
diff
changeset
|
44 ## |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
13316
diff
changeset
|
45 ## The optional return value @var{h} is the graphics handle of the figure |
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
13316
diff
changeset
|
46 ## window that was cleared. |
17443
0aa77acf22f5
doc: Add seealso references between cla, clf, reset functions.
Rik <rik@octave.org>
parents:
17281
diff
changeset
|
47 ## @seealso{cla, close, delete, reset} |
5597 | 48 ## @end deftypefn |
49 | |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
50 function h = clf (varargin) |
5597 | 51 |
8250
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
52 if (nargin > 2) |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
53 print_usage (); |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
54 elseif (nargin == 0) |
28892
3cac3ceb9629
maint: Use coding style with parentheses after function name to distinguish from a variable.
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
55 hfig = gcf (); |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
56 do_reset = false; |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
57 elseif (nargin == 1) |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
58 if (isscalar (varargin{1}) && isfigure (varargin{1})) |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
59 hfig = varargin{1}; |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
60 do_reset = false; |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
61 elseif (ischar (varargin{1}) && strcmpi (varargin{1}, "reset")) |
28892
3cac3ceb9629
maint: Use coding style with parentheses after function name to distinguish from a variable.
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
62 hfig = gcf (); |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
63 do_reset = true; |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
64 else |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
65 print_usage (); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
66 endif |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
67 else |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
68 if (isscalar (varargin{1}) && isfigure (varargin{1}) |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
69 && ischar (varargin{2}) && strcmpi (varargin{2}, "reset")) |
8250
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
70 hfig = varargin{1}; |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
71 do_reset = true; |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
72 else |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
73 print_usage (); |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
74 endif |
8610
85c9906abfd1
use endif and endfor instead of end
John W. Eaton <jwe@octave.org>
parents:
8250
diff
changeset
|
75 endif |
8250
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
76 |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
77 if (do_reset) |
25878
bb4af245dff7
Use uimenu objects for default menus in Qt toolkit
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
25231
diff
changeset
|
78 ## Delete all the children, including the ones with hidden handles, |
26869
992f55ef87f5
Use an uitoolbar and ui*tools to build the default figure toolbar (bug #55795)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
26376
diff
changeset
|
79 ## except default menus and toolbar. |
26911
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
80 |
25878
bb4af245dff7
Use uimenu objects for default menus in Qt toolkit
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
25231
diff
changeset
|
81 kids = allchild (hfig); |
26911
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
82 |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
83 if (! isempty (kids)) |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
84 tags = get (kids, "tag"); |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
85 ## It's possible for a figure to have just one child and then get |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
86 ## will return a single value instead of a cell array. |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
87 if (! iscell (tags)) |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
88 tags = {tags}; |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
89 endif |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
90 ismenu = cellfun (@(s) strncmp (s, "__default_menu_", 15), tags); |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
91 istoolbar = cellfun (@(s) strncmp (s, "__default_toolbar_menu_", 18), tags); |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
92 delete (kids(! ismenu & ! istoolbar)); |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
93 endif |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
94 |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
95 reset (hfig); |
25888
6109f302cf43
Fix regression with "menubar" figure property handling (bug #54678)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
25878
diff
changeset
|
96 |
26911
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
97 if (! isempty (kids)) |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
98 ## Recover figure listeners which have been deleted |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
99 __add_default_menu__ (hfig, kids(ismenu), kids(istoolbar)); |
ae9f8906e2cb
avoid possible cellfun and indexing errors in clf (bug #55921)
John W. Eaton <jwe@octave.org>
parents:
26869
diff
changeset
|
100 endif |
25948
700b3f415ebe
maint: Strip trailing whitespace from source files.
John W. Eaton <jwe@octave.org>
parents:
25888
diff
changeset
|
101 |
23270
79122fab82ee
Restore all figure settings after clf ("reset") (bug #50527).
Rik <rik@octave.org>
parents:
23220
diff
changeset
|
102 __set_default_mouse_modes__ (hfig); |
8250
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
103 else |
8a2559a1aefa
clf.m: Improve Matlab compatibility.
Ben Abbott <bpabbott@mac.com>
parents:
7017
diff
changeset
|
104 ## Select only the chilren with visible handles. |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
105 delete (get (hfig, "children")); |
19833
9fc020886ae9
maint: Clean up m-files to follow Octave coding conventions.
Rik <rik@octave.org>
parents:
19741
diff
changeset
|
106 |
19741
b8e4104a8f55
Add the annotation function (bug #43282)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
19697
diff
changeset
|
107 ## Also delete the annotation axes |
b8e4104a8f55
Add the annotation function (bug #43282)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
19697
diff
changeset
|
108 hover = findall (hfig, "-depth", 1, "tag", "scribeoverlay"); |
b8e4104a8f55
Add the annotation function (bug #43282)
Pantxo Diribarne <pantxo.diribarne@gmail.com>
parents:
19697
diff
changeset
|
109 delete (hover); |
6257 | 110 endif |
5597 | 111 |
13313 | 112 if (nargout > 0) |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
113 h = hfig; |
13313 | 114 endif |
115 | |
5597 | 116 endfunction |
13096 | 117 |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
13316
diff
changeset
|
118 |
13096 | 119 %!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:
13111
diff
changeset
|
120 %! 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
|
121 %! unwind_protect |
28892
3cac3ceb9629
maint: Use coding style with parentheses after function name to distinguish from a variable.
Rik <rik@octave.org>
parents:
27923
diff
changeset
|
122 %! l = line (); |
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
123 %! assert (! isempty (get (gcf, "children"))); |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
124 %! clf; |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
125 %! assert (isempty (get (gcf, "children"))); |
13111
ebb42fb2da04
Various fixes for tests in scripts/plot
Kai Habel <kai.habel@gmx.de>
parents:
13096
diff
changeset
|
126 %! unwind_protect_cleanup |
ebb42fb2da04
Various fixes for tests in scripts/plot
Kai Habel <kai.habel@gmx.de>
parents:
13096
diff
changeset
|
127 %! close (hf); |
ebb42fb2da04
Various fixes for tests in scripts/plot
Kai Habel <kai.habel@gmx.de>
parents:
13096
diff
changeset
|
128 %! end_unwind_protect |
ebb42fb2da04
Various fixes for tests in scripts/plot
Kai Habel <kai.habel@gmx.de>
parents:
13096
diff
changeset
|
129 |
ebb42fb2da04
Various fixes for tests in scripts/plot
Kai Habel <kai.habel@gmx.de>
parents:
13096
diff
changeset
|
130 %!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:
13111
diff
changeset
|
131 %! 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
|
132 %! unwind_protect |
13096 | 133 %! clf; |
134 %! assert (isempty (get (gcf, "children"))); | |
135 %! unwind_protect_cleanup | |
136 %! close (hf); | |
137 %! end_unwind_protect | |
14001
5f0bb45e615c
doc: Update documentation for functions returning a graphics handle h (Bug #34761)
Rik <octave@nomad.inbox5.com>
parents:
13316
diff
changeset
|
138 |
25231
e1024058833c
test: change remaining %!xtests into %!tests
Mike Miller <mtmiller@octave.org>
parents:
25054
diff
changeset
|
139 %!test |
21580
ecce63c99c3f
maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents:
20852
diff
changeset
|
140 %! set (0, "defaultfigurevisible", "off"); |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
141 %! hf = figure ("visible", "off"); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
142 %! unwind_protect |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
143 %! plot (1:10); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
144 %! set (hf, "papertype", "tabloid"); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
145 %! clf (hf); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
146 %! assert (isempty (get (gcf, "children"))); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
147 %! assert (get (hf, "papertype"), "tabloid"); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
148 %! plot (1:10); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
149 %! clf (hf, "reset"); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
150 %! kids = get (hf, "children"); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
151 %! assert (isempty (get (gcf, "children"))); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
152 %! assert (get (hf, "papertype"), "usletter"); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
153 %! unwind_protect_cleanup |
21580
ecce63c99c3f
maint: Add semicolons to terminate code in %! blocks.
Rik <rik@octave.org>
parents:
20852
diff
changeset
|
154 %! set (0, "defaultfigurevisible", "remove"); |
17092
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
155 %! close (hf); |
498b9f62199a
clf.m: Update docstring and simplify code. Add new %!demo block.
Rik <rik@octave.org>
parents:
14363
diff
changeset
|
156 %! end_unwind_protect |