55 See concrete subclasses for examples. |
55 See concrete subclasses for examples. |
56 |
56 |
57 [author:] |
57 [author:] |
58 Thomas Zwick |
58 Thomas Zwick |
59 " |
59 " |
60 ! |
|
61 |
|
62 history |
|
63 |
|
64 "Created: / 10.1.1998 / 11:01:21 / tz" |
|
65 "Modified: #menuAbout / 30.1.1998 / 00:03:11 / cg" |
|
66 "Modified: #menuHelp / 30.1.1998 / 00:03:59 / cg" |
|
67 "Modified: #menuSettings / 30.1.1998 / 00:04:14 / cg" |
|
68 "Modified: #author / 1.2.1998 / 15:30:00 / cg" |
|
69 "Modified: #author / 1.2.1998 / 15:35:48 / cg" |
|
70 "Modified: #author / 1.2.1998 / 15:36:07 / cg" |
|
71 "Modified: #openAboutThisApplication / 1.2.1998 / 15:38:38 / cg" |
|
72 "Modified: #openAboutThisApplication / 1.2.1998 / 15:40:11 / cg" |
|
73 "Created: #authorLinesForAboutBox / 1.2.1998 / 15:41:43 / cg" |
|
74 "Modified: #openAboutThisApplication / 1.2.1998 / 15:42:11 / cg" |
|
75 "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:42:48 / cg" |
|
76 "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:44:36 / cg" |
|
77 "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:56:17 / cg" |
|
78 "Deleted: #author / 1.2.1998 / 15:57:08 / cg" |
|
79 "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:57:27 / cg" |
|
80 "Modified: #openAboutThisApplication / 1.2.1998 / 15:58:05 / cg" |
|
81 "Modified: #authorLinesForAboutBox / 1.2.1998 / 15:59:11 / cg" |
|
82 "Modified: #openAboutThisApplication / 1.2.1998 / 15:59:59 / cg" |
|
83 ! ! |
60 ! ! |
84 |
61 |
85 !ToolApplicationModel class methodsFor:'accessing'! |
62 !ToolApplicationModel class methodsFor:'accessing'! |
86 |
63 |
87 authorLinesForAboutBox |
64 authorLinesForAboutBox |
1017 self uninitialize. |
994 self uninitialize. |
1018 |
995 |
1019 super closeRequest |
996 super closeRequest |
1020 ! |
997 ! |
1021 |
998 |
1022 open |
999 openInterface:aSymbol |
1023 |
1000 |
1024 super open. |
1001 self allButOpenInterface:aSymbol. |
1025 |
1002 |
1026 "/ self class allInstances size = 1 |
1003 builder window extent: self preferredExtent. |
1027 "/ ifTrue: |
|
1028 "/ [ |
|
1029 "/ self class classResources: nil. |
|
1030 "/ self clipboard: nil |
|
1031 "/ ]. |
|
1032 builder window label: self class label. |
1004 builder window label: self class label. |
1033 timeBlock := nil. |
|
1034 timeBlock := [self showTime]. |
|
1035 self showTime. |
|
1036 |
|
1037 "Modified: / 30.1.1998 / 16:02:51 / cg" |
|
1038 ! |
|
1039 |
|
1040 openInterface:aSymbol |
|
1041 |
|
1042 self allButOpenInterface:aSymbol. |
|
1043 self builder window extent: self preferredExtent. |
|
1044 self openWindow. |
1005 self openWindow. |
|
1006 |
1045 ^builder |
1007 ^builder |
1046 ! |
1008 ! |
1047 |
1009 |
1048 postOpenWith:aBuilder |
1010 postOpenWith:aBuilder |
1049 |
1011 |
1050 super postOpenWith:aBuilder. |
1012 super postOpenWith:aBuilder. |
1051 |
1013 |
1052 timeBlock := nil. |
|
1053 timeBlock := [self showTime]. |
1014 timeBlock := [self showTime]. |
1054 self showTime. |
1015 self showTime. |
1055 self class showHelp ifTrue: [ActiveHelp startFor: self]. |
1016 self class showHelp ifTrue: [ActiveHelp startFor: self]. |
1056 self valueOfInfoLabel value: self defaultInfoLabel. |
1017 self valueOfInfoLabel value: self defaultInfoLabel. |
1057 ! |
1018 ! |