--- a/ToolApplicationModel.st	Wed Mar 04 19:51:37 1998 +0100
+++ b/ToolApplicationModel.st	Wed Mar 04 22:21:00 1998 +0100
@@ -231,7 +231,6 @@
 'Test functions.'
 
 )
-
 ! !
 
 !ToolApplicationModel class methodsFor:'history'!
@@ -686,7 +685,7 @@
 
     ^Icon
         constantNamed:#'ToolApplicationModel stxIcon'
-        ifAbsentPut:[(Depth1Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@A @@O @@C@@@O @@F@@@O @@\@@@O @@T@@@OP@A8@@@G0@@0@@@G0@E @@@C8@G@@@@A8@J@@@@A4@<@@@@A<@(@@@@@>AP@@@@@MB @@@@@_E@@@@@@N.@@@@@@O4@@@@@@C$@@@@@@E8@@@@@@C8@@@@@@G0@@@@@@OX@@@@@@_8@@@@@@<\@@@@@A<N@@@@@CXO@@@@@K0C@@@@@O C @@@@?@A @@@A<@A0@@@C<@@0@@@O8@@X@@@_0@@T@@@? @@L@@@? @@F@@@?@@@C@@@^@@@A@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[25 25 25 0 204 51]; yourself]!
+        ifAbsentPut:[(Depth2Image new) width: 48; height: 48; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@AP@@@@@AUP@@@@@@E@@@@@@AUP@@@@@@T@@@@@@AUP@@@@@EP@@@@@@AUP@@@@@DP@@@@@@AUD@@@@AU@@@@@@@@UT@@@@@T@@@@@@@@UT@@@@QP@@@@@@@@EU@@@@U@@@@@@@@@AU@@@AD@@@@@@@@@ATP@@UP@@@@@@@@@AUP@@Q@@@@@@@@@@@UT@AD@@@@@@@@@@@AQ@DP@@@@@@@@@@@EU@Q@@@@@@@@@@@@ATQT@@@@@@@@@@@@AUTP@@@@@@@@@@@@@EPP@@@@@@@@@@@@@QU@@@@@@@@@@@@@@EU@@@@@@@@@@@@@@UT@@@@@@@@@@@@@AUE@@@@@@@@@@@@@EUU@@@@@@@@@@@@@UPEP@@@@@@@@@@@AUPAT@@@@@@@@@@@EE@AU@@@@@@@@@@AET@@E@@@@@@@@@@AUP@@EP@@@@@@@@@UU@@@AP@@@@@@@@AUP@@@AT@@@@@@@@EUP@@@@T@@@@@@@AUU@@@@@E@@@@@@@EUT@@@@@DP@@@@@@UUP@@@@@AP@@@@@@UUP@@@@@@T@@@@@@UU@@@@@@@E@@@@@@ET@@@@@@@A@@@@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[25 25 25 0 204 51 0 0 0 255 255 255]; yourself]!
 
 upIcon
     "Generated by the Image Editor"
@@ -776,16 +775,32 @@
 
 !
 
-valueOfHavingTutorial
+valueOfHavingDocumentation
 
     |holder|
-    (holder := builder bindingAt:#valueOfHavingTutorial) isNil ifTrue:[
-        builder aspectAt:#valueOfHavingTutorial put:(holder :=  (self class implements: #openTutorial) asValue).
+    (holder := builder bindingAt:#valueOfHavingDocumentation) isNil ifTrue:[
+        builder aspectAt:#valueOfHavingDocumentation put:(holder :=  (self class implements: #openDocumentation) asValue).
     ].
     ^ holder
 
 !
 
+valueOfHavingExamples
+
+    |holder|
+    (holder := builder bindingAt:#valueOfHavingExamples) isNil ifTrue:[
+        builder aspectAt:#valueOfHavingExamples put:(holder :=  (self class implements: #openExamples) asValue).
+    ].
+    ^ holder
+
+!
+
+valueOfHavingTutorial
+
+    ^self valueOfHavingDocumentation
+
+!
+
 valueOfInfoLabel
 
     |holder|
@@ -856,19 +871,27 @@
      box   showAtCenter.
 !
 
+openHTMLDocument: aHTMLFilename
+
+    HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
+!
+
 openTutorial: aHTMLFilename
 
-    HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
+    self openHTMLDocument: aHTMLFilename
 !
 
 showHelp
     "Answer whether showing help is turned on/off"
 
     |currentActiveHelp|
+
     currentActiveHelp := ActiveHelp currentHelpListener.
 
     ^self class showHelp 
-        and: [currentActiveHelp notNil and: [currentActiveHelp interestedIn: self builder window]]
+        and: [currentActiveHelp notNil and: [masterApplication notNil 
+                ifFalse: [currentActiveHelp interestedIn: self window]
+                ifTrue:  [currentActiveHelp interestedIn: masterApplication window]]]
 !
 
 showHelp: aValue
@@ -1032,5 +1055,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.44 1998-02-26 19:07:39 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.45 1998-03-04 21:21:00 tz Exp $'
 ! !