Levitron demo updated. Stop and Reinit callback must be priority. Set callback_type... 29/16929/2
Adeline CARNIS [Wed, 29 Jul 2015 15:06:41 +0000 (17:06 +0200)]
Change-Id: I99c8f5ee6b45747089ec72b673ea08efae5d346c

scilab/modules/differential_equations/demos/levitron/levitron_gui.sci

index 27ae0a8..67ece5f 100644 (file)
@@ -252,7 +252,7 @@ function levitron_create_gui()
     height_param.default = (1.72-1.6)*50;
 
     theta_param  = tlist(["sim_param", "name", "unit", "default"]);
-    theta_param.name = "theta" 
+    theta_param.name = "theta"
     theta_param.unit = "deg"
     theta_param.default = 28;
 
@@ -270,21 +270,21 @@ function levitron_create_gui()
 
     //Create the figure and the frame to put the sliders
     levitron_main_fig = figure( ...
-        "dockable", "off", ...
-        "infobar_visible", "off", ...
-        "toolbar_visible", "off", ...
-        "toolbar", "none", ...
-        "menubar_visible", "off", ...
-        "menubar", "none", ...
-        "default_axes", "on", ...
-        "layout", "none", ...
-        "visible", "off", ...
-        "immediate_drawing", "off", ...
-        "background", -2, ...
-        "figure_position", [0 0], ...
-        "axes_size", [800, 600], ...
-        "figure_name", "Levitron Simulation", ...
-        "tag", "levitron_main_figure");
+    "dockable", "off", ...
+    "infobar_visible", "off", ...
+    "toolbar_visible", "off", ...
+    "toolbar", "none", ...
+    "menubar_visible", "off", ...
+    "menubar", "none", ...
+    "default_axes", "on", ...
+    "layout", "none", ...
+    "visible", "off", ...
+    "immediate_drawing", "off", ...
+    "background", -2, ...
+    "figure_position", [0 0], ...
+    "axes_size", [800, 600], ...
+    "figure_name", "Levitron Simulation", ...
+    "tag", "levitron_main_figure");
 
 
     levitron_main_fig.layout = "gridbag"
@@ -295,7 +295,7 @@ function levitron_create_gui()
 
     c = createConstraints("gridbag", [2, 1, 1, 1], [0.25, 1], "both", "right", [0, 0], [300, 0]);
     right_frame = uicontrol(levitron_main_fig, "style", "frame", "backgroundcolor", [1, 1, 1], ...
-        "constraints", c);
+    "constraints", c);
 
     right_frame.layout = "border";
     right_frame.layout_options = createLayoutOptions("border");
@@ -304,19 +304,19 @@ function levitron_create_gui()
     param_border = createBorder("titled", l_border, "Simulation Parameters", "center", "top")
     c = createConstraints("border", "center");
     param_frame = uicontrol(right_frame, "style", "frame", "backgroundcolor", [1, 1, 1], ...
-        "constraints", c, "tag", "param_frame", "border", param_border, "layout", "gridbag");
+    "constraints", c, "tag", "param_frame", "border", param_border, "layout", "gridbag");
 
     c = createConstraints("border", "bottom", [0, 50]);
     button_frame = uicontrol(right_frame, "style", "frame", "backgroundcolor", [1, 1, 1], ...
-        "constraints", c, "tag", "button_frame", "layout", "gridbag");
+    "constraints", c, "tag", "button_frame", "layout", "gridbag");
 
     c = createConstraints("border", "right", [10, 0]);
     empty_frame = uicontrol(right_frame, "style", "frame", "backgroundcolor", [1, 1, 1], ...
-        "constraints", c);
+    "constraints", c);
 
     c = createConstraints("border", "left", [10, 0]);
     empty_frame = uicontrol(right_frame, "style", "frame", "backgroundcolor", [1, 1, 1], ...
-        "constraints", c);
+    "constraints", c);
 
     gui_createParamFrame(param_list);
     gui_createButtonFrame();
@@ -327,44 +327,44 @@ function gui_createParamFrame(param_list);
 
     for i = 1:size(param_list)
         c = createConstraints("gridbag", [1, i, 1, 1], [1, 1], "both", "left", [5, 0], [25, 0]);
