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.
use device shiftDown - NOT sensor shiftDown
authorClaus Gittinger <cg@exept.de>
Tue, 27 Feb 1996 14:51:16 +0100
changeset 417 3f48ca2beb7d
parent 416 ac9754b3df67
child 418 777061f25321
use device shiftDown - NOT sensor shiftDown
ButtonC.st file | annotate | diff | comparison | revisions
ButtonController.st file | annotate | diff | comparison | revisions 
--- a/ButtonC.st	Tue Feb 27 02:12:42 1996 +0100
+++ b/ButtonC.st	Tue Feb 27 14:51:16 1996 +0100
@@ -525,25 +525,27 @@
     |dly|
 
     pressed ifTrue:[
-	enableChannel value ifTrue:[
-	    active ifFalse:[
-		self performAction.
+        enableChannel value ifTrue:[
+            active ifFalse:[
+                self performAction.
 "/                active := true.
 "/                releaseActionBlock notNil ifTrue:[releaseActionBlock value].
 "/                pressActionBlock notNil ifTrue:[pressActionBlock value].
 "/                active := false.
 
-		autoRepeat ifTrue:[
-		    self sensor shiftDown ifTrue:[
-			dly := repeatDelay / 4.
-		    ] ifFalse:[
-			dly := repeatDelay
-		    ].
-		    Processor addTimedBlock:repeatBlock afterSeconds:dly
-		]
-	    ]
-	]
+                autoRepeat ifTrue:[
+                    view device shiftDown ifTrue:[
+                        dly := repeatDelay / 4.
+                    ] ifFalse:[
+                        dly := repeatDelay
+                    ].
+                    Processor addTimedBlock:repeatBlock afterSeconds:dly
+                ]
+            ]
+        ]
     ]
+
+    "Modified: 27.2.1996 / 14:48:13 / cg"
 ! !
 
 !ButtonController methodsFor:'initialization'!
@@ -567,5 +569,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.29 1996-02-09 22:13:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.30 1996-02-27 13:51:16 cg Exp $'
 ! !
--- a/ButtonController.st	Tue Feb 27 02:12:42 1996 +0100
+++ b/ButtonController.st	Tue Feb 27 14:51:16 1996 +0100
@@ -525,25 +525,27 @@
     |dly|
 
     pressed ifTrue:[
-	enableChannel value ifTrue:[
-	    active ifFalse:[
-		self performAction.
+        enableChannel value ifTrue:[
+            active ifFalse:[
+                self performAction.
 "/                active := true.
 "/                releaseActionBlock notNil ifTrue:[releaseActionBlock value].
 "/                pressActionBlock notNil ifTrue:[pressActionBlock value].
 "/                active := false.
 
-		autoRepeat ifTrue:[
-		    self sensor shiftDown ifTrue:[
-			dly := repeatDelay / 4.
-		    ] ifFalse:[
-			dly := repeatDelay
-		    ].
-		    Processor addTimedBlock:repeatBlock afterSeconds:dly
-		]
-	    ]
-	]
+                autoRepeat ifTrue:[
+                    view device shiftDown ifTrue:[
+                        dly := repeatDelay / 4.
+                    ] ifFalse:[
+                        dly := repeatDelay
+                    ].
+                    Processor addTimedBlock:repeatBlock afterSeconds:dly
+                ]
+            ]
+        ]
     ]
+
+    "Modified: 27.2.1996 / 14:48:13 / cg"
 ! !
 
 !ButtonController methodsFor:'initialization'!
@@ -567,5 +569,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.29 1996-02-09 22:13:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.30 1996-02-27 13:51:16 cg Exp $'
 ! !
hg/stx-libwidg