equal
deleted
inserted
replaced
2234 self valueOfCanPasteWithKeepingLayout value: (canPaste "& self canKeepLayoutInSelection"). |
2234 self valueOfCanPasteWithKeepingLayout value: (canPaste "& self canKeepLayoutInSelection"). |
2235 |
2235 |
2236 "Modified: / 16.7.1998 / 19:13:30 / cg" |
2236 "Modified: / 16.7.1998 / 19:13:30 / cg" |
2237 ! ! |
2237 ! ! |
2238 |
2238 |
|
2239 !UIPainter methodsFor:'defaults'! |
|
2240 |
|
2241 aboutImage |
|
2242 "the image to be displayed in my about-box; |
|
2243 If nil is returned, thhe ST/X default image is used." |
|
2244 |
|
2245 ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/setup_windows.xpm' |
|
2246 |
|
2247 "Created: / 13.8.1998 / 20:33:05 / cg" |
|
2248 ! ! |
|
2249 |
2239 !UIPainter methodsFor:'event handling'! |
2250 !UIPainter methodsFor:'event handling'! |
2240 |
2251 |
2241 doesNotUnderstand:aMessage |
2252 doesNotUnderstand:aMessage |
2242 "if does not understand incoming messages, detour them to painter" |
2253 "if does not understand incoming messages, detour them to painter" |
2243 |
2254 |