equal
deleted
inserted
replaced
809 !UIHelpTool methodsFor:'user interactions'! |
809 !UIHelpTool methodsFor:'user interactions'! |
810 |
810 |
811 doFromClass |
811 doFromClass |
812 "setup new specification from a class accessed through to a dialog |
812 "setup new specification from a class accessed through to a dialog |
813 " |
813 " |
814 |cls accepted| |
814 |cls cls2 accepted| |
815 |
815 |
816 specClass notNil ifTrue:[cls := specClass name asValue] |
816 specClass notNil ifTrue:[cls := specClass name asValue] |
817 ifFalse:[cls := '' asValue]. |
817 ifFalse:[cls := '' asValue]. |
818 |
818 |
819 [true] whileTrue:[ |
819 [true] whileTrue:[ |
823 addInputFieldOn:cls; |
823 addInputFieldOn:cls; |
824 addAbortButton; |
824 addAbortButton; |
825 addOkButton; |
825 addOkButton; |
826 open |
826 open |
827 ) accepted. |
827 ) accepted. |
828 |
|
829 accepted ifFalse:[^ self]. |
828 accepted ifFalse:[^ self]. |
830 cls := self applicationClassAssociatedWith:cls value. |
829 cls2 := self applicationClassAssociatedWith:cls value. |
831 |
830 |
832 cls notNil ifTrue:[ |
831 (cls2 notNil and: [cls2 respondsTo: #helpSpec]) ifTrue:[ |
833 ^ self helpSpecFrom:cls |
832 ^ self helpSpecFrom:cls2 |
834 ]. |
833 ]. |
835 self warn:'No such class!!'. |
834 self warn:'No help spec found in class ', cls value asBoldText, '!!'. |
836 ] |
835 ] |
837 ! |
836 ! |
838 |
837 |
839 doInstallHelpSpec |
838 doInstallHelpSpec |
840 "install help spec |
839 "install help spec |