#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Thu, 31 May 2018 11:56:11 +0200
changeset 5781 38948bac30f3
parent 5780 fe449b76bc3c
child 5782 7846566f9503
#UI_ENHANCEMENT by cg class: GnuplotGraphView class comment/format in: #examples changed: #defaultScriptForDots #defaultScriptForHistogram #defaultScriptForLines #middleButtonMenuExtraSlice
GnuplotGraphView.st
--- a/GnuplotGraphView.st	Tue May 29 14:17:13 2018 +0200
+++ b/GnuplotGraphView.st	Thu May 31 11:56:11 2018 +0200
@@ -36,11 +36,22 @@
  to create nicely formatted and clickable executable examples in the generated html-doc.
  (see the browsers class-documentation menu items for more)
 
- trying the widget as standAlone view:
+ trying the widget as standAlone view (with a fix script):
                                                         [exBegin]
     GnuplotGraphView new 
         script:(GnuplotGraphView defaultScript);
         model:(ValueHolder with:(Random new next:100));
+        adjust:#smoothFit;
+        extent:400@300;
+        open
+                                                        [exEnd]
+
+ trying the widget as standAlone view (with no fix script):
+                                                        [exBegin]
+    GnuplotGraphView new 
+        model:(ValueHolder with:(Random new next:100));
+        adjust:#smoothFit;
+        extent:300@200;
         open
                                                         [exEnd]
 
@@ -78,8 +89,11 @@
 set term %(outputFormat) size %(width),%(height)
 set output "%(outputFile)"
 set title "%(title)"
+set nokey
 plot [-10:110] ''%(data)''
 '
+
+    "Modified: / 31-05-2018 / 11:54:43 / Claus Gittinger"
 !
 
 defaultScriptForHistogram
@@ -89,8 +103,11 @@
 set term %(outputFormat) size %(width),%(height) 
 set output "%(outputFile)"
 set title "%(title)"
+set nokey
 plot [-10:110] ''%(data)'' with histogram 
 '
+
+    "Modified: / 31-05-2018 / 11:54:47 / Claus Gittinger"
 !
 
 defaultScriptForLines
@@ -100,8 +117,11 @@
 set term %(outputFormat) size %(width),%(height) 
 set output "%(outputFile)"
 set title "%(title)"
+set nokey
 plot ''%(data)'' with lines 
 '
+
+    "Modified: / 31-05-2018 / 11:54:52 / Claus Gittinger"
 ! !
 
 !GnuplotGraphView class methodsFor:'menu specs'!
@@ -128,30 +148,25 @@
             label: '-'
           )
          (MenuItem
-            label: 'Format'
-            isVisible: hasNoScript
-            submenu: 
-           (Menu
-              (
-               (MenuItem
-                  label: 'Histogram'
-                  choice: formatHolder
-                  choiceValue: histogram
-                )
-               (MenuItem
-                  label: 'Line Graph'
-                  choice: formatHolder
-                  choiceValue: lines
-                )
-               (MenuItem
-                  label: 'Dots'
-                  choice: formatHolder
-                  choiceValue: dots
-                )
-               )
-              nil
-              nil
-            )
+            enabled: hasNoScript
+            label: 'Histogram'
+            hideMenuOnActivated: false
+            choice: formatHolder
+            choiceValue: histogram
+          )
+         (MenuItem
+            enabled: hasNoScript
+            label: 'Line Graph'
+            hideMenuOnActivated: false
+            choice: formatHolder
+            choiceValue: lines
+          )
+         (MenuItem
+            enabled: hasNoScript
+            label: 'Dots'
+            hideMenuOnActivated: false
+            choice: formatHolder
+            choiceValue: dots
           )
          )
         nil