--- a/Button.st	Wed Oct 05 16:10:30 2011 +0200
+++ b/Button.st	Wed Oct 05 16:10:51 2011 +0200
@@ -1776,8 +1776,6 @@
 
     super initStyle.
 
-"/    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
-
     DefaultBorderWidth notNil ifTrue:[self borderWidth: DefaultBorderWidth].
     DefaultForegroundColor notNil ifTrue:[fgColor := DefaultForegroundColor].
     DefaultBackgroundColor notNil ifTrue:[bgColor := DefaultBackgroundColor].
@@ -1902,7 +1900,8 @@
 "/        self border:(RoundButtonBorder width:2 color:Color grey).
 "/    ].
 
-    "Modified: / 20.8.1998 / 12:07:37 / cg"
+    "Modified: / 20-08-1998 / 12:07:37 / cg"
+    "Modified (comment): / 05-10-2011 / 15:51:19 / az"
 !
 
 initialize
@@ -2311,9 +2310,9 @@
 !Button class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.151 2010-10-22 13:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.152 2011-10-05 14:10:51 az Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.151 2010-10-22 13:55:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.152 2011-10-05 14:10:51 az Exp $'
 ! !