Revert "Update the scale demo in tcl/tk."
[scilab.git] / scilab / modules / tclsci / demos / tk / scale.dem.sce
index 21e4e23..5f41dca 100644 (file)
@@ -8,6 +8,8 @@ function demo_tclsci_scale()
 
     tkpath = SCI + "/modules/tclsci/demos/tk/";
     exec(tkpath + "/demredraw.sci");
+    my_handle = scf(100001);
+    clf(my_handle,"reset");
     plot3d();
     handle_demo_scale = gcf();
 
@@ -24,4 +26,4 @@ function demo_tclsci_scale()
 endfunction
 
 demo_tclsci_scale();
-clear demo_tclsci_scale;
+clear demo_tclsci_scale;
\ No newline at end of file