UIHelpTool.st
author ca
Fri, 19 Dec 2003 13:33:44 +0100
changeset 1775 695f10f213d1
parent 1772 e33aee13defe
child 1777 fbf082828db6
permissions -rw-r--r--
no flyByHelp for menu
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     1
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     2
 COPYRIGHT (c) 1995 by eXept Software AG
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
     3
	      All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     4
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     5
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     6
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
     9
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    10
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    11
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    12
1554
d5e4612bf7cf implements -> includesSelector
Claus Gittinger <cg@exept.de>
parents: 1506
diff changeset
    13
"{ Package: 'stx:libtool2' }"
d5e4612bf7cf implements -> includesSelector
Claus Gittinger <cg@exept.de>
parents: 1506
diff changeset
    14
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
    15
ResourceSpecEditor subclass:#UIHelpTool
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
    16
	instanceVariableNames:'classItemList classItemModel keyItemModel helpTextView
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
    17
		modifiedHolder contentsModifiedChannel editModel'
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    18
	classVariableNames:''
785417b6955d intitial checkin
ca
parents:
diff changeset
    19
	poolDictionaries:''
785417b6955d intitial checkin
ca
parents:
diff changeset
    20
	category:'Interface-UIPainter'
785417b6955d intitial checkin
ca
parents:
diff changeset
    21
!
785417b6955d intitial checkin
ca
parents:
diff changeset
    22
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    23
HierarchicalItem subclass:#ClassItem
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    24
	instanceVariableNames:'theClass list modified'
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    25
	classVariableNames:''
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    26
	poolDictionaries:''
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    27
	privateIn:UIHelpTool
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    28
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    29
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    30
HierarchicalItem subclass:#KeyItem
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
    31
	instanceVariableNames:'helpKey helpText flyByText modified icon'
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    32
	classVariableNames:''
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    33
	poolDictionaries:''
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    34
	privateIn:UIHelpTool
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    35
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    36
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    37
!UIHelpTool class methodsFor:'documentation'!
785417b6955d intitial checkin
ca
parents:
diff changeset
    38
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    39
copyright
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    40
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    41
 COPYRIGHT (c) 1995 by eXept Software AG
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    42
	      All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    43
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    44
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    45
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    46
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    47
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    48
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    49
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    50
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    51
!
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    52
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    53
documentation
785417b6955d intitial checkin
ca
parents:
diff changeset
    54
"
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
    55
    The Help Tool allows you to define help dictionaries for the widgets in
761
91e524583390 do not save, if help texts have not changed (unformatting)
tz
parents: 750
diff changeset
    56
    window applications. The tool are able to run stand alone or in other master 
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
    57
    applications like the GUI Painter and the Menu Editor.
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
    58
    If the application responds to the selector #showHelp:aHelpText for:aView,
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
    59
    this selector is called by the widget's view when the mouse cursor moves over. 
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
    60
    If the application does not responds to that selector, and the activeHelp mode
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
    61
    is enabled, an active help bubble is shown at the widget's view.
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    62
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
    63
    [instance variables:]
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    64
	specClass       <Symbol>        class implementing the help spec
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    65
	specSelector    <Symbol>        selector returning the help spec
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    66
	classItemList                   the list of classItems
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    67
	classItemModel                  keeps the selected class
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    68
	keyItemModel                    keeps the selected helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    69
	modifiedHolder  <ValueHolder>   true if the editField or contents changed
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    70
	editModel                       keeps the current helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    71
	helpTextView                    the view which shows the helpText
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    72
	contentsModifiedChannel         true if the helpText is modified
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
    73
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 151
diff changeset
    74
    [author:]
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    75
	Claus Atzkern, eXept Software AG
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    76
	Thomas Zwick,  eXept Software AG
148
785417b6955d intitial checkin
ca
parents:
diff changeset
    77
"
785417b6955d intitial checkin
ca
parents:
diff changeset
    78
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
    79
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
    80
!UIHelpTool class methodsFor:'instance creation'!
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
    81
832
2c5b61b168e8 allow #open (its in the docu !)
Claus Gittinger <cg@exept.de>
parents: 779
diff changeset
    82
open
833
ff2f237a309a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 832
diff changeset
    83
    ^ self openOnClass:nil.
832
2c5b61b168e8 allow #open (its in the docu !)
Claus Gittinger <cg@exept.de>
parents: 779
diff changeset
    84
!
2c5b61b168e8 allow #open (its in the docu !)
Claus Gittinger <cg@exept.de>
parents: 779
diff changeset
    85
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
    86
openOnClass:aClass
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    87
    "opens a Help Tool on aClass
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
    88
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    89
    ^ self openOnClass:aClass andSelector:#helpSpec
940
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
    90
!
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
    91
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
    92
openOnClass:aClass andSelector: aSelector
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    93
    "opens a Help Tool on aClass and aSelector
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    94
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
    95
    ^ self new openOnClass:aClass andSelector:aSelector
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
    96
! !
9b705e31d38e some cleans
tz
parents: 740
diff changeset
    97
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
    98
!UIHelpTool class methodsFor:'constants'!
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
    99
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   100
label
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   101
    "returns the label; used if embedded as sub canvas in the GUI Painter or Menu Editor
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   102
    "
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   103
    ^'Help'
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   104
! !
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   105
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   106
!UIHelpTool class methodsFor:'defaults'!
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   107
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   108
resourceType
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   109
    "get the type of the resource of the method generated by the UIHelpTool"
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   110
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   111
    ^ #help
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   112
! !
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   113
151
ca
parents: 148
diff changeset
   114
!UIHelpTool class methodsFor:'help specs'!
ca
parents: 148
diff changeset
   115
ca
parents: 148
diff changeset
   116
helpSpec
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   117
    "This resource specification was automatically generated
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   118
     by the UIHelpTool of ST/X."
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   119
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   120
    "Do not manually edit this!! If it is corrupted,
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   121
     the UIHelpTool may not be able to read the specification."
292
af69e3e025a9 an empty selection is specified by 0
ca
parents: 286
diff changeset
   122
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 156
diff changeset
   123
    "
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   124
     UIHelpTool openOnClass:UIHelpTool    
292
af69e3e025a9 an empty selection is specified by 0
ca
parents: 286
diff changeset
   125
    "
af69e3e025a9 an empty selection is specified by 0
ca
parents: 286
diff changeset
   126
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   127
    <resource: #help>
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   128
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   129
    ^ super helpSpec addPairsFrom:#(
