Scilab gui: improved m2sci. 84/14284/1
Vladislav TRUBKIN [Tue, 1 Apr 2014 17:20:56 +0000 (19:20 +0200)]
Change-Id: I27226423b6b64cdfad6d3d0cff350319ac599e1e

scilab/modules/m2sci/macros/cb_m2sci_gui.sci
scilab/modules/m2sci/macros/m2sci_gui.sci

index 94eb271..d44d6d4 100644 (file)
@@ -19,19 +19,19 @@ function cb_m2sci_gui
     if get(gcbo,"tag")=="fileradio" then
 
         set(gcbo, "value", 1);
-        set(findobj("tag", "dirradio"), "value", 0);
+        set("dirradio", "value", 0);
 
         // Make dir objects not-visible
-        set(findobj("tag", "dirtitle"),"visible","off");
-        set(findobj("tag", "dirlabel"),"visible","off");
-        set(findobj("tag", "diredit"),"visible","off");
-        set(findobj("tag", "dirbtn"),"visible","off");
+        set("dirlabel", "visible","off");
+        set("diredit", "visible","off");
+        set("dirbtn", "visible","off");
 
         // Make file objects visible
-        set(findobj("tag", "filetitle"),"visible","on");
-        set(findobj("tag", "filelabel"),"visible","on");
-        set(findobj("tag", "fileedit"),"visible","on");
-        set(findobj("tag", "filebtn"),"visible","on");
+        set("filedirselect", "border",createBorder("titled", createBorder("line", "lightGray", 1),...
+        _("Input file"),"left","top",createBorderFont("", 11, "normal"), "black"));
+        set("filelabel", "visible","on");
+        set("fileedit", "visible","on");
+        set("filebtn", "visible","on");
 
         //
         // --- Switch to directory conversion mode ---
@@ -39,19 +39,19 @@ function cb_m2sci_gui
     elseif get(gcbo,"tag")=="dirradio" then
 
         set(gcbo, "value", 1);
-        set(findobj("tag", "fileradio"), "value", 0);
+        set("fileradio", "value", 0);
 
         // Make dir objects visible
-        set(findobj("tag", "dirtitle"),"visible","on");
-        set(findobj("tag", "dirlabel"),"visible","on");
-        set(findobj("tag", "diredit"),"visible","on");
-        set(findobj("tag", "dirbtn"),"visible","on");
+        set("filedirselect", "border",createBorder("titled", createBorder("line", "lightGray", 1),...
+        _("Input directory"),"left","top",createBorderFont("", 11, "normal"), "black"));
+        set("dirlabel", "visible", "on");
+        set("diredit", "visible", "on");
+        set("dirbtn", "visible", "on");
 
         // Make file objects not-visible
-        set(findobj("tag", "filetitle"),"visible","off");
-        set(findobj("tag", "filelabel"),"visible","off");
-        set(findobj("tag", "fileedit"),"visible","off");
-        set(findobj("tag", "filebtn"),"visible","off");
+        set("filelabel", "visible", "off");
+        set("fileedit", "visible", "off");
+        set("filebtn", "visible", "off");
 
         //
         // --- Directory to convert ---
@@ -59,7 +59,7 @@ function cb_m2sci_gui
     elseif get(gcbo,"tag")=="dirbtn" then
 
         directoryname = uigetdir(pwd(), gettext("Select the directory to convert"));
-        set(findobj("tag", "diredit"), "string", directoryname);
+        set("diredit", "string", directoryname);
 
         //
         // --- File to convert ---
@@ -67,7 +67,7 @@ function cb_m2sci_gui
     elseif get(gcbo,"tag")=="filebtn" then
 
         filename = uigetfile("*.m", pwd(), gettext("Select the file to convert"));
-        set(findobj("tag", "fileedit"), "string", filename);
+        set("fileedit", "string", filename);
 
         //
         // --- Output directory ---
@@ -75,15 +75,15 @@ function cb_m2sci_gui
     elseif get(gcbo,"tag")=="outbtn" then
 
         directoryname = uigetdir(pwd(), gettext("Select the directory for generated files"));
-        set(findobj("tag", "outedit"), "string", directoryname);
+        set("outedit", "string", directoryname);
 
         //
         // --- Recmode option ---
         //
     elseif or(get(gcbo, "tag")==["recradioyes","recradiono"]) then
 
