added #mapIconified and #openIconified.
authorClaus Gittinger <cg@exept.de>
Thu, 24 Jul 1997 13:34:21 +0200
changeset 1821 d2b91606dc55
parent 1820 44b1622bcb50
child 1822 38f24dca2eb2
added #mapIconified and #openIconified.
TopView.st
--- a/TopView.st	Thu Jul 24 12:32:44 1997 +0200
+++ b/TopView.st	Thu Jul 24 13:34:21 1997 +0200
@@ -338,6 +338,23 @@
     "Created: 28.2.1997 / 16:39:31 / cg"
 !
 
+mapIconified
+    "make the view visible but iconified.
+     In contrast to map, which does it non-iconified"
+
+    realized ifFalse:[
+        "
+         now, make the view visible
+        "
+        realized := true.
+        device mapView:self id:drawableId iconified:true
+                   atX:left y:top width:width height:height.
+    ]
+
+    "Modified: 25.2.1997 / 22:44:33 / cg"
+    "Created: 24.7.1997 / 12:48:21 / cg"
+!
+
 positionOffset
     "return the delta, by which the box should be
      displaced from the mouse pointer.
@@ -406,6 +423,19 @@
     "
 !
 
+openIconified
+    "open the view in iconified state"
+
+    self recreate.
+    self mapIconified.
+
+    "
+     FileBrowser new openIconified
+    "
+
+    "Modified: 24.7.1997 / 12:48:42 / cg"
+!
+
 openIn:aBoundaryRectangle
     "set origin & extent and open. 
      The given extent overrides the receivers preferredExtent.
@@ -544,5 +574,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.47 1997-06-21 13:59:59 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.48 1997-07-24 11:34:21 cg Exp $'
 ! !