# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 996083287 -7200
# Node ID 5975d3dd731490437301c4e715308ce2ebc563bc
# Parent  bc32242dc2c37f27f3b900f6c766c15e1632971a
Define resources

diff -r bc32242dc2c3 -r 5975d3dd7314 UpDownButton.st
--- 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 $'
 ! !