--- a/UpDownButton.st	Mon Jul 23 17:23:31 2001 +0200
+++ b/UpDownButton.st	Wed Jul 25 19:48:07 2001 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libwidg2' }"
+
 View subclass:#UpDownButton
 	instanceVariableNames:'orientation upButton downButton'
 	classVariableNames:''
@@ -290,7 +292,9 @@
 keyPress:aKey x:x y:y
     "simulate a buttonPress/release"
 
-    |theButton theController|
+    <resource: #keyboard (#CursorRight #CursorUp #CursorLeft #CursorDown #+ #-)>
+
+   |theButton theController|
 
     ((aKey == #CursorUp)
     or:[aKey == #CursorRight
@@ -387,5 +391,5 @@
 !UpDownButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.16 2000-02-18 14:41:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.17 2001-07-25 17:48:07 stefan Exp $'
 ! !