equal
deleted
inserted
replaced
970 Display displayString:'hello' x:10 y:10. |
970 Display displayString:'hello' x:10 y:10. |
971 ] |
971 ] |
972 " |
972 " |
973 |
973 |
974 "Modified: 15.10.1997 / 19:29:10 / cg" |
974 "Modified: 15.10.1997 / 19:29:10 / cg" |
|
975 ! |
|
976 |
|
977 fillWhite |
|
978 "fill all of the display with white. |
|
979 Added to allow for some squeak examples to be evaluated ..." |
|
980 |
|
981 self fillWhite:(self bounds) |
|
982 |
|
983 " |
|
984 Display restoreAfter:[ |
|
985 Display fillWhite |
|
986 ] |
|
987 " |
|
988 " |
|
989 Display restoreAfter:[ |
|
990 Display fillWhite:(10@10 corner:100@100) |
|
991 ] |
|
992 " |
|
993 |
|
994 "Modified: 15.10.1997 / 19:28:17 / cg" |
975 ! |
995 ! |
976 |
996 |
977 fillWhite:aRectangle |
997 fillWhite:aRectangle |
978 "fill a rectangular area on the display with white. |
998 "fill a rectangular area on the display with white. |
979 Added to allow for some squeak examples to be evaluated ..." |
999 Added to allow for some squeak examples to be evaluated ..." |
7209 ! ! |
7229 ! ! |
7210 |
7230 |
7211 !DeviceWorkstation class methodsFor:'documentation'! |
7231 !DeviceWorkstation class methodsFor:'documentation'! |
7212 |
7232 |
7213 version |
7233 version |
7214 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.387 2000-11-23 18:41:54 cg Exp $' |
7234 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.388 2000-12-01 15:21:51 cg Exp $' |
7215 ! ! |
7235 ! ! |
7216 DeviceWorkstation initialize! |
7236 DeviceWorkstation initialize! |