Mercurial > octave-nkf

annotate scripts/plot/util/private/__add_default_menu__.m @ 19903:781adfc2958c draft nkf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Build qt graphics toolkit menus with uimenu * libgui/graphics/Figure.cc, libgui/graphics/Figure.h: Revert cset 7335cc071ab0 and remove all menu items. * scripts/gui/private/__get_funcname__.m: Fix typo * scripts/plot/util/private/__add_default_menu__.m: Enable uimenu for qt graphics toolkit and fix setting pan/rotate/zoom for qt and fltk
author Stefan Mahr <dac922@gmx.de>
date Fri, 27 Feb 2015 18:36:05 +0100
parents 55a4173f1624
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
19731
4197fc428c7d maint: Update copyright notices for 2015.
John W. Eaton <jwe@octave.org>
parents: 19630
diff changeset
1 ## Copyright (C) 2010-2015 Kai Habel
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
2 ##
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
3 ## This file is part of Octave.
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
4 ##
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
5 ## Octave is free software; you can redistribute it and/or modify it
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
6 ## under the terms of the GNU General Public License as published by
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
7 ## the Free Software Foundation; either version 3 of the License, or (at
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
8 ## your option) any later version.
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
9 ##
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
10 ## Octave is distributed in the hope that it will be useful, but
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
13 ## General Public License for more details.
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
14 ##
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
15 ## You should have received a copy of the GNU General Public License
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
16 ## along with Octave; see the file COPYING. If not, see
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
17 ## <http://www.gnu.org/licenses/>.
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
18
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
19 ## -*- texinfo -*-
11563
3c6e8aaa9555 Grammarcheck m-files before 3.4 release.
Rik <octave@nomad.inbox5.com>
parents: 11523
diff changeset
20 ## @deftypefn {Function File} {} __add_default_menu__ (@var{fig})
12575
d0b799dafede Grammarcheck files for 3.4.1 release.
Rik <octave@nomad.inbox5.com>
parents: 12457
diff changeset
21 ## Add default menu to figure. All uimenu handles have
17281
bc924baa2c4e doc: Add new @qcode macro for code samples which are quoted.
Rik <rik@octave.org>
parents: 17136
diff changeset
22 ## their @qcode{"HandleVisibility"} property set to @qcode{"off"}.
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
23 ## @end deftypefn
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
24
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
25 ## Author: Kai Habel
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
26
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
27 function __add_default_menu__ (fig)
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
28
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
29 ## Only FLTK toolkit currently provides menubar
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
30 tk = get (fig, "__graphics_toolkit__");
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
31 if (! any (strcmp (tk, {"fltk", "qt"})))
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
32 return;
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
33 endif
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
34
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
35 obj = findall (fig, "-depth", 1, "tag", "__default_menu__", "label", "&File");
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
36 if (isempty (obj))
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
37 __f = uimenu (fig, "label", "&File", "handlevisibility", "off",
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
38 "tag", "__default_menu__");
19753
60ce9f86ecfe Change FLTK File menu to match Qt File menu ordering.
Rik <rik@octave.org>
parents: 19731
diff changeset
39 uimenu (__f, "label", "&Save", "callback", @save_cb);
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
40 uimenu (__f, "label", "Save &As", "callback", @save_cb);
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
41 uimenu (__f, "label", "&Close", "callback", "close (gcf)");
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
42
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
43 __e = uimenu (fig, "label", "&Edit", "handlevisibility", "off",
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
44 "tag", "__default_menu__");
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
45 uimenu (__e, "label", "Toggle &grid on all axes", "tag", "toggle", "callback", @grid_cb);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
46 uimenu (__e, "label", "Show grid on all axes", "tag", "on", "callback", @grid_cb);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
47 uimenu (__e, "label", "Hide grid on all axes", "tag", "off", "callback", @grid_cb);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
48 uimenu (__e, "label", "Auto&scale all axes", "callback", @autoscale_cb);
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
49
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
50 gm = uimenu (__e, "label", "GUI &Mode (on all axes)");
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
51 uimenu (gm, "label", "Pan x and y", "tag", "pan_on", "callback", @guimode_cb);
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
52 uimenu (gm, "label", "Pan x only", "tag", "pan_xon", "callback", @guimode_cb);
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
53 uimenu (gm, "label", "Pan y only", "tag", "pan_yon", "callback", @guimode_cb);
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
54 uimenu (gm, "label", "Disable pan and rotate", "tag", "no_pan_rotate", "callback", @guimode_cb);
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
55 uimenu (gm, "label", "Rotate on", "tag", "rotate3d", "callback", @guimode_cb);
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
56 uimenu (gm, "label", "Enable mousezoom", "tag", "zoom_on", "callback", @guimode_cb);
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
57 uimenu (gm, "label", "Disable mousezoom", "tag", "zoom_off", "callback", @guimode_cb);
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
58
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
59 endif
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
60
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
61 endfunction
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
62
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
63 function save_cb (h, e)
19776
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
64 [hcbo, hfig] = gcbo ();
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
65 lbl = get (hcbo, "label");
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
66 if (strcmp (lbl, "&Save"))
19776
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
67 fname = get (hfig, "filename");
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
68 if (isempty (fname))
19776
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
69 __save_as__ (hcbo);
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
70 else
19776
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
71 saveas (hcbo, fname);
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
72 endif
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
73 elseif (strcmp (lbl, "Save &As"))
19776
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
74 __save_as__ (hcbo);
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
75 endif
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
76 endfunction
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
77
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
78 function __save_as__ (caller)
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
79 [filename, filedir] = uiputfile ({"*.pdf;*.ps;*.gif;*.png;*.jpg",
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
80 "Supported Graphic Formats"},
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
81 "Save Figure",
19774
ca6fc882177d Fix working directory of Figure Save dialog between CLI and GUI (bug #44175).
Rik <rik@octave.org>
parents: 19753
diff changeset
82 [pwd, filesep, "untitled.pdf"]);
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
83 if (filename != 0)
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
84 fname = [filedir filesep() filename];
19776
55a4173f1624 Use "filename" property of figure to store filename for Save dialog under FLTK.
Rik <rik@octave.org>
parents: 19774
diff changeset
85 set (gcbf, "filename", fname)
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
86 saveas (caller, fname);
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
87 endif
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
88 endfunction
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
89
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
90 function [hax, fig] = __get_axes__ (h)
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
91 ## Get parent figure
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
92 fig = ancestor (h, "figure");
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
93
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
94 ## Find all axes which aren't legends
19001
69658bd9952b __add_default_menu__.m: Fix bug that findobj is missing HLIST
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18999
diff changeset
95 hax = findobj (fig, "type", "axes", "-not", "tag", "legend");
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
96 endfunction
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
97
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
98 function grid_cb (h, e)
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
99 hax = __get_axes__ (h);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
100 id = get (h, "tag");
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
101 switch (id)
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
102 case "toggle"
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
103 arrayfun (@grid, hax);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
104 otherwise
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
105 arrayfun (@(h) grid(h, id), hax);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
106 endswitch
19002
0257a936dc4a Fix FLTK redraw and event issue
Andreas Weber <andy.weber.aw@gmail.com>
parents: 19001
diff changeset
107 drawnow ();
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
108 endfunction
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
109
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
110 function autoscale_cb (h, e)
18999
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
111 hax = __get_axes__ (h);
137d01e7c2d4 New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18995
diff changeset
112 arrayfun (@(h) axis (h, "auto"), hax)
19002
0257a936dc4a Fix FLTK redraw and event issue
Andreas Weber <andy.weber.aw@gmail.com>
parents: 19001
diff changeset
113 drawnow ();
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
114 endfunction
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
115
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
116 function guimode_cb (h, e)
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
117 [hax, fig] = __get_axes__ (h);
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
118 id = get (h, "tag");
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
119 switch (id)
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
120 case "pan_on"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
121 arrayfun (@(h) pan (fig, "on"), hax)
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
122 case "pan_xon"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
123 arrayfun (@(h) pan (fig, "xon"), hax)
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
124 case "pan_yon"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
125 arrayfun (@(h) pan (fig, "yon"), hax)
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
126 case "rotate3d"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
127 arrayfun (@(h) rotate3d (fig, "on"), hax)
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
128 case "no_pan_rotate"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
129 arrayfun (@(h) pan (fig, "off"), hax)
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
130 arrayfun (@(h) rotate3d (fig, "off"), hax)
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
131 case "zoom_on"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
132 arrayfun (@(tax) set (tax, "mousewheelzoom", 0.05), hax);
18995
52e01aa1fe8b Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents: 18992
diff changeset
133 case "zoom_off"
19903
781adfc2958c Build qt graphics toolkit menus with uimenu
Stefan Mahr <dac922@gmx.de>
parents: 19776
diff changeset
134 arrayfun (@(tax) set (tax, "mousewheelzoom", 0.0), hax);
17136
e4968b4613a5 Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents: 14868
diff changeset
135 endswitch
11349
4a3258b1448f Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff changeset
136 endfunction