GnuplotGraphView.st
changeset 5755 ab974e8d9ee5
parent 5754 e2ff55aff529
child 5759 08dbdd438639
--- a/GnuplotGraphView.st	Tue May 01 10:48:57 2018 +0200
+++ b/GnuplotGraphView.st	Tue May 01 10:52:22 2018 +0200
@@ -50,11 +50,16 @@
 
     top := StandardSystemView new.
     top extent:300@300.
-    v := GnuplotGraphView new.
-    v origin:10@10 corner:150@150.
+    v := GnuplotGraphView new.  
+    v data:(Random new next:100).
+    v origin:0.0@0.0 corner:1.0@1.0.
     top add:v.
     top open
                                                         [exEnd]
+ use as inspect tab:
+                                                        [exBegin]
+    (Random new next:100) inspect.
+                                                        [exEnd]
 "
 ! !
 
@@ -382,6 +387,14 @@
     self invalidate
 ! !
 
+!GnuplotGraphView methodsFor:'mvc'!
+
+updateFromModel
+    "the model changes, set my image"
+
+    self data:model value.
+! !
+
 !GnuplotGraphView class methodsFor:'documentation'!
 
 version