151
ca
parents: 148
diff changeset
   130
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   131
#addHelpTextKey
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   132
'Adds the key to the help spec.'
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   133
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   134
#currentHelpTexts
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   135
'Selected help text key.'
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   136
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   137
#deleteHelpTextKey
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   138
'Deletes the key from the help spec.'
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   139
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   140
#fileLoad
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   141
'Opens a dialog for selecting and loading a help spec from a class.'
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   142
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   143
#fileSave
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   144
'Saves the current help spec.'
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   145
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   146
#fileUpdate
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   147
'Reload the help spec.'
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   148
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   149
#helpTextView
1622
766547778a34 Help strings
Stefan Vogel <sv@exept.de>
parents: 1620
diff changeset
   150
'Shows the help text. Menu action ''Accept'' commits changes'
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   151
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   152
#listOfClasses
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   153
'Classes where help specs can be/are implemented.'
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   154
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   155
#listOfHelpTexts
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   156
'List of help text keys.'
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   157
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   158
#removeHelpTextKey
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   159
'Removes the help message from the widget.'
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 156
diff changeset
   160
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   161
#updateHelpTextKey
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   162
'Refetch the help spec.'
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   163
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 156
diff changeset
   164
)
151
ca
parents: 148
diff changeset
   165
! !
ca
parents: 148
diff changeset
   166
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   167
!UIHelpTool class methodsFor:'interface specs'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   168
785417b6955d intitial checkin
ca
parents:
diff changeset
   169
windowSpec
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   170
    "This resource specification was automatically generated
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   171
     by the UIPainter of ST/X."
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   172
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   173
    "Do not manually edit this!! If it is corrupted,
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   174
     the UIPainter may not be able to read the specification."
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   175
785417b6955d intitial checkin
ca
parents:
diff changeset
   176
    "
151
ca
parents: 148
diff changeset
   177
     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
ca
parents: 148
diff changeset
   178
     UIHelpTool new openInterface:#windowSpec
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   179
     UIHelpTool open
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   180
    "
785417b6955d intitial checkin
ca
parents:
diff changeset
   181
785417b6955d intitial checkin
ca
parents:
diff changeset
   182
    <resource: #canvas>
785417b6955d intitial checkin
ca
parents:
diff changeset
   183
