equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
289 ! |
291 ! |
290 |
292 |
291 width:w height:h depth:d onDevice:aDevice |
293 width:w height:h depth:d onDevice:aDevice |
292 "create a new form with depth d on device, aDevice" |
294 "create a new form with depth d on device, aDevice" |
293 |
295 |
294 ^ (self onDevice:aDevice) width:w height:h depth:d |
296 ^ (self onDevice:aDevice) width:w height:h depth:d. |
295 |
297 |
296 "Modified: 18.1.1997 / 18:26:03 / cg" |
298 "Modified: 18.1.1997 / 18:26:03 / cg" |
297 ! |
299 ! |
298 |
300 |
299 width:w height:h fromArray:anArray |
301 width:w height:h fromArray:anArray |
1239 |
1241 |
1240 "Modified: 23.4.1996 / 10:12:48 / cg" |
1242 "Modified: 23.4.1996 / 10:12:48 / cg" |
1241 ! ! |
1243 ! ! |
1242 |
1244 |
1243 |
1245 |
1244 |
|
1245 !Form methodsFor:'converting'! |
1246 !Form methodsFor:'converting'! |
1246 |
1247 |
1247 asForm |
1248 asForm |
1248 "convert & return the receiver into a Form instance - nothing to be done here" |
1249 "convert & return the receiver into a Form instance - nothing to be done here" |
1249 |
1250 |
1906 localColorMap := BlackAndWhiteColorMap. |
1907 localColorMap := BlackAndWhiteColorMap. |
1907 ]. |
1908 ]. |
1908 ]. |
1909 ]. |
1909 device notNil ifTrue:[ |
1910 device notNil ifTrue:[ |
1910 gc createPixmapWidth:w height:h depth:d. |
1911 gc createPixmapWidth:w height:h depth:d. |
1911 realized := true. |
1912 drawableId notNil ifTrue:[ |
|
1913 realized := true. |
|
1914 ]. |
1912 ]. |
1915 ]. |
1913 ! |
1916 ! |
1914 |
1917 |
1915 width:wIn height:hIn fromArray:anArray |
1918 width:wIn height:hIn fromArray:anArray |
1916 "actual create of a monochrome form from array. |
1919 "actual create of a monochrome form from array. |