diff -r 1ae2428ad1e5 -r da0fdfe54c4e ColorMenu.st --- a/ColorMenu.st Tue Dec 04 09:23:13 2007 +0100 +++ b/ColorMenu.st Wed Dec 05 10:21:03 2007 +0100 @@ -90,7 +90,7 @@ aTitle isEmptyOrNil ifTrue:[ label := labels at:1 ifAbsent:defLabel ] ifFalse:[ label := aTitle ]. - label := Text string:label foregroundColor:fgColor backgroundColor:bgColor. + label := Text string:(' ', label, ' ') foregroundColor:fgColor backgroundColor:bgColor. item := MenuItem labeled:label. submenu addItem:item. @@ -104,7 +104,7 @@ ifFalse:[ fgColor := Color black ]. label := labels at:idx ifAbsent:defLabel. - label := Text string:label foregroundColor:fgColor backgroundColor:aBgColor. + label := Text string:(' ', label, ' ') foregroundColor:fgColor backgroundColor:aBgColor. item := MenuItem labeled:label. item argument:aBgColor. @@ -207,7 +207,7 @@ label isNil ifTrue:[ label := getColSel, ' ', el printString. ]. - subItem := MenuItem label:'Color ', label. + subItem := MenuItem label:' Color ', label, ' '. subItem argument:color. submenu addItem:subItem. ]. @@ -477,5 +477,5 @@ !ColorMenu class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.39 2007-12-04 08:23:13 ca Exp $' + ^ '$Header: /cvs/stx/stx/libwidg2/ColorMenu.st,v 1.40 2007-12-05 09:21:03 ca Exp $' ! !