Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added collapse & expand
authorClaus Gittinger <cg@exept.de>
Sat, 01 Mar 1997 22:56:19 +0100
changeset 1405 4cdcc64344f4
parent 1404 680d840cbd3f
child 1406 2aa01c6279f0
added collapse & expand
StandardSystemView.st file | annotate | diff | comparison | revisions
StdSysV.st file | annotate | diff | comparison | revisions 
--- a/StandardSystemView.st	Sat Mar 01 20:18:21 1997 +0100
+++ b/StandardSystemView.st	Sat Mar 01 22:56:19 1997 +0100
@@ -1093,6 +1093,30 @@
 
 !StandardSystemView methodsFor:'realization'!
 
+collapse
+    "iconify the receiver"
+
+    shown ifTrue:[
+        self unmap.
+
+        "if it was iconified, try to remap iconified"
+        device mapView:self id:drawableId iconified:true 
+                   atX:left y:top width:width height:height.
+        shown := false.
+    ].
+
+    "
+     |top|
+
+     top := StandardSystemView new.
+     top label:'hello'.
+     top openAndWait.
+     top collapse
+    "
+
+    "Modified: 1.3.1997 / 20:24:30 / cg"
+!
+
 create
     "create - make certain that icon is available"
 
@@ -1110,6 +1134,31 @@
     "Modified: 10.6.1996 / 20:14:50 / cg"
 !
 
+expand
+    "de-iconify the receiver at its old position"
+
+    shown ifFalse:[
+        self unmap.
+
+        "if it was iconified, try to remap iconified"
+        device mapView:self id:drawableId iconified:false 
+                   atX:left y:top width:width height:height.
+    ].
+
+    "
+     |top|
+
+     top := StandardSystemView new.
+     top label:'hello'.
+     top openAndWait.
+     top collapse.
+     Delay waitForSeconds:5.
+     top expand.
+    "
+
+    "Modified: 1.3.1997 / 20:24:53 / cg"
+!
+
 physicalCreate
     "common code for create & recreate"
 
@@ -1222,5 +1271,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.65 1997-02-28 15:51:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.66 1997-03-01 21:56:19 cg Exp $'
 ! !
--- a/StdSysV.st	Sat Mar 01 20:18:21 1997 +0100
+++ b/StdSysV.st	Sat Mar 01 22:56:19 1997 +0100
@@ -1093,6 +1093,30 @@
 
 !StandardSystemView methodsFor:'realization'!
 
+collapse
+    "iconify the receiver"
+
+    shown ifTrue:[
+        self unmap.
+
+        "if it was iconified, try to remap iconified"
+        device mapView:self id:drawableId iconified:true 
+                   atX:left y:top width:width height:height.
+        shown := false.
+    ].
+
+    "
+     |top|
+
+     top := StandardSystemView new.
+     top label:'hello'.
+     top openAndWait.
+     top collapse
+    "
+
+    "Modified: 1.3.1997 / 20:24:30 / cg"
+!
+
 create
     "create - make certain that icon is available"
 
@@ -1110,6 +1134,31 @@
     "Modified: 10.6.1996 / 20:14:50 / cg"
 !
 
+expand
+    "de-iconify the receiver at its old position"
+
+    shown ifFalse:[
+        self unmap.
+
+        "if it was iconified, try to remap iconified"
+        device mapView:self id:drawableId iconified:false 
+                   atX:left y:top width:width height:height.
+    ].
+
+    "
+     |top|
+
+     top := StandardSystemView new.
+     top label:'hello'.
+     top openAndWait.
+     top collapse.
+     Delay waitForSeconds:5.
+     top expand.
+    "
+
+    "Modified: 1.3.1997 / 20:24:53 / cg"
+!
+
 physicalCreate
     "common code for create & recreate"
 
@@ -1222,5 +1271,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.65 1997-02-28 15:51:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.66 1997-03-01 21:56:19 cg Exp $'
 ! !
hg/stx-libview