equal
deleted
inserted
replaced
576 ] |
576 ] |
577 |
577 |
578 "Modified: / 16.7.1998 / 18:12:09 / cg" |
578 "Modified: / 16.7.1998 / 18:12:09 / cg" |
579 ! |
579 ! |
580 |
580 |
|
581 setHelpKey:aKey |
|
582 "set the helpKey without notification |
|
583 " |
|
584 |model| |
|
585 |
|
586 model := modifiedHolder. |
|
587 modifiedHolder := nil. |
|
588 self helpKey:aKey. |
|
589 modifiedHolder := model. |
|
590 ! |
|
591 |
581 specClass |
592 specClass |
582 "returns the class on which the help tool works" |
593 "returns the class on which the help tool works" |
583 |
594 |
584 ^specClass |
595 ^specClass |
585 ! ! |
596 ! ! |