octave-lyh: scripts/plot/zlabel.m annotate

annotate scripts/plot/zlabel.m @ 13816:7ee18dc46bbb

new and improved non-integer figure handles * waitbar.m: Pass NaN and "integerhandle" property to __go_figure__. * __init_fltk__.cc (OpenGL_fltk::renumber, plot_window::renumber, figure_manager::renumber_figure, figure_manager::do_renumber_figure): New functions. (figure_manager::hnd2idx): Don't declare double arg as const. Include figure number in error message. (fltk_graphics_toolkit::update): Handle ID_INTEGERHANDLE. * graphics.h.in, graphics.cc (gh_manager::do_get_handle): Rename from gh_manager::get_handle. (gh_manager::get_handle): New static function. (gh_manager::renumber_figure): New static function. (gh_manager::do_renumber_figure): New function. (figure::properties::set_integerhandle): New function. (figure::properties::integerhandle): Tag property declaration with S. (F__go_figure__): Intercept and handle integerhandle property here. * graphics.h.in (children_property::renumber): New function. (base_properties::init_integerhandle): New virtual function. (figure::properties::init_integerhandle): New function. (base_properties::renumber_child, base_properties::renumber_parent): New functions.

author	John W. Eaton <jwe@octave.org>
date	Fri, 04 Nov 2011 06:25:13 -0400
parents	5acb5c25e4ae
children	5f0bb45e615c

rev	line source
11523 fd0a3ac60b0e update copyright notices John W. Eaton <jwe@octave.org> parents: 11315 diff changeset	1 ## Copyright (C) 1995-2011 John W. Eaton
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	2 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	3 ## This file is part of Octave.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	4 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	6 ## under the terms of the GNU General Public License as published by
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6412 diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6412 diff changeset	8 ## your option) any later version.
2313 5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	9 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	13 ## General Public License for more details.
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	14 ##
5ca126254d15 [project @ 1996-07-11 21:25:22 by jwe] jwe parents: 2312 diff changeset	15 ## You should have received a copy of the GNU General Public License
7016 93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6412 diff changeset	16 ## along with Octave; see the file COPYING. If not, see
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe] jwe parents: 6412 diff changeset	17 ## <http://www.gnu.org/licenses/>.
1540 749b8b19733f [project @ 1995-10-06 03:10:34 by jwe] jwe parents: diff changeset	18
3458 d25bc039237b [project @ 2000-01-19 09:36:14 by jwe] jwe parents: 3446 diff changeset	19 ## -- texinfo --
10793 be55736a0783 Grammarcheck the documentation from m-files. Rik <octave@nomad.inbox5.com> parents: 8920 diff changeset	20 ## @deftypefn {Function File} {} zlabel (@var{string})
7194 a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7017 diff changeset	21 ## @deftypefnx {Function File} {} zlabel (@var{h}, @var{string})
11315 c715816f4539 Add additional calling form to docstring for [xyz]label functions. Rik <octave@nomad.inbox5.com> parents: 11152 diff changeset	22 ## @deftypefnx {Function File} {@var{h} =} zlabel (@dots{})
11152 39ae406df598 Improve docstrings for functions found in undocumented list. Rik <octave@nomad.inbox5.com> parents: 10793 diff changeset	23 ## @seealso{xlabel}
3458 d25bc039237b [project @ 2000-01-19 09:36:14 by jwe] jwe parents: 3446 diff changeset	24 ## @end deftypefn
3368 a4cd1e9d9962 [project @ 1999-11-20 17:22:48 by jwe] jwe parents: 2847 diff changeset	25
6257 44c91c5dfe1d [project @ 2007-01-30 19:16:52 by jwe] jwe parents: 5775 diff changeset	26 ## Author: jwe
1540 749b8b19733f [project @ 1995-10-06 03:10:34 by jwe] jwe parents: diff changeset	27
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7208 diff changeset	28 function retval = zlabel (varargin)
4529 78954aeaf321 [project @ 2003-10-04 19:35:36 by jwe] jwe parents: 3979 diff changeset	29
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7208 diff changeset	30 [h, varargin, nargin] = __plt_get_axis_arg__ ("zlabel", varargin{:});
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7208 diff changeset	31
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7208 diff changeset	32 if (rem (nargin, 2) != 1)
dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7208 diff changeset	33 print_usage ();
7194 a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7017 diff changeset	34 endif
a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7017 diff changeset	35
13800 5acb5c25e4ae allow axes handle to be passed to title function John W. Eaton <jwe@octave.org> parents: 13141 diff changeset	36 tmp = __axis_label__ (h, "zlabel", varargin{:},
5acb5c25e4ae allow axes handle to be passed to title function John W. Eaton <jwe@octave.org> parents: 13141 diff changeset	37 "color", get (h, "zcolor"));
7215 dd88d61d443f [project @ 2007-11-29 16:44:45 by jwe] jwe parents: 7208 diff changeset	38
7194 a927a2871a93 [project @ 2007-11-26 23:06:12 by jwe] jwe parents: 7017 diff changeset	39 if (nargout > 0)
7425 fe4a43e1d1d3 [project @ 2008-01-28 09:13:01 by jwe] jwe parents: 7271 diff changeset	40 retval = tmp;
4529 78954aeaf321 [project @ 2003-10-04 19:35:36 by jwe] jwe parents: 3979 diff changeset	41 endif
1540 749b8b19733f [project @ 1995-10-06 03:10:34 by jwe] jwe parents: diff changeset	42
749b8b19733f [project @ 1995-10-06 03:10:34 by jwe] jwe parents: diff changeset	43 endfunction
13136 79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	44
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	45 %!test
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	46 %! hf = figure ("visible", "off");
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 13136 diff changeset	47 %! unwind_protect
13136 79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	48 %! z = zlabel ("zlabel_string");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	49 %! assert (get(gca, "zlabel"), z);
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	50 %! assert (get(z, "type"), "text");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	51 %! assert (get(z, "visible"), "off");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	52 %! assert (get(z, "string"), "zlabel_string");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	53 %! unwind_protect_cleanup
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	54 %! close (hf);
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	55 %! end_unwind_protect
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	56
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	57 %!test
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	58 %! hf = figure ("visible", "off");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	59 %! plot3 (0, 0, 0);
13141 e81ddf9cacd5 maint: untabify and remove trailing whitespace from source files John W. Eaton <jwe@octave.org> parents: 13136 diff changeset	60 %! unwind_protect
13136 79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	61 %! z = zlabel ("zlabel_string");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	62 %! assert (get(gca, "zlabel"), z);
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	63 %! assert (get(z, "type"), "text");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	64 %! assert (get(z, "visible"), "off");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	65 %! assert (get(z, "string"), "zlabel_string");
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	66 %! unwind_protect_cleanup
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	67 %! close (hf);
79b9a7669bb8 Tests added for scripts/plot Kai Habel <kai.habel@gmx.de> parents: 11598 diff changeset	68 %! end_unwind_protect

Mercurial > hg > octave-lyh

annotate scripts/plot/zlabel.m @ 13816:7ee18dc46bbb