# HG changeset patch
# User ca
# Date 1032171316 -7200
# Node ID 69dc29cf0fc5da26ed941ae0a940e5c408252bc1
# Parent  fda6d834bb40b4502eddff9a007e5169c5770f20
*** empty log message ***

diff -r fda6d834bb40 -r 69dc29cf0fc5 UIHelpTool.st
--- a/UIHelpTool.st	Fri Sep 06 20:48:17 2002 +0200
+++ b/UIHelpTool.st	Mon Sep 16 12:15:16 2002 +0200
@@ -578,6 +578,17 @@
     "Modified: / 16.7.1998 / 18:12:09 / cg"
 !
 
+setHelpKey:aKey
+    "set the helpKey without notification
+    "
+    |model|
+
+    model := modifiedHolder.
+    modifiedHolder := nil.
+    self helpKey:aKey.
+    modifiedHolder := model.
+!
+
 specClass
     "returns the class on which the help tool works"