-        set(findobj("tag", "recradioyes"), "value", 0);
-        set(findobj("tag", "recradiono"), "value", 0);
+        set("recradioyes", "value", 0);
+        set("recradiono", "value", 0);
 
         set(gcbo, "value", 1);
 
@@ -92,8 +92,8 @@ function cb_m2sci_gui
         //
     elseif or(get(gcbo, "tag")==["doubradioyes","doubradiono"]) then
 
-        set(findobj("tag", "doubradioyes"), "value", 0);
-        set(findobj("tag", "doubradiono"), "value", 0);
+        set("doubradioyes", "value", 0);
+        set("doubradiono", "value", 0);
 
         set(gcbo, "value", 1);
 
@@ -102,10 +102,10 @@ function cb_m2sci_gui
         //
     elseif or(get(gcbo, "tag")==["verbradio0","verbradio1","verbradio2","verbradio3"]) then
 
-        set(findobj("tag", "verbradio0"), "value", 0);
-        set(findobj("tag", "verbradio1"), "value", 0);
-        set(findobj("tag", "verbradio2"), "value", 0);
-        set(findobj("tag", "verbradio3"), "value", 0);
+        set("verbradio0", "value", 0);
+        set("verbradio1", "value", 0);
+        set("verbradio2", "value", 0);
+        set("verbradio3", "value", 0);
 
         set(gcbo, "value", 1);
 
@@ -114,8 +114,8 @@ function cb_m2sci_gui
         //
     elseif or(get(gcbo, "tag")==["ppradioyes","ppradiono"]) then
 
-        set(findobj("tag", "ppradioyes"), "value", 0);
-        set(findobj("tag", "ppradiono"), "value", 0);
+        set("ppradioyes", "value", 0);
+        set("ppradiono", "value", 0);
 
         set(gcbo, "value", 1);
 
@@ -130,31 +130,31 @@ function cb_m2sci_gui
         // --- Launch conversion ---
         //
     elseif get(gcbo, "tag")=="convertbtn" then
-        outputdir = get(findobj("tag", "outedit"), "string");
+        outputdir = get("outedit", "string");
 
-        rec = get(findobj("tag", "recradioyes"), "value") == 1;
+        rec = get("recradioyes", "value") == 1;
 
-        doub = get(findobj("tag", "doubradioyes"), "value") == 1;
+        doub = get("doubradioyes", "value") == 1;
 
-        if get(findobj("tag", "verbradio0"), "value") == 1 then
+        if get("verbradio0", "value") == 1 then
             verb = 0;
-        elseif get(findobj("tag", "verbradio1"), "value") == 1 then
+        elseif get("verbradio1", "value") == 1 then
             verb = 1;
-        elseif get(findobj("tag", "verbradio2"), "value") == 1 then
+        elseif get("verbradio2", "value") == 1 then
             verb = 2;
         else
             verb = 3;
         end
 
-        pp = get(findobj("tag", "ppradioyes"), "value") == 1;
+        pp = get("ppradioyes", "value") == 1;
 
-        if get(findobj("tag", "fileradio"), "value") == 1 then // Single file conversion
-            inputfile = get(findobj("tag", "fileedit"), "string");
+        if get("fileradio", "value") == 1 then // Single file conversion
+            inputfile = get("fileedit", "string");
             //delete(findobj("tag", "m2scifig"));
             delete(gcf());
             mfile2sci(inputfile, outputdir, rec, doub, verb, pp);
         else // Directory conversion
-            inputdir = get(findobj("tag", "diredit"), "string");
+            inputdir = get("diredit", "string");
             //delete(findobj("tag", "m2scifig"));
             delete(gcf());
             translatepaths(inputdir, outputdir);
index 6c57a09..4257b9d 100644 (file)
@@ -14,32 +14,30 @@ function m2sci_gui()
     // Sizes
     widgeth = 20;
     btnh = 22;
-    btnw = 80;
+    btnw = 90;
     // defaultfont = "arial";
-    margin = 13;
+    margin = 18;
 
     // Figure creation
-    m2scifig = figure("figure_name", gettext("Matlab to Scilab conversion tool"), "visible", "off");
-
-    // Remove Scilab graphics menus & toolbar
-    delmenu(m2scifig.figure_id, gettext("&File"));
-    delmenu(m2scifig.figure_id, gettext("&Tools"));
-    delmenu(m2scifig.figure_id, gettext("&Edit"));
-    delmenu(m2scifig.figure_id, gettext("&?"));
-    toolbar(m2scifig.figure_id, "off");
+    m2scifig = figure("figure_name", gettext("Matlab to Scilab conversion tool"),...
+    "infobar_visible", "off",...
+    "toolbar_visible", "off",...
+    "dockable", "off",...
+    "menubar", "none",...
+    "default_axes", "off",...
+    "resize", "off");
 
     h = uimenu("parent", m2scifig, "label", gettext("File"));
     uimenu("parent", h, "label", gettext("Close"), "callback", "cb_m2sci_gui", "tag", "close_menu");
 
     h = uimenu("parent", m2scifig, "label", gettext("?"));
