UIHelpTool.st
changeset 3521 fda84ae10fee
parent 3499 8808fb1f10b3
child 3537 6aacb49f2f25
equal deleted inserted replaced
3520:b139ae538098 3521:fda84ae10fee
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1995 by eXept Software AG
     4  COPYRIGHT (c) 1995 by eXept Software AG
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
   106     ^ #help
   108     ^ #help
   107 ! !
   109 ! !
   108 
   110 
   109 !UIHelpTool class methodsFor:'help specs'!
   111 !UIHelpTool class methodsFor:'help specs'!
   110 
   112 
   111 flyByHelpSpec
   113 helpSpec
   112     "This resource specification was automatically generated
   114     "This resource specification was automatically generated
   113      by the UIHelpTool of ST/X."
   115      by the UIHelpTool of ST/X."
   114 
   116 
   115     "Do not manually edit this!! If it is corrupted,
   117     "Do not manually edit this!! If it is corrupted,
   116      the UIHelpTool may not be able to read the specification."
   118      the UIHelpTool may not be able to read the specification."
   119      UIHelpTool openOnClass:UIHelpTool    
   121      UIHelpTool openOnClass:UIHelpTool    
   120     "
   122     "
   121 
   123 
   122     <resource: #help>
   124     <resource: #help>
   123 
   125 
   124     ^ super flyByHelpSpec addPairsFrom:#(
   126     ^ super helpSpec addPairsFrom:#(
   125 
   127 
   126 #addHelpTextKey
   128 #addHelpTextKey
   127 'Adds the key to the help spec.'
   129 'Adds the key to the help spec.'
   128 
   130 
   129 #currentHelpTexts
   131 #currentHelpTexts
   519 !UIHelpTool methodsFor:'accessing'!
   521 !UIHelpTool methodsFor:'accessing'!
   520 
   522 
   521 alternativeSpecSelectors
   523 alternativeSpecSelectors
   522     "returns a set of alternative spec method selectors of the resource spec"
   524     "returns a set of alternative spec method selectors of the resource spec"
   523 
   525 
   524     ^ #( helpPairs flyByHelpSpec tooltipSpec )
   526     ^ #( helpPairs helpSpec "flyByHelpSpec" tooltipSpec )
   525 
   527 
   526     "Modified: / 03-02-2017 / 13:05:02 / cg"
   528     "Modified: / 03-02-2017 / 13:05:02 / cg"
   527 !
   529 !
   528 
   530 
   529 helpKey
   531 helpKey