--- a/FontMenu.st	Thu Nov 24 19:02:25 2011 +0100
+++ b/FontMenu.st	Tue Nov 29 11:27:41 2011 +0100
@@ -586,9 +586,11 @@
     "set my model"
 
     super model:aValueHolder.
-    model ifNotNil:[
+    model notNil ifTrue:[
         self updateFromModel
     ].
+
+    "Modified: / 29-11-2011 / 11:27:31 / cg"
 ! !
 
 !FontMenu methodsFor:'accessing-dimensions'!
@@ -667,9 +669,11 @@
 !
 
 updateModel
-    model ifNotNil:[
+    model notNil ifTrue:[
         model value:(self fontDescription) withoutNotifying:self
     ].
+
+    "Modified: / 29-11-2011 / 11:27:35 / cg"
 ! !
 
 !FontMenu methodsFor:'help'!
@@ -835,9 +839,9 @@
 !FontMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.28 2011-02-04 16:24:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.29 2011-11-29 10:27:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.28 2011-02-04 16:24:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.29 2011-11-29 10:27:41 cg Exp $'
 ! !