checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 28 May 1996 20:32:54 +0200
changeset 704 5989a3af6207
parent 703 8889152157c9
child 705 e2e7e718eb93
checkin from browser
ButtonC.st
ButtonController.st
--- a/ButtonC.st	Tue May 28 20:31:30 1996 +0200
+++ b/ButtonC.st	Tue May 28 20:32:54 1996 +0200
@@ -538,7 +538,7 @@
 "/                active := false.
 
                 autoRepeat ifTrue:[
-                    view device shiftDown ifTrue:[
+                    view graphicsDevice shiftDown ifTrue:[
                         dly := repeatDelay / 4.
                     ] ifFalse:[
                         dly := repeatDelay
@@ -549,7 +549,7 @@
         ]
     ]
 
-    "Modified: 27.2.1996 / 14:48:13 / cg"
+    "Modified: 28.5.1996 / 20:21:24 / cg"
 ! !
 
 !ButtonController methodsFor:'initialization'!
@@ -573,5 +573,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.32 1996-04-30 13:12:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.33 1996-05-28 18:32:54 cg Exp $'
 ! !
--- a/ButtonController.st	Tue May 28 20:31:30 1996 +0200
+++ b/ButtonController.st	Tue May 28 20:32:54 1996 +0200
@@ -538,7 +538,7 @@
 "/                active := false.
 
                 autoRepeat ifTrue:[
-                    view device shiftDown ifTrue:[
+                    view graphicsDevice shiftDown ifTrue:[
                         dly := repeatDelay / 4.
                     ] ifFalse:[
                         dly := repeatDelay
@@ -549,7 +549,7 @@
         ]
     ]
 
-    "Modified: 27.2.1996 / 14:48:13 / cg"
+    "Modified: 28.5.1996 / 20:21:24 / cg"
 ! !
 
 !ButtonController methodsFor:'initialization'!
@@ -573,5 +573,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.32 1996-04-30 13:12:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.33 1996-05-28 18:32:54 cg Exp $'
 ! !