-            name_p = uicontrol(param_frame, ...
-            "Style", "text", ...
-            "String", param_list(i).name + " ", ...
-            "BackgroundColor", [1 1 1], ...
-            "horizontalalignment", "right", ...
-            "constraints", c, ...
-            "tag", "text_" + param_list(i).name); 
+        name_p = uicontrol(param_frame, ...
+        "Style", "text", ...
+        "String", param_list(i).name + " ", ...
+        "BackgroundColor", [1 1 1], ...
+        "horizontalalignment", "right", ...
+        "constraints", c, ...
+        "tag", "text_" + param_list(i).name);
 
         c = createConstraints("gridbag", [2, i, 1, 1], [1, 1], "both", "center", [0, 0], [60, 0]);
         slider_p = uicontrol(param_frame, ...
-            "Style", "slider", ...
-            "Value", param_list(i).default, ...
-            "Min", 0, ...
-            "Max", 100, ...
-            "callback", "update_" + param_list(i).name + "()", ...
-            "constraints", c, ...
-            "horizontalalignment", "center", ...
-            "backgroundcolor", [1, 1, 1], ...
-            "tag", "slider_" + param_list(i).name);
+        "Style", "slider", ...
+        "Value", param_list(i).default, ...
+        "Min", 0, ...
+        "Max", 100, ...
+        "callback", "update_" + param_list(i).name + "()", ...
+        "constraints", c, ...
+        "horizontalalignment", "center", ...
+        "backgroundcolor", [1, 1, 1], ...
+        "tag", "slider_" + param_list(i).name);
 
         c = createConstraints("gridbag", [3, i, 1, 1], [1, 1], "both", "left", [15, 0], [25, 0]);
         value_p = uicontrol(param_frame, ...
-            "Style", "text", ...
-            "String", msprintf("%.3f", param_list(i).default), ...
-            "BackgroundColor", [1 1 1], ...
-            "constraints", c, ...
-            "foregroundcolor", [0 0 1], ...
-            "horizontalalignment", "right", ...
-            "tag", "value_" + param_list(i).name);
+        "Style", "text", ...
+        "String", msprintf("%.3f", param_list(i).default), ...
+        "BackgroundColor", [1 1 1], ...
+        "constraints", c, ...
+        "foregroundcolor", [0 0 1], ...
+        "horizontalalignment", "right", ...
+        "tag", "value_" + param_list(i).name);
 
         c = createConstraints("gridbag", [4, i, 1, 1], [1, 1], "both", "right", [5, 0], [25, 0]);
         unite_p = uicontrol(param_frame, ...
-            "Style", "text", ...
-            "String", " " + param_list(i).unit, ...
-            "BackgroundColor", [1 1 1], ...
-            "constraints", c, ...
-            "horizontalalignment", "left", ...
-            "tag", "unite_" + param_list(i).name);
+        "Style", "text", ...
+        "String", " " + param_list(i).unit, ...
+        "BackgroundColor", [1 1 1], ...
+        "constraints", c, ...
+        "horizontalalignment", "left", ...
+        "tag", "unite_" + param_list(i).name);
     end
 endfunction
 
@@ -377,33 +377,35 @@ function gui_createButtonFrame();
 
     c = createConstraints("gridbag", [2, 1, 1, 1], [0, 0], "none", "center");
     Start = uicontrol("parent", button_frame, ...
-        "Style"     , "pushbutton", ...
-        "String"    , "Start", ...
-        "callback"  , "levitron_start()", ...
-        "constraints", c, ...
-        "tag", "Start");
+    "Style"     , "pushbutton", ...
+    "String"    , "Start", ...
+    "callback"  , "levitron_start()", ...
+    "constraints", c, ...
+    "tag", "Start");
 
     c = createConstraints("gridbag", [3, 1, 1, 1], [1, 1], "horizontal", "center");
     empty = uicontrol(button_frame, "style", "frame", "backgroundcolor", [1, 1, 1], "constraints", c);
 
     c = createConstraints("gridbag", [4, 1, 1, 1], [0, 0], "none", "center");
     Stop = uicontrol("parent", button_frame, ...
-        "Style"     , "pushbutton", ...
-        "String"    , "Stop", ...
-        "callback"  , "levitron_stop()", ...
-        "constraints", c, ...
-        "tag", "Stop");
+    "Style"     , "pushbutton", ...
+    "String"    , "Stop", ...
+    "callback"  , "levitron_stop()", ...
+    "callback_type", 12, ...
+    "constraints", c, ...
+    "tag", "Stop");
 
     c = createConstraints("gridbag", [5, 1, 1, 1], [1, 1], "horizontal", "center");
     empty = uicontrol(button_frame, "style", "frame", "backgroundcolor", [1, 1, 1], "constraints", c);
 
     c = createConstraints("gridbag", [6, 1, 1, 1], [0, 0], "none", "center");
     Reinit = uicontrol("parent", button_frame, ...
-        "Style"     , "pushbutton", ...
-        "String"    , "Reset", ...
-        "callback"  , "levitron_reinit()", ...
-        "constraints", c, ...
-        "tag", "Reinit");
+    "Style"     , "pushbutton", ...
+    "String"    , "Reset", ...
+    "callback"  , "levitron_reinit()", ...
+    "callback_type", 12, ...
+    "constraints", c, ...
+    "tag", "Reinit");
 
     c = createConstraints("gridbag", [7, 1, 1, 1], [1, 1], "horizontal", "right");
     empty = uicontrol(button_frame, "style", "frame", "backgroundcolor", [1, 1, 1], "constraints", c);