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