206 |
206 |
207 "Created: 4.4.1997 / 20:23:32 / cg" |
207 "Created: 4.4.1997 / 20:23:32 / cg" |
208 "Modified: 4.4.1997 / 20:25:28 / cg" |
208 "Modified: 4.4.1997 / 20:25:28 / cg" |
209 ! |
209 ! |
210 |
210 |
|
211 extent:ext depth:d onDevice:aDevice |
|
212 "create a new form on device, aDevice; depth is what device likes most" |
|
213 |
|
214 ^ self width:ext x height:ext y depth:d onDevice:aDevice |
|
215 |
|
216 "Created: 4.4.1997 / 20:23:32 / cg" |
|
217 "Modified: 4.4.1997 / 20:25:28 / cg" |
|
218 ! |
|
219 |
211 extent:ext fromArray:data |
220 extent:ext fromArray:data |
212 "create a new form, take dimensions from ext, bits from data. |
221 "create a new form, take dimensions from ext, bits from data. |
213 Smalltalk-80 compatibility." |
222 Smalltalk-80 compatibility." |
214 |
223 |
215 ^ self width:(ext x) height:(ext y) offset:0@0 fromArray:data |
224 ^ self width:(ext x) height:(ext y) offset:0@0 fromArray:data |
228 ^ self width:(ext x) height:(ext y) offset:offs fromArray:data on:aDevice |
237 ^ self width:(ext x) height:(ext y) offset:offs fromArray:data on:aDevice |
229 |
238 |
230 "Created: 10.4.1997 / 15:36:31 / cg" |
239 "Created: 10.4.1997 / 15:36:31 / cg" |
231 ! |
240 ! |
232 |
241 |
|
242 extent:ext fromArray:data offset:offs onDevice:aDevice |
|
243 "create a new form, take dimensions from ext, bits from data." |
|
244 |
|
245 ^ self width:(ext x) height:(ext y) offset:offs fromArray:data onDevice:aDevice |
|
246 |
|
247 "Created: 10.4.1997 / 15:36:31 / cg" |
|
248 ! |
|
249 |
233 extent:ext fromArray:data on:aDevice |
250 extent:ext fromArray:data on:aDevice |
234 "create a new form, take dimensions from ext, bits from data." |
251 "create a new form, take dimensions from ext, bits from data." |
235 |
252 |
236 ^ self width:(ext x) height:(ext y) fromArray:data on:aDevice |
253 ^ self width:(ext x) height:(ext y) fromArray:data on:aDevice |
|
254 |
|
255 "Created: 10.4.1997 / 15:34:34 / cg" |
|
256 "Modified: 10.4.1997 / 15:36:04 / cg" |
|
257 ! |
|
258 |
|
259 extent:ext fromArray:data onDevice:aDevice |
|
260 "create a new form, take dimensions from ext, bits from data." |
|
261 |
|
262 ^ self width:(ext x) height:(ext y) fromArray:data onDevice:aDevice |
237 |
263 |
238 "Created: 10.4.1997 / 15:34:34 / cg" |
264 "Created: 10.4.1997 / 15:34:34 / cg" |
239 "Modified: 10.4.1997 / 15:36:04 / cg" |
265 "Modified: 10.4.1997 / 15:36:04 / cg" |
240 ! |
266 ! |
241 |
267 |
252 ^ self width:ext x height:ext y on:aDevice |
278 ^ self width:ext x height:ext y on:aDevice |
253 |
279 |
254 "Modified: 4.4.1997 / 20:25:07 / cg" |
280 "Modified: 4.4.1997 / 20:25:07 / cg" |
255 ! |
281 ! |
256 |
282 |
|
283 extent:ext onDevice:aDevice |
|
284 "create a new form on device, aDevice; depth is what device likes most" |
|
285 |
|
286 ^ self width:ext x height:ext y onDevice:aDevice |
|
287 |
|
288 "Modified: 4.4.1997 / 20:25:07 / cg" |
|
289 ! |
|
290 |
257 width:w height:h |
291 width:w height:h |
258 "create a new form on the default device" |
292 "create a new form on the default device" |
259 |
293 |
260 |scr| |
294 |scr| |
261 |
295 |
275 |
309 |
276 "Modified: 4.6.1996 / 22:16:51 / cg" |
310 "Modified: 4.6.1996 / 22:16:51 / cg" |
277 ! |
311 ! |
278 |
312 |
279 width:w height:h depth:d on:aDevice |
313 width:w height:h depth:d on:aDevice |
|
314 "create a new form with depth d on device, aDevice" |
|
315 |
|
316 ^ (self onDevice:aDevice) width:w height:h depth:d |
|
317 |
|
318 "Modified: 18.1.1997 / 18:26:03 / cg" |
|
319 ! |
|
320 |
|
321 width:w height:h depth:d onDevice:aDevice |
280 "create a new form with depth d on device, aDevice" |
322 "create a new form with depth d on device, aDevice" |
281 |
323 |
282 ^ (self onDevice:aDevice) width:w height:h depth:d |
324 ^ (self onDevice:aDevice) width:w height:h depth:d |
283 |
325 |
284 "Modified: 18.1.1997 / 18:26:03 / cg" |
326 "Modified: 18.1.1997 / 18:26:03 / cg" |
302 ^ (self onDevice:aDevice) width:w height:h fromArray:anArray |
344 ^ (self onDevice:aDevice) width:w height:h fromArray:anArray |
303 |
345 |
304 "Modified: 18.1.1997 / 18:26:24 / cg" |
346 "Modified: 18.1.1997 / 18:26:24 / cg" |
305 ! |
347 ! |
306 |
348 |
|
349 width:w height:h fromArray:anArray onDevice:aDevice |
|
350 "create a new form on device, aDevice and |
|
351 initialize the pixels from anArray" |
|
352 |
|
353 ^ (self onDevice:aDevice) width:w height:h fromArray:anArray |
|
354 |
|
355 "Modified: 18.1.1997 / 18:26:24 / cg" |
|
356 ! |
|
357 |
307 width:w height:h offset:offs fromArray:anArray |
358 width:w height:h offset:offs fromArray:anArray |
308 "create a new form on the default device" |
359 "create a new form on the default device" |
309 |
360 |
310 |scr| |
361 |scr| |
311 |
362 |
321 |
372 |
322 "Modified: 18.1.1997 / 18:26:28 / cg" |
373 "Modified: 18.1.1997 / 18:26:28 / cg" |
323 "Created: 10.4.1997 / 15:35:07 / cg" |
374 "Created: 10.4.1997 / 15:35:07 / cg" |
324 ! |
375 ! |
325 |
376 |
|
377 width:w height:h offset:offs fromArray:anArray onDevice:aDevice |
|
378 "create a new form on the default device" |
|
379 |
|
380 ^ (self onDevice:aDevice) width:w height:h offset:offs fromArray:anArray |
|
381 |
|
382 "Modified: 18.1.1997 / 18:26:28 / cg" |
|
383 "Created: 10.4.1997 / 15:35:07 / cg" |
|
384 ! |
|
385 |
326 width:w height:h on:aDevice |
386 width:w height:h on:aDevice |
|
387 "create a new form on device, aDevice; depth is what device likes most" |
|
388 |
|
389 ^ (self onDevice:aDevice) width:w height:h |
|
390 |
|
391 "Modified: 18.1.1997 / 18:26:31 / cg" |
|
392 ! |
|
393 |
|
394 width:w height:h onDevice:aDevice |
327 "create a new form on device, aDevice; depth is what device likes most" |
395 "create a new form on device, aDevice; depth is what device likes most" |
328 |
396 |
329 ^ (self onDevice:aDevice) width:w height:h |
397 ^ (self onDevice:aDevice) width:w height:h |
330 |
398 |
331 "Modified: 18.1.1997 / 18:26:31 / cg" |
399 "Modified: 18.1.1997 / 18:26:31 / cg" |