--- a/UpDownButton.st	Mon Mar 09 22:21:33 1998 +0100
+++ b/UpDownButton.st	Mon Mar 09 22:26:40 1998 +0100
@@ -56,16 +56,104 @@
 
 !UpDownButton methodsFor:'accessing-behavior'!
 
+disable
+
+    upButton disable.
+    downButton disable.
+!
+
 downAction:aBlock
 
     downButton action:aBlock
 !
 
+enable
+
+    upButton enable.
+    downButton enable.
+!
+
+showFocus:explicit 
+
+    upButton enabled ifTrue: [super showFocus:explicit]
+!
+
 upAction:aBlock
 
     upButton action:aBlock
 ! !
 
+!UpDownButton methodsFor:'accessing-channels'!
+
+backgroundChannel
+
+    upButton backgroundChannel
+!
+
+backgroundChannel: aValueHolder
+
+    upButton backgroundChannel: aValueHolder.
+    downButton backgroundChannel: aValueHolder
+!
+
+enableChannel
+
+    upButton enableChannel
+!
+
+enableChannel: aValueHolder
+
+    upButton enableChannel: aValueHolder.
+    downButton enableChannel: aValueHolder
+!
+
+foregroundChannel
+
+    upButton foregroundChannel
+!
+
+foregroundChannel: aValueHolder
+
+    upButton foregroundChannel: aValueHolder.
+    downButton foregroundChannel: aValueHolder
+! !
+
+!UpDownButton methodsFor:'accessing-colors'!
+
+backgroundColor
+
+    ^upButton bgColor
+
+!
+
+backgroundColor:aColor
+
+    aColor ~~ upButton backgroundColor ifTrue:[
+        upButton backgroundColor:aColor.
+        downButton backgroundColor:aColor.
+        shown ifTrue:[self invalidate]
+    ]
+!
+
+foregroundColor
+
+    ^upButton fgColor
+
+!
+
+foregroundColor:aColor
+
+    aColor ~~ upButton foregroundColor ifTrue:[
+        upButton foregroundColor:aColor.
+        downButton foregroundColor:aColor.
+        shown ifTrue:[self invalidate]
+    ]
+!
+
+model:aModel
+    "ignore models"
+! !
+
 !UpDownButton methodsFor:'accessing-components'!
 
 downButton
@@ -153,5 +241,5 @@
 !UpDownButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.6 1998-02-25 21:39:49 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.7 1998-03-09 21:26:40 tz Exp $'
 ! !