1302
f13d0e144c82 unmap previous canvasView; prepare focus sequence
ca
parents: 1243
diff changeset
   184
    ^ 
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   185
     #(FullSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   186
        name: windowSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   187
        window: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   188
       (WindowSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   189
          label: 'UIHelpTool'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   190
          name: 'UIHelpTool'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   191
          min: (Point 10 10)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   192
          bounds: (Rectangle 14 46 475 339)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   193
        )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   194
        component: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   195
       (SpecCollection
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   196
          collection: (
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   197
           (VariableVerticalPanelSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   198
              name: 'PanelVrt'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   199
              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   200
              component: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   201
             (SpecCollection
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   202
                collection: (
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   203
                 (VariableHorizontalPanelSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   204
                    name: 'PanelHrz'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   205
                    component: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   206
                   (SpecCollection
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   207
                      collection: (
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   208
                       (HierarchicalListViewSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   209
                          name: 'keyItemModel'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   210
                          model: keyItemModel
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   211
                          menu: keyItemMenu
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   212
                          hasHorizontalScrollBar: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   213
                          hasVerticalScrollBar: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   214
                          miniScrollerHorizontal: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   215
                          miniScrollerVertical: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   216
                          listModel: keyItemListHolder
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   217
                          useIndex: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   218
                          highlightMode: label
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   219
                          showLines: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   220
                          showIndicators: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   221
                          showLeftIndicators: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   222
                          useDefaultIcons: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   223
                          autoScrollHorizontal: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   224
                        )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   225
                       (ViewSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   226
                          name: 'classItemList'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   227
                          component: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   228
                         (SpecCollection
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   229
                            collection: (
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   230
                             (InputFieldSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   231
                                name: 'editModel'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   232
                                layout: (LayoutFrame 0 0.0 2 0 -1 1.0 25 0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   233
                                activeHelpKey: currentHelpTexts
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   234
                                model: editModel
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   235
                                immediateAccept: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   236
                                acceptOnReturn: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   237
                                acceptOnTab: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   238
                                acceptOnLostFocus: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   239
                                acceptOnPointerLeave: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   240
                              )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   241
                             (SelectionInListModelViewSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   242
                                name: 'classItemModel'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   243
                                layout: (LayoutFrame 0 0.0 27 0.0 0 1.0 0 1.0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   244
                                model: classItemModel
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   245
                                hasHorizontalScrollBar: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   246
                                hasVerticalScrollBar: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   247
                                miniScrollerHorizontal: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   248
                                miniScrollerVertical: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   249
                                autoHideScrollBars: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   250
                                listModel: classItemListHolder
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   251
                                useIndex: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   252
                                highlightMode: label
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   253
                              )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   254
                             )
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   255
                           
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   256
                          )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   257
                        )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   258
                       )
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   259
                     
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   260
                    )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   261
                    handles: (Any 0.607375 1.0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   262
                  )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   263
                 (ArbitraryComponentSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   264
                    name: 'helpTextView'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   265
                    hasHorizontalScrollBar: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   266
                    hasVerticalScrollBar: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   267
                    miniScrollerHorizontal: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   268
                    miniScrollerVertical: true
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   269
                    hasBorder: false
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   270
                    component: helpTextView
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   271
                  )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   272
                 )
1302
f13d0e144c82 unmap previous canvasView; prepare focus sequence
ca
parents: 1243
diff changeset
   273
               
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   274
              )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   275
              handles: (Any 0.679181 1.0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   276
            )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   277
           )
1302
f13d0e144c82 unmap previous canvasView; prepare focus sequence
ca
parents: 1243
diff changeset
   278
         
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   279
        )
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   280
      )
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   281
!
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   282
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   283
windowSpecForStandAlone
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   284
    "This resource specification was automatically generated
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   285
     by the UIPainter of ST/X."
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   286
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   287
    "Do not manually edit this!! If it is corrupted,
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   288
     the UIPainter may not be able to read the specification."
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   289
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   290
    "
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   291
     UIPainter new openOnClass:UIHelpTool andSelector:#windowSpecForStandAlone
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   292
     UIHelpTool new openInterface:#windowSpecForStandAlone
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   293
    "
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   294
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   295
    <resource: #canvas>
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   296
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   297
    ^ 
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   298
     #(FullSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   299
        name: windowSpecForStandAlone
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   300
        window: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   301
       (WindowSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   302
          label: 'Help Tool'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   303
          name: 'Help Tool'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   304
          min: (Point 300 300)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   305
          bounds: (Rectangle 14 46 512 475)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   306
          menu: menu
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   307
        )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   308
        component: 
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   309
       (SpecCollection
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   310
          collection: (
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   311
           (UISubSpecification
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   312
              name: 'windowSpec'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   313
              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   314
              minorKey: windowSpec
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   315
            )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   316
           (UISubSpecification
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   317
              name: 'windowSpecForCommit'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   318
              layout: (LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   319
              majorKey: ToolApplicationModel
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   320
              minorKey: windowSpecForCommit
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   321
            )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   322
           (UISubSpecification
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   323
              name: 'windowSpecForInfoBar'
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   324
              layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   325
              majorKey: ToolApplicationModel
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   326
              minorKey: windowSpecForInfoBar
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   327
            )
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   328
           )
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   329
         
1737
de6abd3c55d2 Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1735
diff changeset
   330
        )
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   331
      )
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   332
! !
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   333
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   334
!UIHelpTool class methodsFor:'menu specs'!
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   335
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   336
helpTextMenu
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   337
    "This resource specification was automatically generated
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   338
     by the MenuEditor of ST/X."
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   339
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   340
    "Do not manually edit this!! If it is corrupted,
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   341
     the MenuEditor may not be able to read the specification."
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   342
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   343
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   344
     MenuEditor new openOnClass:UIHelpTool andSelector:#helpTextMenu
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   345
     (Menu new fromLiteralArrayEncoding:(UIHelpTool helpTextMenu)) startUp
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   346
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   347
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   348
    <resource: #menu>
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   349
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   350
    ^ 
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   351
     #(#Menu
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   352
	#(
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   353
	 #(#MenuItem
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   354
	    #activeHelpKey: #commitOK
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   355
	    #enabled: #contentsModifiedChannel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   356
	    #label: 'Accept'
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   357
	    #itemValue: #accept
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   358
	    #translateLabel: true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   359
	  )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   360
	 #(#MenuItem
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   361
	    #activeHelpKey: #commitCancel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   362
	    #enabled: #contentsModifiedChannel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   363
	    #label: 'Cancel'
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   364
	    #itemValue: #cancel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   365
	    #translateLabel: true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   366
	  )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   367
	 )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   368
	nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   369
	nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   370
      )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   371
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   372
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   373
keyItemMenu
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   374
    "This resource specification was automatically generated
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   375
     by the MenuEditor of ST/X."
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   376
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   377
    "Do not manually edit this!! If it is corrupted,
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   378
     the MenuEditor may not be able to read the specification."
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   379
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   380
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   381
     MenuEditor new openOnClass:UIHelpTool andSelector:#keyItemMenu
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   382
     (Menu new fromLiteralArrayEncoding:(UIHelpTool keyItemMenu)) startUp
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   383
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   384
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   385
    <resource: #menu>
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   386
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   387
    ^ 
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   388
     #(#Menu
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   389
	#(
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   390
	 #(#MenuItem
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   391
	    #activeHelpKey: #deleteHelpTextKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   392
	    #label: 'Delete'
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   393
	    #itemValue: #doDelete
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   394
	    #translateLabel: true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   395
	  )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   396
	 )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   397
	nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   398
	nil
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   399
      )
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   400
!
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   401
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   402
listOfKeysMenu
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   403
    "This resource specification was automatically generated
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   404
     by the MenuEditor of ST/X."
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   405
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   406
    "Do not manually edit this!! If it is corrupted,
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   407
     the MenuEditor may not be able to read the specification."
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   408
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   409
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   410
     MenuEditor new openOnClass:UIHelpTool andSelector:#listOfKeysMenu
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   411
     (Menu new fromLiteralArrayEncoding:(UIHelpTool listOfKeysMenu)) startUp
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   412
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   413
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   414
    <resource: #menu>
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   415
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   416
    ^ 
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   417
     #(#Menu
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   418
	#(
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   419
	 #(#MenuItem
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   420
	    #activeHelpKey: #deleteHelpTextKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   421
	    #label: 'Delete'
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   422
	    #itemValue: #doDelete
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   423
	    #translateLabel: true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   424
	  )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   425
	 )
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   426
	nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   427
	nil
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   428
      )
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   429
!
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   430
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   431
menu
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   432
    "This resource specification was automatically generated
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   433
     by the MenuEditor of ST/X."
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   434
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   435
    "Do not manually edit this!! If it is corrupted,
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   436
     the MenuEditor may not be able to read the specification."
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   437
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   438
    "
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   439
     MenuEditor new openOnClass:UIHelpTool andSelector:#menu
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   440
     (Menu new fromLiteralArrayEncoding:(UIHelpTool menu)) startUp
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   441
    "
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   442
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   443
    <resource: #menu>
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   444
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   445
    ^ 
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   446
     #(Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   447
        (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   448
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   449
            label: 'File'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   450
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   451
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   452
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   453
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   454
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   455
                  activeHelpKey: fileLoad
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   456
                  label: 'Load...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   457
                  itemValue: doLoad
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   458
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   459
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   460
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   461
                  activeHelpKey: fileSave
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   462
                  label: 'Save'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   463
                  itemValue: doSave
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   464
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   465
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   466
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   467
                  label: 'New'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   468
                  itemValue: doNew
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   469
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   470
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   471
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   472
                  label: '-'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   473
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   474
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   475
                  activeHelpKey: fileExit
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   476
                  label: 'Exit'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   477
                  itemValue: closeRequest
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   478
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   479
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   480
               )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   481
              nil
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   482
              nil
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   483
            )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   484
          )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   485
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   486
            label: 'History'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   487
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   488
            submenuChannel: menuHistory
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   489
          )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   490
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   491
            label: 'Edit'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   492
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   493
            submenuChannel: keyItemMenu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   494
            keepLinkedMenu: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   495
          )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   496
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   497
            label: 'Help'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   498
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   499
            startGroup: right
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   500
            submenuChannel: menuHelp
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   501
          )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   502
         )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   503
        nil
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
   504
        nil
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   505
      )
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   506
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   507
785417b6955d intitial checkin
ca
parents:
diff changeset
   508
!UIHelpTool methodsFor:'accessing'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   509
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   510
helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   511
    "returns the helpKey as symbol or nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   512
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   513
    |key|
710
8c968790c885 use same help dict if started from the gui painter
tz
parents: 704
diff changeset
   514
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   515
    key := editModel value.
151
ca
parents: 148
diff changeset
   516
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   517
    key size ~~ 0 ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   518
	key := key withoutSeparators.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   519
	key notEmpty ifTrue:[ ^ key asSymbol ]
