--- a/ColorMenu.st	Thu Sep 12 15:54:37 2002 +0200
+++ b/ColorMenu.st	Thu Sep 12 15:58:36 2002 +0200
@@ -257,7 +257,7 @@
 
     super model:aValueHolder.
     model notNil ifTrue:[
-        self updateFomModel
+        self updateFromModel
     ]
 ! !
 
@@ -272,7 +272,7 @@
 
 !ColorMenu methodsFor:'change & update'!
 
-updateFomModel
+updateFromModel
     self color:(model value)
 ! !
 
@@ -892,5 +892,5 @@
 !ColorMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.29 2002-09-12 13:39:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.30 2002-09-12 13:58:36 cg Exp $'
 ! !