equal
deleted
inserted
replaced
1766 |
1766 |
1767 super initStyle. |
1767 super initStyle. |
1768 |
1768 |
1769 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
1769 "/ DefaultFont notNil ifTrue:[font := DefaultFont on:device]. |
1770 |
1770 |
1771 DefaultBorderWidth notNil ifTrue:[borderWidth := DefaultBorderWidth]. |
1771 DefaultBorderWidth notNil ifTrue:[self borderWidth: DefaultBorderWidth]. |
1772 DefaultForegroundColor notNil ifTrue:[fgColor := DefaultForegroundColor]. |
1772 DefaultForegroundColor notNil ifTrue:[fgColor := DefaultForegroundColor]. |
1773 DefaultBackgroundColor notNil ifTrue:[bgColor := DefaultBackgroundColor]. |
1773 DefaultBackgroundColor notNil ifTrue:[bgColor := DefaultBackgroundColor]. |
1774 |
1774 |
1775 edgeStyle := DefaultEdgeStyle. |
1775 edgeStyle := DefaultEdgeStyle. |
1776 onLevel := DefaultActiveLevel. |
1776 onLevel := DefaultActiveLevel. |
2293 ! ! |
2293 ! ! |
2294 |
2294 |
2295 !Button class methodsFor:'documentation'! |
2295 !Button class methodsFor:'documentation'! |
2296 |
2296 |
2297 version |
2297 version |
2298 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.146 2009-10-21 14:27:58 cg Exp $' |
2298 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.147 2009-10-23 15:22:01 cg Exp $' |
2299 ! |
2299 ! |
2300 |
2300 |
2301 version_CVS |
2301 version_CVS |
2302 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.146 2009-10-21 14:27:58 cg Exp $' |
2302 ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.147 2009-10-23 15:22:01 cg Exp $' |
2303 ! ! |
2303 ! ! |