151
ca
parents: 148
diff changeset
   520
    ].
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   521
    ^ nil
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   522
!
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   523
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   524
helpKey:aKey
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   525
    "change the helpKey without any change notification (modifiedHolder).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   526
    "
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   527
    |key|
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   528
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   529
    self withoutModifyDo:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   530
	aKey size ~~ 0 ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   531
	    key := aKey withoutSeparators.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   532
	    key isEmpty ifTrue:[ key := nil ]
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   533
	] ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   534
	    key := nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   535
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   536
	editModel value:key.
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   537
    ].
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   538
    self cancel.
151
ca
parents: 148
diff changeset
   539
!
ca
parents: 148
diff changeset
   540
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   541
modified
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   542
    "true if any items are added, deleted or modified
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   543
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   544
    classItemList do:[:aClassItem|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   545
	aClassItem modified ifTrue:[^ true].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   546
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   547
    ^ false
700
2aae4f3b6526 supports merging into existing help specs
tz
parents: 696
diff changeset
   548
!
2aae4f3b6526 supports merging into existing help specs
tz
parents: 696
diff changeset
   549
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   550
modified:aBoolean
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   551
    "true if any items are added, deleted or modified
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   552
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   553
    classItemList do:[:aClassItem| aClassItem modified:aBoolean ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   554
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   555
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   556
modifiedHolder
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   557
    "boolean holder which is set to true if the helpKey or contents changed
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   558
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   559
    ^ modifiedHolder
700
2aae4f3b6526 supports merging into existing help specs
tz
parents: 696
diff changeset
   560
!
2aae4f3b6526 supports merging into existing help specs
tz
parents: 696
diff changeset
   561
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   562
modifiedHolder:aValueHolder
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   563
    "boolean holder which is set to true if the helpKey or contents changed
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   564
    "
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   565
    modifiedHolder notNil ifTrue:[
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   566
	modifiedHolder removeDependent:self. 
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   567
    ].
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   568
    modifiedHolder := aValueHolder.
459
fb5b5ecf7e86 set modified if help text has changed
tz
parents: 456
diff changeset
   569
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   570
    modifiedHolder notNil ifTrue:[
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   571
	modifiedHolder addDependent:self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   572
    ].
1604
69dc29cf0fc5 *** empty log message ***
ca
parents: 1597
diff changeset
   573
!
69dc29cf0fc5 *** empty log message ***
ca
parents: 1597
diff changeset
   574
715
7eebac822985 modified bug fixed
tz
parents: 710
diff changeset
   575
specClass
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   576
    "returns the class on which the help tool works on
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   577
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   578
    ^ specClass
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   579
!
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
   580
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   581
specSelector
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   582
    "returns the selector of the edited helpSpec method
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   583
    "
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   584
    ^ specSelector ? #helpSpec
354
a6de8821d3bf add & remove popUpMenu
Claus Gittinger <cg@exept.de>
parents: 339
diff changeset
   585
! !
a6de8821d3bf add & remove popUpMenu
Claus Gittinger <cg@exept.de>
parents: 339
diff changeset
   586
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   587
!UIHelpTool methodsFor:'aspects'!
785417b6955d intitial checkin
ca
parents:
diff changeset
   588
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   589
classItemListHolder
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   590
    "returns the holder which keeps the class items
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   591
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   592
    |holder|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   593
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   594
    holder := builder bindingAt:#classItemListHolder.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   595
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   596
    holder isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   597
	holder := nil asValue.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   598
	holder value:classItemList.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   599
	builder aspectAt:#classItemListHolder put:holder.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   600
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   601
    ^ holder
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   602
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   603
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   604
classItemModel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   605
    "returns the holder which keeps the current selected class
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   606
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   607
    ^ classItemModel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   608
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   609
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   610
contentsModifiedChannel
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   611
    "boolean holder, which is set to true if the contents assigned to the
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   612
     helpKey changed
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   613
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   614
    ^ contentsModifiedChannel
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   615
!
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
   616
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   617
editModel
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   618
    "string holder, which keeps the current editing helpKey as string
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   619
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   620
    ^ editModel.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   621
!
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   622
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   623
helpTextView
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   624
    "the editView which keeps the current help contents assigned to the key
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   625
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   626
    ^ helpTextView
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   627
!
785417b6955d intitial checkin
ca
parents:
diff changeset
   628
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   629
keyItemListHolder
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   630
    "holder, which keeps the current hierarchical list
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   631
     assigned to the selected class item
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   632
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   633
    |holder|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   634
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   635
    holder := builder bindingAt:#keyItemListHolder.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   636
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   637
    holder isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   638
	holder := nil asValue.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   639
	holder value:(classItemList last list).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   640
	builder aspectAt:#keyItemListHolder put:holder.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   641
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   642
    ^ holder
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   643
!
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   644
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   645
keyItemModel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   646
    "model which keeps the current selected helpKey or nil
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   647
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   648
    ^ keyItemModel.
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   649
!
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   650
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   651
valueOfEnablingCommitButtons
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   652
    "returns the enabling of the commit of this tool as value holder
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   653
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   654
    masterApplication notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   655
	^ masterApplication valueOfEnablingCommitButtons
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   656
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   657
    ^ contentsModifiedChannel
1336
3c84dc6f8d4b delegate valueOfInfoLabel to masterApplication if exists
ca
parents: 1329
diff changeset
   658
!
3c84dc6f8d4b delegate valueOfInfoLabel to masterApplication if exists
ca
parents: 1329
diff changeset
   659
3c84dc6f8d4b delegate valueOfInfoLabel to masterApplication if exists
ca
parents: 1329
diff changeset
   660
valueOfInfoLabel
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   661
    "returns the info label as value holder
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   662
    "
1336
3c84dc6f8d4b delegate valueOfInfoLabel to masterApplication if exists
ca
parents: 1329
diff changeset
   663
    masterApplication notNil ifTrue:[
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   664
	^ masterApplication valueOfInfoLabel
1336
3c84dc6f8d4b delegate valueOfInfoLabel to masterApplication if exists
ca
parents: 1329
diff changeset
   665
    ].
3c84dc6f8d4b delegate valueOfInfoLabel to masterApplication if exists
ca
parents: 1329
diff changeset
   666
    ^ super valueOfInfoLabel
148
785417b6955d intitial checkin
ca
parents:
diff changeset
   667
! !
785417b6955d intitial checkin
ca
parents:
diff changeset
   668
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   669
!UIHelpTool methodsFor:'building'!
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   670
1663
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   671
buildAndMergeFromClass:aClass
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   672
     "setup a new specClass, merge the current items into
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   673
     "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   674
     |root mergeItems|
1663
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   675
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   676
     root := classItemList first.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   677
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   678
     root isUnspecified ifTrue:[ mergeItems := root children ]
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   679
		       ifFalse:[ mergeItems := nil ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   680
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   681
     self buildFromClass:aClass.
1663
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   682
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   683
     mergeItems size ~~ 0 ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   684
	root := classItemList first.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   685
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   686
	mergeItems do:[:anItem| |item hkey|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   687
	    hkey := anItem helpKey.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   688
	    item := root detectItemWithKey:hkey.
1663
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   689
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   690
	    item isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   691
		item := KeyItem helpKey:hkey helpText:(anItem helpText).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   692
		root add:item sortBlock:[:a :b| a label < b label ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   693
	    ] ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   694
		item helpText:(anItem helpText).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   695
	    ]
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   696
	]
1663
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   697
    ].
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   698
!
60bd14266560 *** empty log message ***
ca
parents: 1648
diff changeset
   699
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   700
buildFromClass:aClass
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
   701
    "reads the help dictionary from aClass and find remaining classes 
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   702
     'between' aClass and ApplicationModel
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   703
    " 
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   704
    |lastContents root list resource helpSpecSelector|
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
   705
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   706
    helpSpecSelector := self specSelector.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   707
    specClass := self getHelpSpecClassFromClass:aClass.
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   708
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   709
    list := OrderedCollection new.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   710
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   711
    (specClass isClass and:[specClass isLoaded]) ifTrue:[
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   712
        lastContents := nil.
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   713
        resource := specClass name, ' ', helpSpecSelector.
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   714
        self addToHistory:(Association key:resource value:#'loadFromMessage:').
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   715
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   716
        specClass withAllSuperclasses reverse do:[:aClass| |value name|
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   717
            lastContents isNil ifTrue:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   718
                aClass == ApplicationModel ifTrue:[ 
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   719
                    lastContents := IdentityDictionary new
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   720
                ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   721
            ] ifFalse:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   722
                root := ClassItem onClass:aClass.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   723
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   724
                (aClass class includesSelector:helpSpecSelector) ifTrue:[
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
   725
                    value := aClass perform:helpSpecSelector.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   726
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   727
                    value keysAndValuesDo:[:k :v| |cval|
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   728
                        cval := lastContents at:k ifAbsent:self.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   729
                        cval = v ifFalse:[ root add:(KeyItem helpKey:k helpText:v) ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   730
                    ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   731
                    lastContents := value.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   732
                ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   733
                root sort:[:a :b| a label < b label ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   734
                root modified:false.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   735
                list add:root.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   736
            ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   737
        ]
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   738
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   739
    list isEmpty ifTrue:[
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   740
        list add:(ClassItem onClass:nil)
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   741
    ].
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   742
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   743
    self withoutModifyDo:[
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   744
        classItemList contents:list.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   745
        self updateIcons.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   746
        classItemModel value:(list last)
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   747
    ].
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   748
!
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   749
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   750
buildFromClass: aClass andSelector: aSelector
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   751
    "sets aSelector and reads the help dictionary from aClass
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   752
    "
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   753
    specSelector := aSelector.
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   754
    self buildFromClass:aClass
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   755
!
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   756
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   757
buildFromHelpTool:aHelpTool
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   758
    "build from another helpTool
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   759
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   760
    specClass     := aHelpTool specClass.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   761
    specSelector  := aHelpTool specSelector.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   762
    classItemList := aHelpTool classItemListHolder value.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   763
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   764
    self classItemListHolder value:classItemList.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   765
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   766
    classItemModel triggerValue:(classItemList last).
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   767
! !
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   768
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   769
!UIHelpTool methodsFor:'change & update'!
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   770
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   771
editModelChanged
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   772
    "called if the editModel changed
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   773
    "
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   774
    |key|
1340
4276358d937b added update function; changed layout
Claus Gittinger <cg@exept.de>
parents: 1336
diff changeset
   775
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   776
    key := self helpKey.
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   777
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   778
    modifiedHolder notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   779
	modifiedHolder value:true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   780
    ].
963
62cdb7923a3b care for setup, before view components are built
Claus Gittinger <cg@exept.de>
parents: 946
diff changeset
   781
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   782
    contentsModifiedChannel value:false.
963
62cdb7923a3b care for setup, before view components are built
Claus Gittinger <cg@exept.de>
parents: 946
diff changeset
   783
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   784
    key notNil ifTrue:[
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   785
	keyItemModel value = key ifTrue:[^ self].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   786
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   787
	classItemList reverseDo:[:root| |item|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   788
	    item := root detectItemWithKey:key.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   789
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   790
	    item notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   791
		classItemModel value:root.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   792
		keyItemModel   value:item.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   793
		^ self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   794
	    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   795
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   796
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   797
	masterApplication isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   798
	    "entered a new helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   799
	    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   800
	    self valueOfEnablingCommitButtons value:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   801
	].
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   802
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   803
    keyItemModel value:nil.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   804
!
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
   805
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   806
update:something with:aParameter from:changedObject
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   807
    "Invoked when an object that I depend upon sends a change notification.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   808
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   809
    |root item list|
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
   810
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   811
    changedObject == keyItemModel ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   812
	item := keyItemModel value.
1597
b670ad8c30e1 builder componentAt: -> self componentAt:
Claus Gittinger <cg@exept.de>
parents: 1554
diff changeset
   813
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   814
	item notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   815
	    editModel value:(item helpKey).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   816
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   817
	self cancel.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   818
	^ self
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   819
    ].
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   820
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   821
    changedObject == classItemModel ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   822
	root := classItemModel value.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   823
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   824
	root notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   825
	    item := root detectItemWithKey:(self helpKey).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   826
	    list := root list.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   827
	] ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   828
	    list := item := nil.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   829
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   830
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   831
	item notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   832
	    keyItemModel value:nil withoutNotifying:self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   833
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   834
	self keyItemListHolder value:list.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   835
	keyItemModel value:item.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   836
	^ self
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   837
    ].
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   838
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   839
    changedObject == editModel ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   840
	self editModelChanged.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   841
	^ self
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   842
    ].
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   843
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   844
    changedObject == contentsModifiedChannel ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   845
	modifiedHolder notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   846
	    modifiedHolder value:true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   847
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   848
	^ self
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   849
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   850
    super update:something with:aParameter from:changedObject
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   851
!
904
b40cce7f3748 use standard help calls
tz
parents: 896
diff changeset
   852
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   853
withoutModifyDo:aBlock
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   854
    "discard modifications; trigger not the modifiedHolder during
1723
30d20151ed81 Stream streamErrorSignal -> StreamError
Stefan Vogel <sv@exept.de>
parents: 1681
diff changeset
   855
     the action is active"
30d20151ed81 Stream streamErrorSignal -> StreamError
Stefan Vogel <sv@exept.de>
parents: 1681
diff changeset
   856
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   857
    |holder|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   858
1723
30d20151ed81 Stream streamErrorSignal -> StreamError
Stefan Vogel <sv@exept.de>
parents: 1681
diff changeset
   859
    modifiedHolder isNil ifTrue:[
30d20151ed81 Stream streamErrorSignal -> StreamError
Stefan Vogel <sv@exept.de>
parents: 1681
diff changeset
   860
        ^ aBlock value
30d20151ed81 Stream streamErrorSignal -> StreamError
Stefan Vogel <sv@exept.de>
parents: 1681
diff changeset
   861
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   862
    holder := modifiedHolder.
1723
30d20151ed81 Stream streamErrorSignal -> StreamError
Stefan Vogel <sv@exept.de>
parents: 1681
diff changeset
   863
    ^ aBlock ensure:[modifiedHolder := holder]
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   864
! !
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   865
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   866
!UIHelpTool methodsFor:'private'!
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   867
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   868
extractResourceFrom:aString
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   869
    "extracts class and selector from a resource string. On success
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   870
     an association with the key a class and the selector as value
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   871
     is returned. Otherwise nil is returned
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   872
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   873
    |words newClass newSel|
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   874
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   875
    aString size ~~ 0 ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   876
	words := aString asCollectionOfWords.
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   877
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   878
	words size == 2 ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   879
	    newClass := self resolveName:(words first).
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   880
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   881
	    (newClass isClass and:[newClass isLoaded]) ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   882
		newSel := words last asSymbol.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
   883
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   884
		(newClass class includesSelector:newSel) ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   885
		    ^ Association key:newClass value:newSel            
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   886
		].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   887
	    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   888
	].
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   889
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   890
    ^ nil
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   891
!
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
   892
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   893
getHelpSpecClassFromClass:aClass
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   894
    "oops
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   895
    "
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   896
    |cls|
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   897
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   898
    aClass notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   899
	cls := self resolveName:aClass.
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   900
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   901
	cls notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   902
	    cls := cls perform:#helpSpecClass ifNotUnderstood:cls.
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   903
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   904
	    (cls isClass and:[cls isLoaded]) ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   905
		^ cls
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   906
	    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   907
	].
761
91e524583390 do not save, if help texts have not changed (unformatting)
tz
parents: 750
diff changeset
   908
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   909
    ^ nil
761
91e524583390 do not save, if help texts have not changed (unformatting)
tz
parents: 750
diff changeset
   910
!
91e524583390 do not save, if help texts have not changed (unformatting)
tz
parents: 750
diff changeset
   911
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   912
loadFromMessage:aString
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   913
    "Set and rebuild the specClass and specSelector from a resource string.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   914
     On success true is returned otherwise false. If the current spec is
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   915
     modified, a dialog is launched.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   916
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   917
    |association|
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   918
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   919
    association := self extractResourceFrom:aString.
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   920
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   921
    association notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   922
	self askForModification ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   923
	    self buildFromClass:(association key) andSelector:(association value).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   924
	    ^ true
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   925
	].
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   926
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   927
    ^ false
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   928
!
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   929
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   930
resourceMessage:aString
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   931
    "Set the specClass and specSelector from a resource string. On
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   932
     success true is returned otherwise false.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   933
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   934
    |association|
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   935
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   936
    association := self extractResourceFrom:aString.
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   937
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   938
    association notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   939
	specClass    := association key.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   940
	specSelector := association value.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   941
	^ true
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
   942
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   943
    ^ false
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   944
!
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   945
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   946
updateIcons
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   947
    "update all icons (redefinitions below above or both)
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   948
    "
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   949
    |iconBelow iconAbove iconAboveAndBelow isBehind redefinedAbove redefinedBelow icon|
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   950
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   951
    "/ if only one class exists, its not possible to have redefinitions
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   952
    classItemList size > 1 ifFalse:[ ^ self ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   953
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   954
    iconBelow         := SystemBrowser medium_methodRedefinedBelowIcon.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   955
    iconAbove         := SystemBrowser medium_methodInheritedFromAboveIcon.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   956
    iconAboveAndBelow := SystemBrowser medium_methodInheritedFromAboveAndRedefinedBelowIcon.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   957
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   958
    classItemList do:[:runClass|
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   959
        runClass do:[:aKeyItem|
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   960
            isBehind := redefinedBelow := redefinedAbove := false.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   961
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   962
            classItemList do:[:testClass|
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   963
                testClass == runClass ifTrue:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   964
                    isBehind := true
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   965
                ] ifFalse:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   966
                    (testClass detectItemWithKey:(aKeyItem helpKey)) notNil ifTrue:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   967
                        isBehind ifTrue:[ redefinedBelow := true ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   968
                                ifFalse:[ redefinedAbove := true ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   969
                    ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   970
                ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   971
            ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   972
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   973
            redefinedBelow ifTrue:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   974
                redefinedAbove ifTrue:[ icon := iconAboveAndBelow ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   975
                              ifFalse:[ icon := iconBelow ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   976
            ] ifFalse:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   977
                redefinedAbove ifTrue:[ icon := iconAbove ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   978
                              ifFalse:[ icon := nil ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   979
            ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   980
            aKeyItem icon:icon.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   981
        ]
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
   982
    ].
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   983
! !
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
   984
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   985
!UIHelpTool methodsFor:'startup & release'!
369
9d34f1ff4d29 support of lineFeed charaters
ca
parents: 354
diff changeset
   986
9d34f1ff4d29 support of lineFeed charaters
ca
parents: 354
diff changeset
   987
closeRequest
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   988
    "asks for permission before closing"
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   989
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   990
    masterApplication isNil ifTrue:[
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1737
diff changeset
   991
        super closeRequest.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   992
    ].
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   993
!
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   994
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
   995
initialize
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   996
    "setup default attributes
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   997
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   998
    super initialize.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
   999
    self createBuilder.
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
  1000
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1001
    specSelector   := #helpSpec.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1002
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1003
    classItemList  := List new.
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
  1004
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1005
    classItemModel := nil asValue.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1006
    classItemModel addDependent:self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1007
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1008
    keyItemModel := nil asValue.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1009
    keyItemModel addDependent:self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1010
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1011
    contentsModifiedChannel := false asValue.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1012
    contentsModifiedChannel addDependent:self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1013
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1014
    helpTextView := EditTextView new.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1015
    helpTextView acceptAction:[:dummy| self accept ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1016
    helpTextView modifiedChannel:contentsModifiedChannel.
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1017
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1018
    editModel := nil asValue.
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1019
    editModel addDependent:self.
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
  1020
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1021
    self buildFromClass:nil.
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1022
!
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1023
696
e91402372900 popup menu replaced by a list + supporting of help specs from different classes
tz
parents: 479
diff changeset
  1024
openInterface:aSymbol
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1025
    "do not open as stand alone
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1026
    "
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1027
!
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1028
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1029
openOnClass:aClass
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1030
    "opens the UIHelpTool on aClass
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1031
    "
1597
b670ad8c30e1 builder componentAt: -> self componentAt:
Claus Gittinger <cg@exept.de>
parents: 1554
diff changeset
  1032
    self openOnClass:aClass andSelector:nil
940
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
  1033
!
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
  1034
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
  1035
openOnClass:aClass andSelector: aSelector
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
  1036
    "opens the UIHelpTool on aClass and aSelector"
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
  1037
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1038
    super openInterface:#windowSpecForStandAlone.
1597
b670ad8c30e1 builder componentAt: -> self componentAt:
Claus Gittinger <cg@exept.de>
parents: 1554
diff changeset
  1039
940
fa34addf6b1d added #openOnClass:aClass andSelector: aSelector
tz
parents: 904
diff changeset
  1040
    builder window label: 'Help Tool'.
1597
b670ad8c30e1 builder componentAt: -> self componentAt:
Claus Gittinger <cg@exept.de>
parents: 1554
diff changeset
  1041
    self buildFromClass:aClass andSelector:aSelector
369
9d34f1ff4d29 support of lineFeed charaters
ca
parents: 354
diff changeset
  1042
! !
9d34f1ff4d29 support of lineFeed charaters
ca
parents: 354
diff changeset
  1043
740
e7362f3ab5e5 some bugs fixed
tz
parents: 722
diff changeset
  1044
!UIHelpTool methodsFor:'user actions'!
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
  1045
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1046
accept
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1047
    "accepts the help text
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1048
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1049
    |helpKey helpItem root|
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
  1050
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1051
    helpKey := self helpKey.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1052
    helpKey isNil ifTrue:[^ self].
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1053
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1054
    root := classItemModel value.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1055
    root isNil ifTrue:[^ self].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1056
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1057
    helpItem := root detectItemWithKey:helpKey.
1648
d88ec5777284 empty help string - add key anyway
Claus Gittinger <cg@exept.de>
parents: 1646
diff changeset
  1058
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1059
    helpItem isNil ifTrue:[
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1060
        helpItem := KeyItem helpKey:helpKey helpText:(helpTextView contents).
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1061
        root add:helpItem sortBlock:[:a :b| a label < b label ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1062
        self updateIcons.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1063
    ] ifFalse:[
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1064
        helpItem helpText:(helpTextView contents).
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1065
    ].
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1066
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1067
    contentsModifiedChannel value:false.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1068
    keyItemModel triggerValue:helpItem.
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1069
!
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1070
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1071
cancel
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1072
    "cancel modifications, reload helpText
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1073
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1074
    |item contents modified|
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1075
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1076
    item := keyItemModel value.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1077
    modified := false.
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
  1078
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1079
    item notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1080
	contents := item helpText.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1081
    ] ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1082
	contents := nil.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1083
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1084
	modifiedHolder isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1085
	    modified := self helpKey notNil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1086
	]
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1087
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1088
    helpTextView contents:contents.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1089
    contentsModifiedChannel value:modified.
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1090
!
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1091
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1092
doDelete
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1093
    "deletes the selected help key
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1094
    "
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1095
    |item|
1646
4d2809c829e0 reworked... to add/delete and modify keys
ca
parents: 1622
diff changeset
  1096
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1097
    item := keyItemModel value.
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1098
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1099
    item notNil ifTrue:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1100
        item remove.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1101
        item icon notNil ifTrue:[ self updateIcons ].
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1102
    ].    
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1103
    editModel value:nil.
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1104
!
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1105
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1106
doLoad
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1107
    "opens a Resource Selection Browser in order to get a resource message
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1108
    "
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1109
    self loadFromMessage: 
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1110
        (ResourceSelectionBrowser
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1111
            request: 'Load Help Spec From Class'
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1112
            onSuperclass: nil
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1113
            andClass: specClass
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1114
            andSelector: (self specSelector)
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1115
            withResourceTypes: (Array with: #help)).
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
  1116
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
  1117
    self updateInfoLabel
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1118
!
286
23712b1d3f3d checkin from browser
ca
parents: 261
diff changeset
  1119
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1120
doNew
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1121
    "reset all to empty
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1122
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1123
    contentsModifiedChannel value:false.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1124
    self helpKey:nil.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1125
    self buildFromClass:nil.
750
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1126
!
9b705e31d38e some cleans
tz
parents: 740
diff changeset
  1127
722
a1bb632b1e00 better save routine + help text added
tz
parents: 717
diff changeset
  1128
doSave
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1129
    "save the help spec to the spec-class(es)
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1130
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1131
    specClass isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1132
        self information:(resources string:'No class specified !!').
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1133
        ^ nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1134
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1135
    (specClass isSubclassOf:ApplicationModel) ifFalse:[
1735
75407a952d79 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1723
diff changeset
  1136
        self information:(resources string:'Cannot save help into non-Application class').
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1137
        ^ nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1138
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1139
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1140
    classItemList do:[:aClassItem| 
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1141
        aClassItem createHelpMethodNamed:(self specSelector) 
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1142
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1143
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1144
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1145
openDocumentation
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1146
    "opens the documentation file of the Help Tool
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1147
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1148
    self openHTMLDocument: 'tools/uipainter/HelpTool.html'
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1149
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1150
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1151
!UIHelpTool::ClassItem class methodsFor:'instance creation'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1152
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1153
onClass:aClass
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1154
    |root|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1155
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1156
    root := self new.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1157
    root onClass:aClass.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1158
    ^ root
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1159
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1160
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1161
!UIHelpTool::ClassItem methodsFor:'accessing'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1162
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1163
list
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1164
    "returns the hierarchical list assigned to the classItem; the
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1165
     list contains the keyItems
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1166
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1167
    list isNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1168
	list := HierarchicalList new.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1169
	list showRoot:false.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1170
	list root:self.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1171
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1172
    ^ list
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1173
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1174
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1175
theClass
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1176
    "returns the class or nil if unspecified
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1177
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1178
    ^ theClass
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1179
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1180
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1181
!UIHelpTool::ClassItem methodsFor:'change & update'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1182
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1183
helpTextChangedFor:anItem
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1184
    "called if an helpKey changed its contents
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1185
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1186
    self model notNil ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1187
	self   modified:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1188
	anItem modified:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1189
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1190
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1191
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1192
!UIHelpTool::ClassItem methodsFor:'code generation'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1193
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1194
createHelpMethodNamed:aMethodName
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1195
    |stream|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1196
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1197
    (modified and:[theClass notNil]) ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1198
        ^ self
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1199
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1200
    stream := '' writeStream.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1201
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1202
    stream nextPutAll:
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1203
        aMethodName, '\' withCRs,
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1204
        (ResourceSpecEditor codeGenerationCommentForClass:UIHelpTool) withCRs,
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1205
    '\\' withCRs,
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1206
    '    "\' withCRs,
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1207
    '     UIHelpTool openOnClass:', theClass name asString ,'    
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1208
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1209
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1210
    <resource: #help>
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1211
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1212
    ^ super ', aMethodName, ' addPairsFrom:#(
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1213
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1214
'.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1215
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1216
    self do:[:aKeyItem| |helpText|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1217
        helpText := aKeyItem helpText.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1218
        helpText isNil ifTrue:[ helpText := '' ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1219
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1220
        stream nextPutLine:(aKeyItem helpKey storeString).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1221
        stream nextPutLine:(helpText storeString); cr.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1222
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1223
    stream nextPutLine:')'.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1224
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1225
    Compiler 
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1226
        compile:(stream contents)
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1227
        forClass:theClass class 
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1228
        inCategory:'help specs'.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1229
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1230
    self modified:false.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1231
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1232
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1233
!UIHelpTool::ClassItem methodsFor:'displaying'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1234
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1235
icon
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1236
    "returns the display icon (always nil)
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1237
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1238
    ^ nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1239
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1240
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1241
label
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1242
    "returns the display label
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1243
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1244
    |label|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1245
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1246
    theClass notNil ifTrue:[ label := theClass name ]
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1247
		   ifFalse:[ label := '** not yet defined **' ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1248
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1249
    modified ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1250
	label := Text string:label color:(Color red).
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1251
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1252
    ^ label
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1253
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1254
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1255
!UIHelpTool::ClassItem methodsFor:'instance creation'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1256
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1257
initialize
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1258
    "setup defaults
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1259
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1260
    super initialize.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1261
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1262
    children   := OrderedCollection new.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1263
    isExpanded := true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1264
    modified   := false.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1265
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1266
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1267
onClass:aClass
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1268
    "the class the ys are assigned to; if the class is nil,
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1269
     the class is not yet specified.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1270
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1271
    theClass := aClass.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1272
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1273
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1274
!UIHelpTool::ClassItem methodsFor:'private'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1275
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1276
basicAdd:aChild sortBlock:aBlock
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1277
    "catch low-level add to update the modification flag
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1278
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1279
    self   modified:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1280
    aChild modified:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1281
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1282
    ^ super basicAdd:aChild sortBlock:aBlock.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1283
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1284
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1285
basicAddAll:aList beforeIndex:anIndex
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1286
    "catch low-level add to update the modification flag
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1287
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1288
    self modified:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1289
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1290
    aList do:[:el| el modified:true ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1291
    ^ super basicAddAll:aList beforeIndex:anIndex.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1292
!
779
2ffa22f97d5d comments + documentation
tz
parents: 761
diff changeset
  1293
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1294
basicRemoveFromIndex:startIndex toIndex:stopIndex
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1295
    "catch low-level remove to update the modification flag
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1296
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1297
    self isUnspecified ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1298
	self modified:true.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1299
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1300
    ^ super basicRemoveFromIndex:startIndex toIndex:stopIndex
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1301
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1302
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1303
!UIHelpTool::ClassItem methodsFor:'queries'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1304
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1305
isUnspecified
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1306
    "true if the class is unspecified
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1307
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1308
    ^ theClass isNil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1309
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1310
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1311
modified
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1312
    "true, if any item is modified, created or deleted
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1313
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1314
    ^ modified
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1315
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1316
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1317
modified:aBoolean
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1318
    "true, if any item is modified, created or deleted
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1319
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1320
    modified ~~ aBoolean ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1321
	modified := aBoolean.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1322
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1323
	modified ifFalse:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1324
	    self do:[:el| el modified:false ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1325
	].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1326
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1327
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1328
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1329
!UIHelpTool::ClassItem methodsFor:'searching'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1330
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1331
detectItemWithKey:aKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1332
    "returns the item assigned to a helpKey or nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1333
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1334
    |key|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1335
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1336
    aKey size ~~ 0 ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1337
	key := aKey asSymbol.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1338
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1339
	self do:[:anItem|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1340
	    anItem helpKey == key ifTrue:[ ^ anItem ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1341
	]
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1342
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1343
    ^ nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1344
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1345
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1346
!UIHelpTool::KeyItem class methodsFor:'instance creation'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1347
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1348
helpKey:aKey helpText:aText 
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1349
    |key|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1350
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1351
    key := self new.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1352
    key helpKey:aKey helpText:aText.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1353
    ^ key
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1354
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1355
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1356
!UIHelpTool::KeyItem methodsFor:'accessing'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1357
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1358
helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1359
    "returns the helpKey, a symbol
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1360
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1361
    ^ helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1362
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1363
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1364
helpText
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1365
    "returns the contents assigned to the helpKey or nil
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1366
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1367
    ^ helpText
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1368
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1369
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1370
helpText:aText
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1371
    "set the contents assigned to the helpKey; if the contents changes,
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1372
     a notification is raised.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1373
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1374
    |text|
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1375
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1376
    text := self formatText:aText.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1377
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1378
    text ~= helpText ifTrue:[
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1379
        helpText := text.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1380
1681
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1381
        (modified or:[parent isNil]) ifFalse:[
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1382
            parent helpTextChangedFor:self.
7a8e5df3f07d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1670
diff changeset
  1383
        ]
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1384
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1385
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1386
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1387
!UIHelpTool::KeyItem methodsFor:'displaying'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1388
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1389
icon
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1390
    "returns the display icon (always nil)
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1391
    "
1670
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1392
    ^ icon
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1393
!
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1394
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1395
icon:anIcon
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1396
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1397
    icon ~= anIcon ifTrue:[
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1398
        icon := anIcon.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1399
        self changed:#icon.
72af7609bb08 *** empty log message ***
ca
parents: 1669
diff changeset
  1400
    ].
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1401
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1402
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1403
label
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1404
    "returns the display label
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1405
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1406
    modified ifTrue:[
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1407
	^ Text string:helpKey color:(Color red)
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1408
    ].
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1409
    ^ helpKey
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1410
! !
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1411
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1412
!UIHelpTool::KeyItem methodsFor:'instance creation'!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1413
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1414
helpKey:aKey helpText:aText
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1415
    "set the key and contents without a change notification
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1416
    "
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1417
    helpKey  := aKey asSymbol.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1418
    helpText := self formatText:aText.
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1419
!
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff changeset
  1420
e6ea33c843a0 *** empty log message ***
ca
parents: 1665
diff