-    uimenu("parent", h, "label", gettext("Mfile2sci help page"), "callback", "cb_m2sci_gui", "tag", "mfile2sci_help_menu");
-    uimenu("parent", h, "label", gettext("Translatepaths help page"), "callback", "cb_m2sci_gui", "tag", "translatepaths_help_menu");
-    uimenu("parent", h, "label", gettext("About M2SCI tools..."), "callback", "cb_m2sci_gui", "tag", "about_m2sci_menu");
+    uimenu("parent", h, "label", gettext("Mfile2sci help page"), "callback", "cb_m2sci_gui();", "tag", "mfile2sci_help_menu");
+    uimenu("parent", h, "label", gettext("Translatepaths help page"), "callback", "cb_m2sci_gui();", "tag", "translatepaths_help_menu");
+    uimenu("parent", h, "label", gettext("About M2SCI tools..."), "callback", "cb_m2sci_gui();", "tag", "about_m2sci_menu");
 
-    figw = 500;
+    figw = 650;
     figh = 17*margin + btnh + 7*widgeth;
     m2scifig.axes_size = [figw figh];
-    m2scifig.children(1).visible = "off"; // to be sure that no plot can appear in the window
 
     //-------------------
     // --- Validation ---
@@ -47,22 +45,18 @@ function m2sci_gui()
 
     // Convert button
     convertbtn = uicontrol("parent", m2scifig,...
-    "backgroundcolor", [0.8 0.8 0.8],...
     "style", "pushbutton",...
     "string", gettext("Convert"),...
     "position", [figw-margin-btnw margin btnw btnh],...
-    "fontunits", "points",...
     "fontsize", 12,...
     "tag","convertbtn",...
     "callback","cb_m2sci_gui");
 
     // Cancel button
     cancelbtn = uicontrol("parent", m2scifig,...
-    "backgroundcolor", [0.8 0.8 0.8],...
     "style", "pushbutton",...
     "string", gettext("Cancel"),...
     "position",[figw-2*margin-2*btnw margin btnw btnh],...
-    "fontunits", "points",...
     "fontsize", 12,...
     "tag", "cancelbtn",...
     "callback","cb_m2sci_gui");
@@ -72,36 +66,24 @@ function m2sci_gui()
     //----------------
     // Frame
     optframe = uicontrol("parent", m2scifig,...
-    "relief", "groove",...
     "style", "frame",...
     "units", "pixels",...
-    "position", [margin 2*margin+btnh figw-2*margin 5*margin+4*widgeth],...
-    "fontunits", "points",...
-    "fontsize", 12,...
-    "fontweight", "bold", ...
-    "horizontalalignment", "center");
-    // Frame title
-    opttitle = uicontrol("parent", m2scifig,...
-    "style", "text",...
-    "string", gettext("Options"),...
-    "units", "pixels",...
-    "position", [2*margin 2*margin+btnh+5*margin+4*widgeth-8 50 14],...
-    "fontunits", "points",...
-    "fontsize", 11,...
-    "horizontalalignment", "center");
+    "border", createBorder("titled", createBorder("line", "lightGray", 1),...
+    _("Options"), "left", "top", createBorderFont("", 11, "normal"), "black"),...
+    "position", [margin 2*margin+btnh figw-2*margin 5*margin+4*widgeth]);
 
     // --- Pretty print option ---
     pplabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("Generate pretty printed code: "),...
-    "position",[2*margin 2*margin+btnh+margin 180 widgeth],...
+    "position",[2*margin 2*margin+btnh+margin 280 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12);
     ppradioyes = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("Yes"),...
