equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 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 |
279 TakeFocusWhenMapped := aBoolean |
281 TakeFocusWhenMapped := aBoolean |
280 |
282 |
281 " |
283 " |
282 StandardSystemView takeFocusWhenMapped:true |
284 StandardSystemView takeFocusWhenMapped:true |
283 " |
285 " |
|
286 ! ! |
|
287 |
|
288 !TopView class methodsFor:'help'! |
|
289 |
|
290 helpSpec |
|
291 ^ nil |
284 ! ! |
292 ! ! |
285 |
293 |
286 !TopView methodsFor:'Compatibility-ST80'! |
294 !TopView methodsFor:'Compatibility-ST80'! |
287 |
295 |
288 displayBox |
296 displayBox |
719 ask for the help text again. |
727 ask for the help text again. |
720 If false is returned (the default here), it will only look at |
728 If false is returned (the default here), it will only look at |
721 mouse-enter/leave time." |
729 mouse-enter/leave time." |
722 |
730 |
723 ^ false |
731 ^ false |
724 ! |
|
725 |
|
726 flyByHelpSpec |
|
727 ^ nil |
|
728 |
|
729 "FlyByHelp >> #helpTextFromView:at: calls this method: |
|
730 aView topView flyByHelpSpec notNil" |
|
731 ! ! |
732 ! ! |
732 |
733 |
733 !TopView methodsFor:'help stubs'! |
734 !TopView methodsFor:'help stubs'! |
734 |
|
735 flyByHelpTextFor:aSubView |
|
736 "this will vanish - it's temporarily here to allow for stdSysViews to be |
|
737 used as a masterApp for dialogs" |
|
738 |
|
739 ^ nil |
|
740 ! |
|
741 |
735 |
742 helpTextFor:aSubView |
736 helpTextFor:aSubView |
743 "this will vanish - it's temporarily here to allow for stdSysViews to be |
737 "this will vanish - it's temporarily here to allow for stdSysViews to be |
744 used as a masterApp for dialogs" |
738 used as a masterApp for dialogs" |
745 |
739 |
900 |
894 |
901 windowGroup notNil ifTrue:[ |
895 windowGroup notNil ifTrue:[ |
902 ^ windowGroup withCursor:aCursor do:aBlock |
896 ^ windowGroup withCursor:aCursor do:aBlock |
903 ]. |
897 ]. |
904 ^ super withCursor:aCursor do:aBlock |
898 ^ super withCursor:aCursor do:aBlock |
|
899 ! ! |
|
900 |
|
901 !TopView methodsFor:'private'! |
|
902 |
|
903 helpSpec |
|
904 ^ self class helpSpec |
905 ! ! |
905 ! ! |
906 |
906 |
907 !TopView methodsFor:'queries'! |
907 !TopView methodsFor:'queries'! |
908 |
908 |
909 beepWhenOpening |
909 beepWhenOpening |