Mercurial Mercurial > hg > stx-libwidg / 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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 19 Dec 1996 16:12:52 +0100
changeset 901 fb2ed5eaaa37
parent 900 0541b96dd173
child 902 426fc02df6b9
*** empty log message ***
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Thu Dec 19 14:52:21 1996 +0100
+++ b/ArrButton.st	Thu Dec 19 16:12:52 1996 +0100
@@ -238,7 +238,8 @@
             form capStyle:#round.
             form paint:(Color colorId:1).
             form displayLineFromX:0 y:2 toX:4 y:6.
-            form displayLineFromX:4 y:6 toX:8 y:2 
+            form displayLineFromX:4 y:6 toX:8 y:2.
+            form beImmediateForm.
         ] ifFalse:[
             form  := Form width:16 height:16 
                           fromArray:#[2r00000000 2r00000000
@@ -261,8 +262,6 @@
             form isNil ifTrue:[^ nil].
         ].
     ].
-    form := form on:aDevice.
-    form beImmediateForm.
 
     "
      remember form for next use
@@ -330,6 +329,7 @@
             form paint:(Color colorId:1).
             form displayLineFromX:6 y:0 toX:2 y:4.
             form displayLineFromX:2 y:4 toX:6 y:8.
+            form beImmediateForm.
         ] ifFalse:[
             form := Form width:16 height:16 
                          fromArray:#[2r00000000 2r00000000
@@ -352,8 +352,6 @@
             form isNil ifTrue:[^ nil].
         ].
     ].
-    form := form on:aDevice.
-    form beImmediateForm.
 
     "
      remember form for next use
@@ -420,7 +418,8 @@
             form capStyle:#round.
             form paint:(Color colorId:1).
             form displayLineFromX:2 y:0 toX:6 y:4.
-            form displayLineFromX:6 y:4 toX:2 y:8 
+            form displayLineFromX:6 y:4 toX:2 y:8.
+            form beImmediateForm.
         ] ifFalse:[
             form := Form width:16 height:16 
                          fromArray:#[2r00000000 2r00000000
@@ -443,8 +442,6 @@
             form isNil ifTrue:[^ nil].
         ].
     ].
-    form := form on:aDevice.
-    form beImmediateForm.
 
     "
      remember form for next use
@@ -512,6 +509,7 @@
             form paint:(Color colorId:1).
             form displayLineFromX:0 y:6 toX:4 y:2.
             form displayLineFromX:4 y:2 toX:8 y:6.
+            form beImmediateForm.
         ] ifFalse:[
             form := Form width:16 height:16 
                          fromArray:#[2r00000000 2r00000000
@@ -535,9 +533,6 @@
         ].
     ].
 
-    form := form on:aDevice.
-    form beImmediateForm.
-
     "
      remember form for next use
     "
@@ -780,5 +775,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.29 1996-12-19 13:49:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.30 1996-12-19 15:12:52 cg Exp $'
 ! !
--- a/ArrowButton.st	Thu Dec 19 14:52:21 1996 +0100
+++ b/ArrowButton.st	Thu Dec 19 16:12:52 1996 +0100
@@ -238,7 +238,8 @@
             form capStyle:#round.
             form paint:(Color colorId:1).
             form displayLineFromX:0 y:2 toX:4 y:6.
-            form displayLineFromX:4 y:6 toX:8 y:2 
+            form displayLineFromX:4 y:6 toX:8 y:2.
+            form beImmediateForm.
         ] ifFalse:[
             form  := Form width:16 height:16 
                           fromArray:#[2r00000000 2r00000000
@@ -261,8 +262,6 @@
             form isNil ifTrue:[^ nil].
         ].
     ].
-    form := form on:aDevice.
-    form beImmediateForm.
 
     "
      remember form for next use
@@ -330,6 +329,7 @@
             form paint:(Color colorId:1).
             form displayLineFromX:6 y:0 toX:2 y:4.
             form displayLineFromX:2 y:4 toX:6 y:8.
+            form beImmediateForm.
         ] ifFalse:[
             form := Form width:16 height:16 
                          fromArray:#[2r00000000 2r00000000
@@ -352,8 +352,6 @@
             form isNil ifTrue:[^ nil].
         ].
     ].
-    form := form on:aDevice.
-    form beImmediateForm.
 
     "
      remember form for next use
@@ -420,7 +418,8 @@
             form capStyle:#round.
             form paint:(Color colorId:1).
             form displayLineFromX:2 y:0 toX:6 y:4.
-            form displayLineFromX:6 y:4 toX:2 y:8 
+            form displayLineFromX:6 y:4 toX:2 y:8.
+            form beImmediateForm.
         ] ifFalse:[
             form := Form width:16 height:16 
                          fromArray:#[2r00000000 2r00000000
@@ -443,8 +442,6 @@
             form isNil ifTrue:[^ nil].
         ].
     ].
-    form := form on:aDevice.
-    form beImmediateForm.
 
     "
      remember form for next use
@@ -512,6 +509,7 @@
             form paint:(Color colorId:1).
             form displayLineFromX:0 y:6 toX:4 y:2.
             form displayLineFromX:4 y:2 toX:8 y:6.
+            form beImmediateForm.
         ] ifFalse:[
             form := Form width:16 height:16 
                          fromArray:#[2r00000000 2r00000000
@@ -535,9 +533,6 @@
         ].
     ].
 
-    form := form on:aDevice.
-    form beImmediateForm.
-
     "
      remember form for next use
     "
@@ -780,5 +775,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.29 1996-12-19 13:49:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.30 1996-12-19 15:12:52 cg Exp $'
 ! !
hg/stx-libwidg