equal
deleted
inserted
replaced
1988 |
1988 |
1989 |style| |
1989 |style| |
1990 |
1990 |
1991 super initStyle. |
1991 super initStyle. |
1992 |
1992 |
1993 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
|
1994 |
|
1995 DefaultCheckColor notNil ifTrue:[ |
1993 DefaultCheckColor notNil ifTrue:[ |
1996 checkColor := DefaultCheckColor |
1994 checkColor := DefaultCheckColor |
1997 ] ifFalse:[ |
1995 ] ifFalse:[ |
1998 checkColor := fgColor. |
1996 checkColor := fgColor. |
1999 ]. |
1997 ]. |
2095 ]. |
2093 ]. |
2096 DefaultViewBackground notNil ifTrue:[ |
2094 DefaultViewBackground notNil ifTrue:[ |
2097 viewBackground := DefaultViewBackground onDevice:device |
2095 viewBackground := DefaultViewBackground onDevice:device |
2098 ]. |
2096 ]. |
2099 |
2097 |
2100 "Modified: 22.1.1997 / 11:57:23 / cg" |
2098 "Modified: / 22-01-1997 / 11:57:23 / cg" |
|
2099 "Modified (comment): / 05-10-2011 / 15:50:59 / az" |
2101 ! |
2100 ! |
2102 |
2101 |
2103 initialize |
2102 initialize |
2104 |style| |
2103 |style| |
2105 |
2104 |
2978 ! ! |
2977 ! ! |
2979 |
2978 |
2980 !MenuView class methodsFor:'documentation'! |
2979 !MenuView class methodsFor:'documentation'! |
2981 |
2980 |
2982 version |
2981 version |
2983 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.168 2011-01-22 14:32:38 cg Exp $' |
2982 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.169 2011-10-05 14:13:05 az Exp $' |
2984 ! |
2983 ! |
2985 |
2984 |
2986 version_CVS |
2985 version_CVS |
2987 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.168 2011-01-22 14:32:38 cg Exp $' |
2986 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.169 2011-10-05 14:13:05 az Exp $' |
2988 ! ! |
2987 ! ! |