--- 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 $'
! !