-    "position",[2*margin+180 2*margin+btnh+margin 60 widgeth],...
+    "position",[2*margin+300 2*margin+btnh+margin 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -113,7 +95,7 @@ function m2sci_gui()
     ppradiono = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("No"),...
-    "position",[2*margin+240 2*margin+btnh+margin 60 widgeth],...
+    "position",[2*margin+360 2*margin+btnh+margin 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -128,14 +110,14 @@ function m2sci_gui()
     verblabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("Verbose mode: "),...
-    "position",[2*margin verby 180 widgeth],...
+    "position",[2*margin verby 280 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12);
     verbradio0 = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("0"),...
-    "position",[2*margin+180 verby 60 widgeth],...
+    "position",[2*margin+300 verby 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -147,7 +129,7 @@ function m2sci_gui()
     verbradio1 = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("1"),...
-    "position",[2*margin+180+60 verby 60 widgeth],...
+    "position",[2*margin+300+60 verby 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -159,7 +141,7 @@ function m2sci_gui()
     verbradio2 = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("2"),...
-    "position",[2*margin+180+60+60 verby 60 widgeth],...
+    "position",[2*margin+300+60+60 verby 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -171,7 +153,7 @@ function m2sci_gui()
     verbradio3 = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("3"),...
-    "position",[2*margin+180+60+60+60 verby 60 widgeth],...
+    "position",[2*margin+300+60+60+60 verby 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -186,14 +168,14 @@ function m2sci_gui()
     doublabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("Only double values used: "),...
-    "position",[2*margin douby 180 widgeth],...
+    "position",[2*margin douby 280 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12);
     doubradioyes = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("Yes"),...
-    "position",[2*margin+180 douby 60 widgeth],...
+    "position",[2*margin+300 douby 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -205,7 +187,7 @@ function m2sci_gui()
     doubradiono = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("No"),...
-    "position",[2*margin+240 douby 60 widgeth],...
+    "position",[2*margin+360 douby 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -220,14 +202,14 @@ function m2sci_gui()
     reclabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("Recursive conversion: "),...
-    "position",[2*margin recy 180 widgeth],...
+    "position",[2*margin recy 280 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12);
     recradioyes = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("Yes"),...
-    "position",[2*margin+180 recy 60 widgeth],...
+    "position",[2*margin+300 recy 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -239,7 +221,7 @@ function m2sci_gui()
     recradiono = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
     "string", gettext("No"),...
-    "position",[2*margin+240 recy 60 widgeth],...
+    "position",[2*margin+360 recy 60 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -255,27 +237,15 @@ function m2sci_gui()
     // Frame
     optframemaxy = 2*margin+btnh + 5*margin+4*widgeth;
     outframe = uicontrol("parent", m2scifig,...
-    "relief", "groove",...
     "style", "frame",...
-    "units", "pixels",...
     "position", [margin optframemaxy+margin figw-2*margin widgeth+2*margin],...
-    "fontunits", "points",...
-    "fontsize", 12,...
-    "fontweight", "bold", ...
-    "horizontalalignment", "center");
-    // Frame title
-    outtitle = uicontrol("parent", m2scifig,...
-    "style", "text",...
-    "string", gettext("Output directory"),...
-    "units", "pixels",...
-    "position", [2*margin optframemaxy+margin+widgeth+2*margin-8 90 14],...
-    "fontunits", "points",...
-    "fontsize", 11,...
-    "horizontalalignment", "center");
+    "border", createBorder("titled", createBorder("line", "lightGray", 1),...
+    _("Output directory"),"left","top",createBorderFont("", 11, "normal"), "black"));
+
     outlabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("Directory name: "),...
-    "position",[2*margin optframemaxy+2*margin-1 100 widgeth],...
+    "position",[2*margin optframemaxy+2*margin-1 120 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12);
@@ -287,12 +257,11 @@ function m2sci_gui()
     "fontunits", "points",...
     "fontsize", 12, ...
     "tag", "outedit");
+
     outbtn = uicontrol("parent", m2scifig,...
-    "backgroundcolor", [0.8 0.8 0.8],...
     "style", "pushbutton",...
     "string", gettext("Browse"),...
-    "position",[figw-2*margin-btnw optframemaxy+2*margin btnw btnh],...
-    "fontunits", "points",...
+    "position",[figw-2*margin-btnw optframemaxy+1.9*margin btnw btnh],...
     "fontsize", 12,...
     "callback", "cb_m2sci_gui",...
     "tag", "outbtn");
@@ -307,36 +276,15 @@ function m2sci_gui()
     "style", "frame",...
     "units", "pixels",...
     "position", [margin outframemaxy+margin figw-2*margin 2*margin+widgeth],...
-    "fontunits", "points",...
-    "fontsize", 12,...
-    "fontweight", "bold", ...
-    "horizontalalignment", "center");
-    // Frame title
-    dirtitle = uicontrol("parent", m2scifig,...
-    "style", "text",...
-    "string", gettext("Input directory"),...
-    "units", "pixels",...
-    "position", [2*margin outframemaxy+margin+2*margin+widgeth-8 85 14],...
-    "fontunits", "points",...
-    "fontsize", 11,...
-    "horizontalalignment", "center", ...
-    "tag", "dirtitle",...
-    "visible", "off");
-    filetitle = uicontrol("parent", m2scifig,...
-    "style", "text",...
-    "string", gettext("Input file"),...
-    "units", "pixels",...
-    "position", [2*margin outframemaxy+margin+2*margin+widgeth-8 50 14],...
-    "fontunits", "points",...
-    "fontsize", 11,...
-    "horizontalalignment", "center", ...
-    "tag", "filetitle");
+    "border", createBorder("titled", createBorder("line", "lightGray", 1),...
+    _("Input file"),"left","top",createBorderFont("", 11, "normal"), "black"),...
+    "tag", "filedirselect");
 
     // --- Directory selection ---
     dirlabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("Directory name: "),...
-    "position",[2*margin outframemaxy+2*margin-1 100 widgeth],...
+    "position",[2*margin outframemaxy+2*margin-1 120 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -352,11 +300,9 @@ function m2sci_gui()
     "visible", "off",...
     "tag", "diredit");
     dirbtn = uicontrol("parent", m2scifig,...
-    "backgroundcolor", [0.8 0.8 0.8],...
     "style", "pushbutton",...
     "string", gettext("Browse"),...
-    "position",[figw-2*margin-btnw outframemaxy+2*margin btnw btnh],...
-    "fontunits", "points",...
+    "position",[figw-2*margin-btnw outframemaxy+1.9*margin btnw btnh],...
     "fontsize", 12,...
     "visible", "off",...
     "callback", "cb_m2sci_gui",...
@@ -366,7 +312,7 @@ function m2sci_gui()
     filelabel = uicontrol("parent", m2scifig,...
     "style", "text",...
     "string", gettext("File name: "),...
-    "position",[2*margin outframemaxy+2*margin-1 100 widgeth],...
+    "position",[2*margin outframemaxy+2*margin-1 120 widgeth],...
     "horizontalalignment", "left",...
     "fontunits", "points",...
     "fontsize", 12,...
@@ -381,11 +327,9 @@ function m2sci_gui()
     "tag", "fileedit");
 
     filebtn = uicontrol("parent", m2scifig,...
-    "backgroundcolor", [0.8 0.8 0.8],...
     "style", "pushbutton",...
     "string", gettext("Browse"),...
-    "position",[figw-2*margin-btnw outframemaxy+2*margin btnw btnh],...
-    "fontunits", "points",...
+    "position",[figw-2*margin-btnw outframemaxy+1.9*margin btnw btnh],...
     "fontsize", 12,...
     "callback", "cb_m2sci_gui",...
     "tag", "filebtn");
@@ -396,24 +340,10 @@ function m2sci_gui()
     // Frame
     selframemaxy = outframemaxy + 2*margin + widgeth + margin;
     modeframe = uicontrol("parent", m2scifig,...
-    "relief", "groove",...
     "style", "frame",...
-    "units", "pixels",...
     "position", [margin selframemaxy+margin figw-2*margin 2*margin+widgeth],...
-    "fontunits", "points",...
-    "fontsize", 12,...
-    "fontweight", "bold", ...
-    "horizontalalignment", "center");
-    // Frame title
-    modetitle = uicontrol("parent", m2scifig,...
-    "style", "text",...
-    "string", gettext("Conversion mode"),...
-    "units", "pixels",...
-    "position", [2*margin selframemaxy+margin+2*margin+widgeth-8 100 14],...
-    "fontunits", "points",...
-    "fontsize", 11,...
-    "horizontalalignment", "center", ...
-    "tag", "seltitle");
+    "border", createBorder("titled", createBorder("line", "lightGray", 1),...
+    _("Conversion mode"), "left", "top", createBorderFont("", 11, "normal"), "black"));
 
     fileradio = uicontrol("parent", m2scifig,...
     "style", "radiobutton",...
@@ -439,5 +369,4 @@ function m2sci_gui()
     "tag", "dirradio", ...
     "callback", "cb_m2sci_gui");
 
-    m2scifig.visible = "on";
 endfunction