equal
deleted
inserted
replaced
341 "nothing done here; |
341 "nothing done here; |
342 but can be redefined in concrete applications" |
342 but can be redefined in concrete applications" |
343 ! ! |
343 ! ! |
344 |
344 |
345 !ApplicationModel methodsFor:'misc'! |
345 !ApplicationModel methodsFor:'misc'! |
|
346 |
|
347 restoreCursors |
|
348 "restore the original cursors in all of my views" |
|
349 |
|
350 ^ self window windowGroup restoreCursors |
|
351 |
|
352 "Created: 1.6.1996 / 17:01:24 / cg" |
|
353 ! |
|
354 |
|
355 showCursor:aCursor |
|
356 "set all of my views cursor to aCursor. |
|
357 It can be restored with #restoreCursor." |
|
358 |
|
359 ^ self window windowGroup showCursor:aCursor |
|
360 |
|
361 "Created: 1.6.1996 / 17:01:09 / cg" |
|
362 ! |
346 |
363 |
347 withCursor:aCursor do:aBlock |
364 withCursor:aCursor do:aBlock |
348 "evaluate aBlock, showing aCursor in my topView and all of its subviews. |
365 "evaluate aBlock, showing aCursor in my topView and all of its subviews. |
349 Return the value of aBlock." |
366 Return the value of aBlock." |
350 |
367 |
532 Can be redefined in subclasses. |
549 Can be redefined in subclasses. |
533 mhmh - what should this do here ?" |
550 mhmh - what should this do here ?" |
534 ! |
551 ! |
535 |
552 |
536 restarted |
553 restarted |
537 "sent by my windowGroup, when restarted from an image. |
554 "sent by my topWindow, when restarted from an image. |
538 Nothing done here, but can be redefined to perform any actions |
555 Nothing done here, but can be redefined to perform any actions |
539 required to reset the application after an image-restart. |
556 required to reset the application after an image-restart. |
540 (for example: check if application files are still around, restart |
557 (for example: check if application files are still around, restart |
541 subprocesses etc.)." |
558 subprocesses etc.)." |
|
559 |
|
560 "Modified: 1.6.1996 / 16:55:50 / cg" |
542 ! |
561 ! |
543 |
562 |
544 saveAndTerminateRequest |
563 saveAndTerminateRequest |
545 "some windowManagers send this to shut down an application |
564 "some windowManagers send this to shut down an application |
546 and have it save its state for restart. |
565 and have it save its state for restart. |
573 ! ! |
592 ! ! |
574 |
593 |
575 !ApplicationModel class methodsFor:'documentation'! |
594 !ApplicationModel class methodsFor:'documentation'! |
576 |
595 |
577 version |
596 version |
578 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.24 1996-05-03 11:46:53 cg Exp $' |
597 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.25 1996-06-01 15:06:03 cg Exp $' |
579 ! ! |
598 ! ! |
580 ApplicationModel initialize! |
599 ApplicationModel initialize! |