equal
deleted
inserted
replaced
421 |
421 |
422 ^ self withCursor:Cursor wait do:aBlock |
422 ^ self withCursor:Cursor wait do:aBlock |
423 ! ! |
423 ! ! |
424 |
424 |
425 !ApplicationModel methodsFor:'queries'! |
425 !ApplicationModel methodsFor:'queries'! |
|
426 |
|
427 graphicsDevice |
|
428 "return the device I want to open my views on. |
|
429 The default (if not created with #onDevice:) is the currently |
|
430 active screen." |
|
431 |
|
432 ^ device |
|
433 |
|
434 "Created: 5.7.1996 / 17:51:31 / cg" |
|
435 ! |
426 |
436 |
427 processName |
437 processName |
428 "return a name to be shown for me in the process monitor" |
438 "return a name to be shown for me in the process monitor" |
429 |
439 |
430 ^ 'Application' |
440 ^ 'Application' |
620 ! ! |
630 ! ! |
621 |
631 |
622 !ApplicationModel class methodsFor:'documentation'! |
632 !ApplicationModel class methodsFor:'documentation'! |
623 |
633 |
624 version |
634 version |
625 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.28 1996-07-05 10:19:31 cg Exp $' |
635 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.29 1996-07-05 16:00:35 cg Exp $' |
626 ! ! |
636 ! ! |
627 ApplicationModel initialize! |
637 ApplicationModel initialize! |