equal
deleted
inserted
replaced
1118 "/ ^ masterApplication showHelp:aHelpText for:view |
1118 "/ ^ masterApplication showHelp:aHelpText for:view |
1119 "/ ]. |
1119 "/ ]. |
1120 "/ |
1120 "/ |
1121 aHelpText isNil |
1121 aHelpText isNil |
1122 ifTrue: [self updateInfoLabel] |
1122 ifTrue: [self updateInfoLabel] |
1123 ifFalse: [self valueOfInfoLabel value: (aHelpText asString string readStream through: $.)]. |
1123 ifFalse: [self valueOfInfoLabel value:aHelpText asString]. |
1124 |
|
1125 "Created: / 20.6.1998 / 16:37:23 / cg" |
|
1126 "Modified: / 31.7.1998 / 18:40:19 / cg" |
|
1127 ! |
1124 ! |
1128 |
1125 |
1129 showingHelp |
1126 showingHelp |
1130 "returns true, if automatic display of help is enabled for this |
1127 "returns true, if automatic display of help is enabled for this |
1131 application; false otherwise" |
1128 application; false otherwise" |
1365 ! ! |
1362 ! ! |
1366 |
1363 |
1367 !ToolApplicationModel class methodsFor:'documentation'! |
1364 !ToolApplicationModel class methodsFor:'documentation'! |
1368 |
1365 |
1369 version |
1366 version |
1370 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.110 2002-10-08 15:30:42 stefan Exp $' |
1367 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.111 2002-10-09 14:44:32 stefan Exp $' |
1371 ! ! |
1368 ! ! |