Mercurial > octave-nkf
annotate scripts/plot/util/private/__add_default_menu__.m @ 18999:137d01e7c2d4
New scripts pan.m and rotate3d.m, update __add_default_menu__.m
* pan.m: New script to control panning mode for GUI
* rotate3d.m: New script to control panning mode for GUI
* __add_default_menu__.m: Update uimenus and callbacks. The menubar items
now sets properties on all axes except legends. It's now possible to
set, for example, the grid for all plots in a subplot.
* findall.m: Update test to reflect change of __add_default_menu__.m
* __unimplemented__.m: remove added pan and rotate3d scripts
author | Andreas Weber <andy.weber.aw@gmail.com> |
---|---|
date | Mon, 28 Jul 2014 22:40:12 +0200 |
parents | 52e01aa1fe8b |
children | 69658bd9952b |
rev | line source |
---|---|
17744
d63878346099
maint: Update copyright notices for release.
John W. Eaton <jwe@octave.org>
parents:
17572
diff
changeset
|
1 ## Copyright (C) 2010-2013 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 |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
30 if (! strcmp (get (fig, "__graphics_toolkit__"), "fltk")) |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
31 return; |
11349
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
32 endif |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
33 |
17136
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
34 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
|
35 if (isempty (obj)) |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
36 __f = uimenu (fig, "label", "&File", "handlevisibility", "off", |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
37 "tag", "__default_menu__"); |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
38 uimenu (__f, "label", "Save &As", "callback", @save_cb); |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
39 uimenu (__f, "label", "&Save", "callback", @save_cb); |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
40 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
|
41 |
17136
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
42 __e = uimenu (fig, "label", "&Edit", "handlevisibility", "off", |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
43 "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
|
44 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
|
45 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
|
46 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
|
47 uimenu (__e, "label", "Auto&scale all axes", "callback", @autoscale_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 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
|
49 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
|
50 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
|
51 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
|
52 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
|
53 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
|
54 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
|
55 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
|
56 |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
57 endif |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
58 |
11349
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
59 endfunction |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
60 |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
61 function save_cb (h, e) |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
62 lbl = get (gcbo, "label"); |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
63 if (strcmp (lbl, "&Save")) |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
64 fname = get (gcbo, "userdata"); |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
65 if (isempty (fname)) |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
66 __save_as__ (gcbo); |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
67 else |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
68 saveas (gcbo, fname); |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
69 endif |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
70 elseif (strcmp (lbl, "Save &As")) |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
71 __save_as__ (gcbo); |
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 endfunction |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
74 |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
75 function __save_as__ (caller) |
17136
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
76 [filename, filedir] = uiputfile ({"*.pdf;*.ps;*.gif;*.png;*.jpg", |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
77 "Supported Graphic Formats"}, |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
78 "Save Figure", |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
79 pwd); |
11349
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
80 if (filename != 0) |
17136
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
81 fname = [filedir filesep() filename]; |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
82 obj = findall (gcbf, "label", "&Save"); |
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
83 if (! isempty (obj)) |
11349
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
84 set (obj(1), "userdata", fname); |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
85 endif |
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 |
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
|
90 |
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 function 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
|
92 ## 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
|
93 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
|
94 |
137d01e7c2d4
New scripts pan.m and rotate3d.m, update __add_default_menu__.m
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18995
diff
changeset
|
95 ## Find all axes which aren't legends |
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 hax = findobj ("type", "axes", "-not", "tag", "legend"); |
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 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
|
98 |
17136
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
99 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
|
100 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
|
101 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
|
102 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
|
103 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
|
104 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
|
105 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
|
106 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
|
107 endswitch |
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) |
11349
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
113 endfunction |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
114 |
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
115 function guimode_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
|
116 hax = __get_axes__ (h); |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
117 id = get (h, "tag"); |
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
118 switch (id) |
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
119 case "pan_on" |
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
|
120 arrayfun (@(h) pan (h, "on"), hax) |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
121 case "pan_xon" |
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
|
122 arrayfun (@(h) pan (h, "xon"), hax) |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
123 case "pan_yon" |
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
|
124 arrayfun (@(h) pan (h, "yon"), hax) |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
125 case "rotate3d" |
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
|
126 arrayfun (@(h) rotate3d (h, "on"), hax) |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
127 case "no_pan_rotate" |
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
|
128 arrayfun (@(h) pan (h, "off"), 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
|
129 arrayfun (@(h) rotate3d (h, "off"), hax) |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
130 case "zoom_on" |
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
|
131 arrayfun (@(h) set (h, "mouse_wheel_zoom", 0.05), hax); |
18995
52e01aa1fe8b
Overhaul FLTK pan, rotate, zoom
Andreas Weber <andy.weber.aw@gmail.com>
parents:
18992
diff
changeset
|
132 case "zoom_off" |
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
|
133 arrayfun (@(h) set (h, "mouse_wheel_zoom", 0.0), hax); |
17136
e4968b4613a5
Overhaul default menubar (still not perfect).
Rik <rik@octave.org>
parents:
14868
diff
changeset
|
134 endswitch |
11349
4a3258b1448f
Add default menu for fltk backend figures
Kai Habel <kai.habel@gmx.de>
parents:
diff
changeset
|
135 endfunction |