# HG changeset patch
# User Kai Habel <address@hidden>
# Date 1290763783 -3600
# Node ID 64ed2b2b03ef8721da247a6784e84f99e76d72a4
# Parent  cc9b8cd5aa87de7cd805895953be31a04bd04f16
Add default menu for fltk backend figures

diff -r cc9b8cd5aa87 -r 64ed2b2b03ef scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Nov 26 09:32:16 2010 +0100
+++ b/scripts/ChangeLog	Fri Nov 26 10:29:43 2010 +0100
@@ -1,3 +1,9 @@
+2010-11-26  Kai Habel  <address@hidden>
+
+	* (plot/private/__add_default_menu__.m): New function.
+	* (plot/figure.m): Call __add_default_menu__ function.
+	* plot/module.mk: Add new file to list.
+
 2010-11-26  John W. Eaton  <address@hidden>
 
 	* pkg/pkg.m: Append directories to EXEC_PATH instead of
diff -r cc9b8cd5aa87 -r 64ed2b2b03ef scripts/plot/figure.m
--- a/scripts/plot/figure.m	Fri Nov 26 09:32:16 2010 +0100
+++ b/scripts/plot/figure.m	Fri Nov 26 10:29:43 2010 +0100
@@ -73,6 +73,9 @@
     print_usage ();
   endif
 
+  cf = get (0, "currentfigure");
+  __add_default_menu__ (cf);
+
   if (nargout > 0)
     h = f;
   endif
diff -r cc9b8cd5aa87 -r 64ed2b2b03ef scripts/plot/module.mk
--- a/scripts/plot/module.mk	Fri Nov 26 09:32:16 2010 +0100
+++ b/scripts/plot/module.mk	Fri Nov 26 10:29:43 2010 +0100
@@ -8,6 +8,7 @@
 plot_PRIVATE_FCN_FILES = \
   plot/private/__actual_axis_position__.m \
   plot/private/__add_datasource__.m \
+  plot/private/__add_default_menu__.m \
   plot/private/__axes_limits__.m \
   plot/private/__axis_label__.m \
   plot/private/__bar__.m \
diff -r cc9b8cd5aa87 -r 64ed2b2b03ef scripts/plot/private/__add_default_menu__.m
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/plot/private/__add_default_menu__.m	Fri Nov 26 10:29:43 2010 +0100
@@ -0,0 +1,109 @@
+## Copyright (C) 2010 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__ (fig)
+## Adds default menu to figure. All uimenu handles have
+## set their property "handlevisibility" to "off".
+## @end deftypefn
+
+## Author: Kai Habel
+
+function __add_default_menu__ (fig)
+
+  if (isfigure (fig))
+    obj = findall (fig, "label", "&File", "tag", "__default_menu__");
+    if (length (obj) == 0)
+      __f = uimenu (fig, "label", "&File", "handlevisibility", "off", "tag", "__default_menu__");
+        sa = uimenu (__f, "label", "Save &As", "handlevisibility", "off",
+                          "callback", @save_cb);
+        sv = uimenu (__f, "label", "&Save", "handlevisibility", "off",
+                          "callback", @save_cb);
+        cl = uimenu (__f, "label", "&Close", "handlevisibility", "off",
+                          "callback", "close(gcf)");
+
+      __e = uimenu (fig, "label", "&Edit", "handlevisibility", "off");
+        gr = uimenu (__e, "label", "&Grid", "handlevisibility", "off",
+                          "callback", @grid_cb);
+        as = uimenu (__e, "label", "Auto&scale", "handlevisibility", "off",
+                          "callback", @autoscale_cb);
+        gm = uimenu (__e, "label", "GUI &Mode", "handlevisibility", "off");
+          gm2 = uimenu (gm, "label", "Pan+Zoom", "handlevisibility", "off",
+                            "callback", @guimode_cb);
+          gm3 = uimenu (gm, "label", "Rotate+Zoom", "handlevisibility", "off",
+                            "callback", @guimode_cb);
+          gmn = uimenu (gm, "label", "None", "handlevisibility", "off",
+                            "callback", @guimode_cb);
+      __h = uimenu (fig, "label", "&Help", "handlevisibility", "off");
+        ab = uimenu (__h, "label", "A&bout", "handlevisibility", "off", "enable", "off");
+    endif
+  else
+    error ("expecting figure handle", "handlevisibility", "off");
+  endif
+
+endfunction
+
+function grid_cb (h, e)
+  grid;
+  drawnow; # should not be required
+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 = strcat (filedir, filesep, filename);
+    obj = findall ("label", "&Save");
+    if (length (obj) > 0)
+      set (obj(1), "userdata", fname);
+    endif
+    saveas (caller, fname);
+  endif
+endfunction
+
+function autoscale_cb (h, e)
+  axis ("auto");
+  drawnow; #should not be required
+endfunction
+
+function guimode_cb (h, e)
+  lbl = get(h, "label");
+  if (strncmp(lbl, "Pan+Zoom", 8))
+    fltk_gui_mode("2D");
+  elseif (strncmp(lbl, "Rotate+Zoom", 11))
+    fltk_gui_mode("3D");
+  elseif (strncmp(lbl, "None", 4))
+    fltk_gui_mode("None");
+  endif
+endfunction
\ No newline at end of file