Button.st
changeset 5453 b1f4397e4bde
parent 5452 83b9d2b7ffff
child 5456 fb510f2ba445
--- a/Button.st	Mon Oct 05 10:53:23 2015 +0200
+++ b/Button.st	Mon Oct 05 14:29:10 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -2194,7 +2192,6 @@
             (c1 notNil and:[c2 notNil]) ifTrue:[
                 border backgroundColor1:c1.
                 border backgroundColor2:c2.
-                "/ border viewBackgroundColor:viewBackground.
                 border color:bc.
                 (GradientBackground new
                         direction:#northSouth;
@@ -2207,7 +2204,6 @@
                 c1 := c2 := bg. 
                 border backgroundColor1:c1.
                 border backgroundColor2:c2.
-                "/ border viewBackgroundColor:viewBackground.
                 border color:bc.
             ].
         ].
@@ -2286,7 +2282,7 @@
     shown ifFalse:[^ self].
     isEnabled := self enabled.
 
-    Transcript showCR:border.
+    "/ Transcript showCR:border.
     
 "/    disabledLogo notNil ifTrue:[
 "/        isEnabled ifFalse:[