# HG changeset patch
# User az
# Date 1317824021 -7200
# Node ID d1db60deb969ff44190226326a4776b849d81992
# Parent  ef15f29888ade89da451be2be4b47d721ef6988a
comment/format in: #initStyle

diff -r ef15f29888ad -r d1db60deb969 PullDownMenu.st
--- a/PullDownMenu.st	Wed Oct 05 16:13:27 2011 +0200
+++ b/PullDownMenu.st	Wed Oct 05 16:13:41 2011 +0200
@@ -1457,8 +1457,6 @@
 
     super initStyle.
 
-"/    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
-
     showSeparatingLines := DefaultSeparatingLines. "/ false.
     DefaultViewBackground notNil ifTrue:[
         viewBackground := DefaultViewBackground onDevice:device
@@ -1524,7 +1522,8 @@
 
     raiseTopWhenActivated := styleSheet at:#'pullDownMenu.raiseTop' default:true.
 
-    "Modified: / 15.9.1998 / 22:58:42 / cg"
+    "Modified: / 15-09-1998 / 22:58:42 / cg"
+    "Modified (comment): / 05-10-2011 / 15:50:54 / az"
 !
 
 initialize
@@ -1815,9 +1814,9 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.105 2011-09-30 16:57:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.106 2011-10-05 14:13:41 az Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.105 2011-09-30 16:57:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.106 2011-10-05 14:13:41 az Exp $'
 ! !