equal
deleted
inserted
replaced
1235 ! ! |
1235 ! ! |
1236 |
1236 |
1237 !XWorkstation methodsFor:'bitmap/window creation'! |
1237 !XWorkstation methodsFor:'bitmap/window creation'! |
1238 |
1238 |
1239 createBitmapFromArray:anArray width:w height:h |
1239 createBitmapFromArray:anArray width:w height:h |
|
1240 "create a monochrome, depth1 bitmap from a given (byte-)array. |
|
1241 The rows are aligned to a multiple of 8" |
|
1242 |
1240 |bitmapId| |
1243 |bitmapId| |
1241 |
1244 |
1242 bitmapId := self primCreateBitmapFromArray:anArray width:w height:h. |
1245 bitmapId := self primCreateBitmapFromArray:anArray width:w height:h. |
1243 bitmapId isNil ifTrue:[ |
1246 bitmapId isNil ifTrue:[ |
1244 self primitiveFailed |
1247 self primitiveFailed |
1245 ]. |
1248 ]. |
1246 ^ bitmapId |
1249 ^ bitmapId |
1247 ! |
1250 ! |
1248 |
1251 |
1249 createBitmapFromFile:aString for:aForm |
1252 createBitmapFromFile:aString for:aForm |
10179 ! ! |
10182 ! ! |
10180 |
10183 |
10181 !XWorkstation class methodsFor:'documentation'! |
10184 !XWorkstation class methodsFor:'documentation'! |
10182 |
10185 |
10183 version |
10186 version |
10184 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.324 1999-08-28 20:18:12 cg Exp $' |
10187 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.325 1999-09-10 16:16:27 cg Exp $' |
10185 ! ! |
10188 ! ! |
10186 XWorkstation initialize! |
10189 XWorkstation initialize! |