UIHelpTool.st
changeset 1772 e33aee13defe
parent 1737 de6abd3c55d2
child 1775 695f10f213d1
--- a/UIHelpTool.st	Wed Dec 03 12:32:03 2003 +0100
+++ b/UIHelpTool.st	Thu Dec 04 12:50:44 2003 +0100
@@ -12,9 +12,9 @@
 
 "{ Package: 'stx:libtool2' }"
 
-ToolApplicationModel subclass:#UIHelpTool
-	instanceVariableNames:'specClass specSelector classItemList classItemModel keyItemModel
-		helpTextView modifiedHolder contentsModifiedChannel editModel'
+ResourceSpecEditor subclass:#UIHelpTool
+	instanceVariableNames:'classItemList classItemModel keyItemModel helpTextView
+		modifiedHolder contentsModifiedChannel editModel'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -103,6 +103,14 @@
     ^'Help'
 ! !
 
+!UIHelpTool class methodsFor:'defaults'!
+
+resourceType
+    "get the type of the resource of the method generated by the UIHelpTool"
+
+    ^ #help
+! !
+
 !UIHelpTool class methodsFor:'help specs'!
 
 helpSpec
@@ -859,25 +867,6 @@
 
 !UIHelpTool methodsFor:'private'!
 
-askForModification
-    "asks for modification; launch a dialog if something is modified;
-     returns true if the modifications are accepted by user otherwise
-     false.
-    "
-    |dialog|
-
-    self modified ifTrue:[
-	dialog := YesNoBox title:(resources string:'List was modified !!')
-			 yesText:(resources string:'Forget it and proceed')
-			  noText:(resources string:'Cancel').
-
-	dialog showAtPointer.
-	dialog accepted ifFalse:[^ false].
-	self modified:false.
-    ].
-    ^ true
-!
-
 extractResourceFrom:aString
     "extracts class and selector from a resource string. On success
      an association with the key a class and the selector as value
@@ -998,10 +987,10 @@
 !UIHelpTool methodsFor:'startup & release'!
 
 closeRequest
-    "asks for permission before closing
-    "
-    (masterApplication isNil and:[self askForModification]) ifTrue:[
-	super closeRequest.
+    "asks for permission before closing"
+
+    masterApplication isNil ifTrue:[
+        super closeRequest.
     ].
 !