1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
## Copyright (C) 2010-2013 Kai Habel
##
## This file is part of Octave.
##
## Octave is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or (at
## your option) any later version.
##
## Octave is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with Octave; see the file COPYING. If not, see
## <http://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {Function File} {} __add_default_menu__ (@var{fig})
## Add default menu to figure. All uimenu handles have
## their @qcode{"HandleVisibility"} property set to @qcode{"off"}.
## @end deftypefn
## Author: Kai Habel
function __add_default_menu__ (fig)
## Only FLTK toolkit currently provides menubar
if (! strcmp (get (fig, "__graphics_toolkit__"), "fltk"))
return;
endif
obj = findall (fig, "-depth", 1, "tag", "__default_menu__", "label", "&File");
if (isempty (obj))
## FIXME: uimenu() will cause menubar to be displayed, even though property
## menubar remains set at "none". So, forcibly turn menubar status
## on and then off to force figure to hide menubar.
menubar_state = get (fig, "menubar");
set (fig, "menubar", "figure");
__f = uimenu (fig, "label", "&File", "handlevisibility", "off",
"tag", "__default_menu__");
uimenu (__f, "label", "Save &As", "callback", @save_cb);
uimenu (__f, "label", "&Save", "callback", @save_cb);
uimenu (__f, "label", "&Close", "callback", "close (gcf)");
__e = uimenu (fig, "label", "&Edit", "handlevisibility", "off",
"tag", "__default_menu__");
uimenu (__e, "label", "&Grid", "callback", @grid_cb);
uimenu (__e, "label", "Auto&scale", "callback", @autoscale_cb);
gm = uimenu (__e, "label", "GUI &Mode");
uimenu (gm, "label", "Pan+Zoom", "callback", @guimode_cb);
uimenu (gm, "label", "Rotate+Zoom", "callback", @guimode_cb);
uimenu (gm, "label", "None+Zoom", "callback", @guimode_cb);
## FIXME: This drawnow () must occur after at least one menu item has
## been defined to avoid sizing issues in new figures.
## This may lead to flicker. The real fix must be in the C++ code.
drawnow ();
set (fig, "menubar", menubar_state);
endif
endfunction
function save_cb (h, e)
lbl = get (gcbo, "label");
if (strcmp (lbl, "&Save"))
fname = get (gcbo, "userdata");
if (isempty (fname))
__save_as__ (gcbo);
else
saveas (gcbo, fname);
endif
elseif (strcmp (lbl, "Save &As"))
__save_as__ (gcbo);
endif
endfunction
function __save_as__ (caller)
[filename, filedir] = uiputfile ({"*.pdf;*.ps;*.gif;*.png;*.jpg",
"Supported Graphic Formats"},
"Save Figure",
pwd);
if (filename != 0)
fname = [filedir filesep() filename];
obj = findall (gcbf, "label", "&Save");
if (! isempty (obj))
set (obj(1), "userdata", fname);
endif
saveas (caller, fname);
endif
endfunction
function grid_cb (h, e)
grid;
endfunction
function autoscale_cb (h, e)
axis ("auto");
endfunction
function guimode_cb (h, e)
lbl = get (h, "label");
switch (lbl)
case "Pan+Zoom"
gui_mode ("2D");
case "Rotate+Zoom"
gui_mode ("3D");
case "None"
gui_mode ("None");
endswitch
endfunction
|
