HierarchicalListEditor.st
author tz
Tue, 27 Jan 1998 17:37:56 +0100
changeset 489 d5f942ce5c94
parent 484 ab3d54531432
child 506 249e94fdeb94
permissions -rw-r--r--
new icon method format applied
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     1
"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     3
              All Rights Reserved
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     4
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
2a35cb573365 intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    11
"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    12
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    13
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    14
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    15
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
    16
ToolApplicationModel subclass:#HierarchicalListEditor
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
    17
	instanceVariableNames:'isModified didInstall treeView specClass specSelector'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
    18
	classVariableNames:'CopyBuffer'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    19
	poolDictionaries:''
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    20
	category:'Interface-UIPainter'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    21
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    22
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    23
!HierarchicalListEditor class methodsFor:'documentation'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    24
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    25
copyright
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    26
"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    27
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    28
              All Rights Reserved
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    29
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    30
 This software is furnished under a license and may be used
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    35
 hereby transferred.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    36
"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    37
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    38
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    39
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    40
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    41
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    42
documentation
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    43
"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    44
    HierarchicalListEditor is used by the UIPainter to
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    45
    create or maintain a hierarchical list.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    46
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    47
    [start with:]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    48
        HierarchicalListEditor open
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    49
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    50
    [see also:]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    51
        UIPainter
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    52
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    53
    [author:]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    54
        Claus Atzkern
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    55
"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    56
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    57
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    58
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    59
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    60
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    61
!HierarchicalListEditor class methodsFor:'interface specs'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    62
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    63
classAndMethodSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    64
    "this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    65
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    66
    "do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    67
     handle the specification if its corrupted."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    68
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    69
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    70
     UIPainter new openOnClass:HierarchicalListEditor andSelector:#classAndMethodSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    71
     HierarchicalListEditor new openInterface:#classAndMethodSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    72
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    73
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    74
    <resource: #canvas>
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    75
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    76
    ^
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    77
     
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    78
       #(#FullSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    79
          #'window:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    80
           #(#WindowSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    81
              #'name:' 'Painter'
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
    82
              #'layout:' #(#LayoutFrame 233 0 430 0 533 0 558 0)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    83
              #'label:' 'Painter'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    84
              #'min:' #(#Point 10 10)
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    85
              #'max:' #(#Point 1160 870)
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
    86
              #'bounds:' #(#Rectangle 233 430 534 559)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
    87
              #'usePreferredExtent:' false
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    88
          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    89
          #'component:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    90
           #(#SpecCollection
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    91
              #'collection:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    92
               #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    93
                 #(#LabelSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    94
                    #'name:' 'boxLabel'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    95
                    #'layout:' #(#Point 5 10)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
    96
                    #'label:' 'Class and selector for code:'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    97
                    #'adjust:' #left
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    98
                    #'resizeForLabel:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
    99
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   100
                 #(#LabelSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   101
                    #'name:' 'classLabel'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   102
                    #'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   103
                    #'label:' 'Class:'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   104
                    #'adjust:' #right
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   105
                    #'resizeForLabel:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   106
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   107
                 #(#InputFieldSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   108
                    #'name:' 'classField'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   109
                    #'layout:' #(#LayoutFrame 47 0.11 39 0 -2 1.0 61 0)
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   110
                    #'tabable:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   111
                    #'model:' #specClassChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   112
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   113
                 #(#LabelSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   114
                    #'name:' 'methodLabel'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   115
                    #'layout:' #(#AlignmentOrigin 45 0.11 74 0 1 0.5)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   116
                    #'label:' 'Selector:'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   117
                    #'adjust:' #right
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   118
                    #'resizeForLabel:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   119
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   120
                 #(#InputFieldSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   121
                    #'name:' 'methodField'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   122
                    #'layout:' #(#LayoutFrame 47 0.11 64 0 -2 1.0 86 0)
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   123
                    #'tabable:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   124
                    #'model:' #specSelectorChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   125
                    #'type:' #string
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   126
                )
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   127
                 #(#UISubSpecification
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   128
                    #'name:' 'SubSpecification'
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   129
                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1.0)
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   130
                    #'majorKey:' #ToolApplicationModel
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   131
                    #'minorKey:' #windowSpecForCommitWithoutChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   132
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   133
              )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   134
          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   135
      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   136
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   137
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   138
menu
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   139
    "this window spec was automatically generated by the ST/X MenuEditor"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   140
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   141
    "do not manually edit this - the builder may not be able to
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   142
     handle the specification if its corrupted."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   143
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   144
    "
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   145
     MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menu
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   146
     (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menu)) startUp
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   147
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   148
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   149
    <resource: #menu>
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   150
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   151
    ^
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   152
     
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   153
       #(#Menu
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   154
          
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   155
           #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   156
             #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   157
                #'label:' 'About'
443
92f5e393873a take icon from superclass
tz
parents: 433
diff changeset
   158
                #'labelImage:' #(#ResourceRetriever nil #icon)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   159
                #'submenuChannel:' #menuAbout
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   160
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   161
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   162
                #'label:' 'File'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   163
                #'submenu:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   164
                 #(#Menu
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   165
                    
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   166
                     #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   167
                       #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   168
                          #'label:' 'New'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   169
                          #'value:' #doNew
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   170
                      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   171
                       #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   172
                          #'label:' 'Reload'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   173
                          #'value:' #doReload
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   174
                      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   175
                       #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   176
                          #'label:' '-'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   177
                      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   178
                       #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   179
                          #'label:' 'Save'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   180
                          #'value:' #doInstall
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   181
                          #'enabled:' #hasValidClass
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   182
                      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   183
                       #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   184
                          #'label:' '-'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   185
                      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   186
                       #(#MenuItem
433
18af3da84277 some label corrections
tz
parents: 430
diff changeset
   187
                          #'label:' 'Define Selector...'
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   188
                          #'value:' #doDefineSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   189
                          #'enabled:' #hasValidClass
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   190
                      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   191
                       #(#MenuItem
433
18af3da84277 some label corrections
tz
parents: 430
diff changeset
   192
                          #'label:' 'Define Class...'
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   193
                          #'value:' #doDefineClass
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   194
                          #'enabled:' #canChangeClassName
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   195
                      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   196
                       #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   197
                          #'label:' '-'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   198
                      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   199
                       #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   200
                          #'label:' 'Exit'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   201
                          #'value:' #closeRequest
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   202
                      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   203
                    ) nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   204
                    nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   205
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   206
            )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   207
             #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   208
                #'label:' 'Edit'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   209
                #'submenuChannel:' #menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   210
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   211
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   212
                #'label:' 'Browse'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   213
                #'enabled:' #hasValidClass
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   214
                #'submenu:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   215
                 #(#Menu
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   216
                    
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   217
                     #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   218
                       #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   219
                          #'label:' 'Class'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   220
                          #'value:' #'doBrowse:'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   221
                          #'argument:' #class
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   222
                      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   223
                       #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   224
                          #'label:' 'Method'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   225
                          #'value:' #'doBrowse:'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   226
                          #'enabled:' #hasValidMethodSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   227
                          #'argument:' #method
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   228
                      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   229
                       #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   230
                          #'label:' 'Specification'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   231
                          #'value:' #'doBrowse:'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   232
                          #'enabled:' #hasValidSpecSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   233
                          #'argument:' #spec
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   234
                      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   235
                    ) nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   236
                    nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   237
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   238
            )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   239
          ) nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   240
          nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   241
      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   242
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   243
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   244
menuEdit
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   245
    "this window spec was automatically generated by the ST/X MenuEditor"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   246
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   247
    "do not manually edit this - the builder may not be able to
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   248
     handle the specification if its corrupted."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   249
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   250
    "
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   251
     MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   252
     (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuEdit)) startUp
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   253
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   254
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   255
    <resource: #menu>
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   256
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   257
    ^
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   258
     
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   259
       #(#Menu
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   260
          
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   261
           #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   262
             #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   263
                #'label:' 'Cut'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   264
                #'value:' #doCut
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   265
                #'enabled:' #canCut
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   266
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   267
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   268
                #'label:' 'Copy'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   269
                #'value:' #doCopy
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   270
                #'enabled:' #canCopy
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   271
            )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   272
             #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   273
                #'label:' 'Paste'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   274
                #'value:' #doPaste
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   275
                #'enabled:' #canPaste
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   276
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   277
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   278
                #'label:' '-'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   279
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   280
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   281
                #'label:' 'Create Child'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   282
                #'value:' #doCreateChild
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   283
                #'enabled:' #canCreateChildChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   284
                #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #iconCreateChild)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   285
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   286
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   287
                #'label:' 'Create Sister'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   288
                #'value:' #doCreateSister
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   289
                #'enabled:' #canCreateSisterChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   290
                #'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #iconCreateSister)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   291
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   292
          ) nil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   293
          nil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   294
      )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   295
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   296
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   297
menuToolbar
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   298
    "this window spec was automatically generated by the ST/X MenuEditor"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   299
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   300
    "do not manually edit this - the builder may not be able to
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   301
     handle the specification if its corrupted."
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   302
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   303
    "
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   304
     MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuToolbar
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   305
     (Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuToolbar)) startUp
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   306
    "
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   307
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   308
    <resource: #menu>
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   309
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   310
    ^
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   311
     
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   312
       #(#Menu
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   313
          
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   314
           #(
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   315
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   316
                #'label:' 'New'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   317
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   318
                #'value:' #doNew
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   319
                #'enabled:' #canCreateChildChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   320
                #'labelImage:' #(#ResourceRetriever nil #newIcon)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   321
            )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   322
             #(#MenuItem
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   323
                #'label:' 'Save'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   324
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   325
                #'value:' #doInstall
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   326
                #'enabled:' #canCreateChildChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   327
                #'labelImage:' #(#ResourceRetriever nil #saveIcon)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   328
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   329
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   330
                #'label:' ''
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   331
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   332
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   333
                #'label:' 'Create Child'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   334
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   335
                #'value:' #doCreateChild
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   336
                #'enabled:' #canCreateChildChannel
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   337
                #'labelImage:' #(#ResourceRetriever nil #createChildIcon)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   338
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   339
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   340
                #'label:' 'Create Sister'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   341
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   342
                #'value:' #doCreateSister
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   343
                #'enabled:' #canCreateSisterChannel
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   344
                #'labelImage:' #(#ResourceRetriever nil #createSisterIcon)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   345
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   346
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   347
                #'label:' ''
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   348
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   349
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   350
                #'label:' 'Step Up'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   351
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   352
                #'value:' #doStepUp
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   353
                #'enabled:' #canStepOverChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   354
                #'labelImage:' #(#ResourceRetriever nil #upIcon)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   355
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   356
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   357
                #'label:' 'Step Down'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   358
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   359
                #'value:' #doStepDown
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   360
                #'enabled:' #canStepOverChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   361
                #'labelImage:' #(#ResourceRetriever nil #downIcon)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   362
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   363
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   364
                #'label:' 'Step In'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   365
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   366
                #'value:' #doStepIn
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   367
                #'enabled:' #canStepInChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   368
                #'labelImage:' #(#ResourceRetriever nil #downRightIcon)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   369
            )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   370
             #(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   371
                #'label:' 'Step Out'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   372
                #'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   373
                #'value:' #doStepOut
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   374
                #'enabled:' #canStepOutChannel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   375
                #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   376
            )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   377
          ) nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   378
          nil
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   379
      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   380
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   381
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   382
methodSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   383
    "this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   384
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   385
    "do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   386
     handle the specification if its corrupted."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   387
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   388
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   389
     UIPainter new openOnClass:HierarchicalListEditor andSelector:#methodSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   390
     HierarchicalListEditor new openInterface:#methodSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   391
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   392
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   393
    <resource: #canvas>
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   394
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   395
    ^
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   396
     
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   397
       #(#FullSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   398
          #'window:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   399
           #(#WindowSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   400
              #'name:' 'Painter'
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   401
              #'layout:' #(#LayoutFrame 151 0 377 0 431 0 455 0)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   402
              #'label:' 'Painter'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   403
              #'min:' #(#Point 10 10)
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   404
              #'max:' #(#Point 1160 870)
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   405
              #'bounds:' #(#Rectangle 151 377 432 456)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   406
              #'usePreferredExtent:' false
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   407
          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   408
          #'component:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   409
           #(#SpecCollection
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   410
              #'collection:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   411
               #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   412
                 #(#LabelSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   413
                    #'name:' 'boxLabel'
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   414
                    #'layout:' #(#LayoutFrame 0 0.0 3 0 0 1.0 20 0)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   415
                    #'label:' 'Selector for code:'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   416
                    #'adjust:' #left
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   417
                    #'resizeForLabel:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   418
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   419
                 #(#InputFieldSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   420
                    #'name:' 'methodField'
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   421
                    #'layout:' #(#LayoutFrame 0 0.0 22 0 0 1.0 44 0)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   422
                    #'tabable:' true
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   423
                    #'model:' #specSelectorChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   424
                    #'type:' #string
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   425
                )
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   426
                 #(#UISubSpecification
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   427
                    #'name:' 'SubSpecification'
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   428
                    #'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1.0)
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   429
                    #'majorKey:' #ToolApplicationModel
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   430
                    #'minorKey:' #windowSpecForCommitWithoutChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   431
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   432
              )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   433
          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   434
      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   435
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   436
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   437
windowSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   438
    "this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   439
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   440
    "do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   441
     handle the specification if its corrupted."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   442
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   443
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   444
     UIPainter new openOnClass:HierarchicalListEditor andSelector:#windowSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   445
     HierarchicalListEditor new openInterface:#windowSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   446
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   447
    "HierarchicalListEditor open"
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   448
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   449
    <resource: #canvas>
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   450
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   451
    ^
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   452
     
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   453
       #(#FullSpec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   454
          #'window:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   455
           #(#WindowSpec
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   456
              #'name:' 'Hierarchical List Editor'
484
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   457
              #'layout:' #(#LayoutFrame 148 0 380 0 622 0 692 0)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   458
              #'label:' 'Hierarchical List Editor'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   459
              #'min:' #(#Point 10 10)
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   460
              #'max:' #(#Point 1160 870)
484
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   461
              #'bounds:' #(#Rectangle 148 380 623 693)
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   462
              #'menu:' #menu
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   463
              #'usePreferredExtent:' false
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   464
          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   465
          #'component:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   466
           #(#SpecCollection
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   467
              #'collection:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   468
               #(
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   469
                 #(#MenuPanelSpec
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   470
                    #'name:' 'menuToolbarView'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   471
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   472
                    #'menu:' #menuToolbar
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   473
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   474
                 #(#VariableHorizontalPanelSpec
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   475
                    #'name:' 'variableHorizontalPanel'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   476
                    #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   477
                    #'component:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   478
                     #(#SpecCollection
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   479
                        #'collection:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   480
                         #(
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   481
                           #(#ArbitraryComponentSpec
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   482
                              #'name:' 'treeView'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   483
                              #'menu:' #menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   484
                              #'hasHorizontalScrollBar:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   485
                              #'hasVerticalScrollBar:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   486
                              #'miniScrollerHorizontal:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   487
                              #'miniScrollerVertical:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   488
                              #'component:' #treeView
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   489
                              #'hasBorder:' false
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   490
                          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   491
                           #(#ViewSpec
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   492
                              #'name:' 'specView'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   493
                              #'component:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   494
                               #(#SpecCollection
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   495
                                  #'collection:' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   496
                                   #(
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   497
                                     #(#LabelSpec
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   498
                                        #'name:' 'nameLabel'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   499
                                        #'layout:' #(#AlignmentOrigin 107 0 25 0 1 0.5)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   500
                                        #'label:' 'Name:'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   501
                                        #'resizeForLabel:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   502
                                    )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   503
                                     #(#InputFieldSpec
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   504
                                        #'name:' 'nameInputField'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   505
                                        #'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
469
28bcb1982ef9 tabs added
tz
parents: 443
diff changeset
   506
                                        #'tabable:' true
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   507
                                        #'model:' #itemName
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   508
                                    )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   509
                                     #(#LabelSpec
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   510
                                        #'name:' 'valueLabel'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   511
                                        #'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   512
                                        #'label:' 'Value:'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   513
                                        #'resizeForLabel:' true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   514
                                    )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   515
                                     #(#InputFieldSpec
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   516
                                        #'name:' 'valueInputField'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   517
                                        #'layout:' #(#LayoutFrame 110 0 41 0 -5 1.0 63 0)
469
28bcb1982ef9 tabs added
tz
parents: 443
diff changeset
   518
                                        #'tabable:' true
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   519
                                        #'model:' #itemValue
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   520
                                        #'type:' #symbolOrNil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   521
                                    )
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   522
                                     #(#UISubSpecification
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   523
                                        #'name:' 'SubSpecification'
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   524
                                        #'layout:' #(#LayoutFrame 2 0.0 -26 1.0 -2 1.0 -2 1.0)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   525
                                        #'majorKey:' #ToolApplicationModel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   526
                                        #'minorKey:' #windowSpecForCommit
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   527
                                    )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   528
                                  )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   529
                              )
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   530
                              #'level:' -1
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   531
                          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   532
                        )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   533
                    )
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   534
                    #'handles:' #(#Any 0.368421 1.0)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   535
                )
484
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   536
                 #(#UISubSpecification
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   537
                    #'name:' 'infoBarSubSpec'
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   538
                    #'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   539
                    #'majorKey:' #ToolApplicationModel
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved
tz
parents: 469
diff changeset
   540
                    #'minorKey:' #windowSpecForInfoBar
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   541
                )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   542
              )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   543
          )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   544
      )
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   545
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   546
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   547
!HierarchicalListEditor class methodsFor:'printing'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   548
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   549
prettyPrintArray:anArray on:aStream indent:anIndent
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   550
    "print a literal array in a nice format
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   551
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   552
    |arg sol|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   553
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   554
    sol := aStream position.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   555
    aStream spaces:anIndent.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   556
    aStream nextPutAll:'#('.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   557
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   558
    anArray first isSymbol ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   559
        arg := anArray first.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   560
        aStream nextPut:$#.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   561
        aStream nextPutAll:anArray first.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   562
        aStream cr.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   563
        anArray size == 2 ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   564
            self prettyPrintArray:(anArray last)
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   565
                               on:aStream
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   566
                           indent:(anIndent + 4).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   567
        ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   568
        aStream spaces:anIndent.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   569
        aStream nextPut:$).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   570
      ^ self  
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   571
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   572
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   573
    aStream nextPut:$'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   574
    aStream nextPutAll:(anArray at:1).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   575
    aStream nextPut:$'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   576
    arg := anArray at:2 ifAbsent:nil.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   577
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   578
    arg isString ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   579
        aStream spaces:((50 - (aStream position - sol)) max:4).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   580
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   581
        arg isSymbol ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   582
            aStream nextPut:$#.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   583
        ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   584
        aStream nextPut:$'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   585
        aStream nextPutAll:arg.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   586
        aStream nextPut:$'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   587
        arg := anArray at:3 ifAbsent:nil.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   588
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   589
    arg isArray ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   590
        aStream nextPutAll:' #('.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   591
        aStream cr.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   592
        arg do:[:e|self prettyPrintArray:e on:aStream indent:(anIndent + 4)].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   593
        aStream spaces:anIndent.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   594
        aStream nextPut:$).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   595
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   596
    aStream nextPut:$).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   597
    aStream cr.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   598
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   599
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   600
!HierarchicalListEditor class methodsFor:'resources'!
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   601
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   602
createChildIcon
489
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   603
    "Generated by the Image Editor"
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   604
    "
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   605
    ImageEditor openOnClass:self andSelector:#createChildIcon
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   606
    "
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   607
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   608
    <resource: #image>
489
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   609
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   610
    ^Icon
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   611
        constantNamed:#'HierarchicalListEditor createChildIcon'
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   612
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A<3L308@A33L33H@A30L33H@A33L33H@A<3L008@A?????8@C*****(@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8'); yourself); yourself]!
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   613
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   614
createSisterIcon
489
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   615
    "Generated by the Image Editor"
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   616
    "
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   617
    ImageEditor openOnClass:self andSelector:#createSisterIcon
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   618
    "
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   619
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   620
    <resource: #image>
489
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   621
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   622
    ^Icon
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   623
        constantNamed:#'HierarchicalListEditor createSisterIcon'
d5f942ce5c94 new icon method format applied
tz
parents: 484
diff changeset
   624
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A<L<O?8@A3<3??8@A<<<<C8@A?L?O?8@A0<0??8@A?????8@A0LCC?8@A<<?L?8@A<<CC?8@A<<?L?8@A<<CL?8@A?????8@C*****(@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8'); yourself); yourself]! !
430
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons
tz
parents: 423
diff changeset
   625
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   626
!HierarchicalListEditor methodsFor:'accessing'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   627
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   628
didInstall
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   629
    "returns true if spec was installed by operator"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   630
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   631
    ^didInstall ? false
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   632
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   633
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   634
selectorName
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   635
    "returns current spec. selector"
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   636
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   637
    ^specSelector
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   638
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   639
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   640
!HierarchicalListEditor methodsFor:'aspects'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   641
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   642
canCreateChildChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   643
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   644
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   645
    ^builder booleanValueAspectFor:#canCreateChildChannel
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   646
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   647
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   648
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   649
canCreateSisterChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   650
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   651
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   652
    ^builder booleanValueAspectFor:#canCreateSisterChannel
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   653
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   654
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   655
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   656
canStepInChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   657
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   658
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   659
    ^builder booleanValueAspectFor:#canStepInChannel
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   660
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   661
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   662
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   663
canStepOutChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   664
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   665
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   666
    ^builder booleanValueAspectFor:#canStepOutChannel
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   667
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   668
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   669
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   670
canStepOverChannel
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   671
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   672
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   673
    ^builder booleanValueAspectFor:#canStepOverChannel
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   674
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   675
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   676
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   677
itemName
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   678
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   679
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   680
    |holder|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   681
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   682
    (holder := builder bindingAt:#itemName) isNil ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   683
        builder aspectAt:#itemName put:(holder :=  ValueHolder new).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   684
        holder addDependent:self.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   685
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   686
    ^ holder
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   687
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   688
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   689
itemValue
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   690
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   691
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   692
    |holder|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   693
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   694
    (holder := builder bindingAt:#itemValue) isNil ifTrue:[
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   695
        builder aspectAt:#itemValue put:(holder :=  ValueHolder new).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   696
        holder addDependent:self.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   697
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   698
    ^ holder
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   699
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   700
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   701
treeView
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   702
    "automatically generated by UIPainter ..."
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   703
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   704
    ^treeView
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   705
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   706
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   707
!HierarchicalListEditor methodsFor:'change & update'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   708
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   709
update:something with:aParameter from:someObject
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   710
    "one of my models changed"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   711
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   712
    self valueOfEnablingCommitButtons value: true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   713
! !
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   714
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   715
!HierarchicalListEditor methodsFor:'private'!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   716
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   717
checkMenuItemModified
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   718
    "check item modification"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   719
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   720
    self valueOfEnablingCommitButtons value
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   721
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   722
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   723
        ((YesNoBox title:'Item was modified!!\Save it?\' withCRs)        
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   724
            noText:'No';
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   725
            yesText:'Yes';
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   726
            showAtPointer;
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   727
            accepted) ifFalse: [self valueOfEnablingCommitButtons value: false. ^true].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   728
        self accept
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   729
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   730
    ^true
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   731
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   732
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   733
newItem
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   734
    "creates and returns a new default item"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   735
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   736
    ^TreeItem name: 'Undefined' contents: nil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   737
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   738
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   739
updateChannels
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   740
    "update channels"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   741
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   742
    |node parent chnStepIn chnStepOut chnStepOvr chnChild chnSister|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   743
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   744
    chnStepIn := chnStepOut := chnStepOvr := chnChild := chnSister := false.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   745
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   746
    (node := treeView selectedNode) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   747
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   748
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   749
        (builder componentAt: #specView) beVisible.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   750
        chnChild := true.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   751
        (parent := node parent) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   752
        ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   753
        [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   754
            chnSister  := true.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   755
            chnStepOvr := parent numberOfChildren > 1.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   756
            chnStepOut := parent parent notNil.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   757
            chnStepIn  := node ~~ parent lastChild
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   758
        ]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   759
    ]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   760
    ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   761
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   762
        (builder componentAt: #specView) beInvisible
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   763
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   764
    self canCreateChildChannel  value:chnChild.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   765
    self canCreateSisterChannel value:chnSister.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   766
    self canStepOverChannel     value:chnStepOvr.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   767
    self canStepOutChannel      value:chnStepOut.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   768
    self canStepInChannel       value:chnStepIn
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   769
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   770
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   771
updateInputFields
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   772
    "reload item value into input fields"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   773
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   774
    |node|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   775
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   776
    (node := treeView selectedNode) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   777
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   778
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   779
        self itemName  value:node name.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   780
        self itemValue value:node contents
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   781
    ] 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   782
    ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   783
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   784
        self itemName  value:''.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   785
        self itemValue value:nil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   786
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   787
    self valueOfEnablingCommitButtons value: false
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   788
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   789
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   790
!HierarchicalListEditor methodsFor:'queries'!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   791
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   792
canChangeClassName
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   793
    "returns true if current class could be changed which is dependent on
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   794
     the mode: standalone or started by UIPainter"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   795
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   796
    ^masterApplication isNil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   797
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   798
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   799
canCopy
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   800
    "returns true if any selection exists"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   801
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   802
    ^treeView selection notNil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   803
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   804
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   805
canCut
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   806
    "returns true if any selection exists and not includes
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   807
     the anchor (first element into list)."
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   808
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   809
    treeView selection notNil ifTrue:[^(treeView isInSelection:1) not].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   810
    ^false
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   811
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   812
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   813
canPaste
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   814
    "returns true if something to be paste exists and a
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   815
     single selection exists"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   816
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   817
    ^CopyBuffer notNil and:[treeView selectedNode notNil]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   818
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   819
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   820
hasValidClass
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   821
    "returns true if the class defined allready exists"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   822
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   823
    ^specClass isBehavior
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   824
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   825
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   826
hasValidMethodSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   827
    "returns true if the class and the instance selector defined
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   828
     allready exists."
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   829
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   830
    (specSelector notNil and:[self hasValidClass]) 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   831
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   832
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   833
        ^(specClass compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   834
    ].    
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   835
    ^false
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   836
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   837
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   838
hasValidSpecSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   839
    "returns true if the class and the class selector defined
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   840
     allready exists."
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   841
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   842
    (specSelector notNil and:[self hasValidClass])
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   843
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   844
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   845
        ^(specClass class compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   846
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   847
    ^false
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   848
! !
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   849
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   850
!HierarchicalListEditor methodsFor:'startup / release'!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   851
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   852
buildFrom:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   853
    "rebuild window from a class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   854
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   855
    |sel anchor|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   856
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   857
    specClass := self resolveName:aClass.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   858
    specSelector := nil.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   859
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   860
    aSelector size ~~ 0 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   861
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   862
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   863
        sel := aSelector asString withoutSeparators.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   864
        sel size ~~ 0 ifTrue:[specSelector := sel asSymbol]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   865
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   866
    treeView selection:nil.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   867
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   868
    (specSelector notNil and:[specClass notNil]) 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   869
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   870
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   871
        (specClass respondsTo:specSelector) 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   872
        ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   873
        [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   874
            anchor := specClass perform:specSelector.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   875
            anchor isArray ifTrue:[anchor := anchor decodeAsLiteralArray]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   876
        ]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   877
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   878
    anchor notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   879
        ifTrue: [anchor expand. treeView root:anchor] 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   880
        ifFalse:[self doNew]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   881
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   882
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   883
initialize
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   884
    "setup default values"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   885
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   886
    super initialize.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   887
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   888
    treeView := SelectionInTreeView new.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   889
    treeView multipleSelectOk: true.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   890
    treeView showDirectoryIndicator: true.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   891
    treeView showDirectoryIndicatorForRoot: false.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   892
    treeView action:[:aNr| self updateChannels. self updateInputFields].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   893
    treeView selectConditionBlock: [:i|self checkMenuItemModified].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   894
    treeView validateDoubleClickBlock: [:node| node ~~ treeView model list first].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   895
    self doNew.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   896
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   897
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   898
openModalOnClass:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   899
    "open modal on class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   900
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   901
    specClass := Association key:aClass value:aSelector.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   902
    super openInterfaceModal.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   903
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   904
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   905
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   906
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   907
openOnClass:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   908
    "open on class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   909
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   910
    specClass := Association key:aClass value:aSelector.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   911
    super openInterface.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   912
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   913
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   914
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   915
postBuildWith:builder
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   916
    "setup view"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   917
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   918
    |cls sel|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   919
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   920
    specClass isAssociation ifTrue:[
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   921
        cls := specClass key.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   922
        sel := specClass value.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   923
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   924
    self buildFrom:cls andSelector:sel.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   925
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   926
! !
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   927
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   928
!HierarchicalListEditor methodsFor:'user actions'!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   929
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   930
accept
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   931
    "invoked by button 'OK'"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   932
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   933
    |node index|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   934
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   935
    (index := treeView selectedIndex) ~~ 0 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   936
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   937
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   938
        node := treeView nodeAtIndex:index.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   939
        node name: self itemName value.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   940
        node contents: self itemValue value.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   941
        treeView redrawLine:index.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   942
    ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   943
    self valueOfEnablingCommitButtons value: false
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   944
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   945
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   946
cancel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   947
    "invoked by button 'Cancel'"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   948
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   949
    self updateInputFields.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   950
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   951
    self valueOfEnablingCommitButtons value: false
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   952
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   953
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   954
doBrowse:what
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   955
    "open a system browser"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   956
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   957
    |cls sel|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   958
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   959
    (cls := specClass) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   960
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   961
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   962
        what == #class 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   963
        ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   964
        [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   965
            (sel := specSelector) isNil ifTrue:[^self].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   966
            what == #spec ifTrue:[cls := cls class]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   967
        ].
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   968
        SystemBrowser openInClass:cls selector:sel
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   969
    ]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   970
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   971
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   972
doCopy
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   973
    "copy current selected nodes into copy buffer"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   974
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   975
    CopyBuffer := OrderedCollection new.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   976
    treeView selectedNodesDo:[:aNode| CopyBuffer add: aNode copy]
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   977
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   978
!
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   979
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   980
doCreateChild
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   981
    "create a child within selected parent"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   982
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   983
    |node|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   984
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   985
    (node := treeView selectedNode) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   986
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   987
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   988
        treeView model add: self newItem beforeIndex:1 below:node.
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   989
        treeView selectedNodeExpand:true.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   990
        self updateChannels.
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   991
    ]
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   992
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   993
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   994
doCreateSister
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   995
    "create a sister next to selected item
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   996
    "
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   997
    |node|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
   998
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
   999
    (node := treeView selectedNode) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1000
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1001
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1002
        node parent notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1003
            ifTrue: [treeView model add: self newItem after:node] 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1004
            ifFalse:[treeView model add: self newItem beforeIndex:1 below:node].
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1005
        self updateChannels
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1006
    ]
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1007
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1008
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1009
doCut
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1010
    "cut current selected nodes"
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1011
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1012
    |selection|
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1013
    treeView hasSelection 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1014
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1015
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1016
        self doCopy.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1017
        selection := treeView selection asSortedCollection.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1018
        treeView selectedNodesRemove.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1019
        treeView selection: selection first - 1.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1020
        self updateChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1021
    ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1022
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1023
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1024
doDefineClass
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1025
    "define class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1026
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1027
    |sel cls bindings accepted|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1028
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1029
    masterApplication notNil ifTrue:[^self information:'Only selector can be changed.'].
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1030
    accepted := true.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1031
    bindings := IdentityDictionary new.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1032
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1033
    specClass    notNil ifTrue:[cls := specClass name asString]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1034
                       ifFalse:[cls := ''].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1035
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1036
    specSelector notNil ifTrue:[sel := specSelector asString]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1037
                       ifFalse:[sel := ''].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1038
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1039
    bindings at:#specSelectorChannel put: sel asValue.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1040
    bindings at:#specClassChannel    put: cls asValue.
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1041
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1042
    [accepted] 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1043
    whileTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1044
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1045
        (accepted := self openDialogInterface:#classAndMethodSpec withBindings:bindings)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1046
        ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1047
        [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1048
            (cls := self resolveName:(bindings at:#specClassChannel) value) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1049
            ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1050
            [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1051
                (sel := (bindings at:#specSelectorChannel) value withoutSeparators) size ~~ 0 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1052
                ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1053
                [
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1054
                    specClass    := cls.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1055
                    specSelector := sel asSymbol.
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1056
                    ^self
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1057
                ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1058
            ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1059
        ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1060
    ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1061
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1062
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1063
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1064
doDefineSelector
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1065
    "define selector only"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1066
327
0040d47658c6 check - warnings eliminated. Fix in InspectorList.st
Claus Gittinger <cg@exept.de>
parents: 306
diff changeset
  1067
    |sel bindings accepted|
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1068
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1069
    accepted := true.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1070
    bindings := IdentityDictionary new.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1071
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1072
    specSelector notNil ifTrue:[sel := specSelector asString]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1073
                       ifFalse:[sel := ''].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1074
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1075
    bindings at:#specSelectorChannel put:(sel asValue).
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1076
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1077
    [accepted] 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1078
    whileTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1079
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1080
        (accepted := self openDialogInterface:#methodSpec withBindings:bindings)
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1081
        ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1082
        [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1083
            (sel := (bindings at:#specSelectorChannel) value withoutSeparators) size ~~ 0 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1084
            ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1085
            [
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1086
                specSelector := sel asSymbol.
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1087
                ^self
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1088
            ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1089
        ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1090
    ]
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1091
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1092
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1093
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1094
doInstall
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1095
    "install code"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1096
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1097
    |code spec category mthd stream|
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1098
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1099
    (specClass notNil and:[specSelector notNil])
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1100
    ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1101
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1102
        ^self information:'No valid class and method defined!!'
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1103
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1104
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1105
    spec   := (treeView nodeAtIndex:1) literalArrayEncoding.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1106
    stream := WriteStream on:String new.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1107
    self class prettyPrintArray:spec on:stream indent:4.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1108
    spec       := stream contents.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1109
    category   := 'interface specs'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1110
    didInstall := true.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1111
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1112
    (mthd := specClass class compiledMethodAt:specSelector) notNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1113
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1114
    [
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1115
        category := mthd category
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1116
    ].
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1117
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1118
    code := Character excla asString 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1119
            , specClass name , ' class methodsFor:' , category storeString
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1120
            , Character excla asString , '\\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1121
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1122
            , specSelector , '\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1123
            , '    "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1124
            , '    "do not manually edit this - the builder may not be able to\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1125
            , '     handle the specification if its corrupted."\\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1126
            , '    "\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1127
            , '     HierarchicalListEditor new openOnClass:' , specClass name , ' andSelector:#' , specSelector , '\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1128
            , '    "\'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1129
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1130
    code := code 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1131
            , '\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1132
            , '    <resource: #hierarchicalList>\\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1133
            , '    ^\' 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1134
            , spec
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1135
            , ' decodeAsLiteralArray\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1136
            , Character excla asString
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1137
            , ' '
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1138
            , Character excla asString
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1139
            , '\\'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1140
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1141
    code := code withCRs.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1142
    (ReadStream on:code) fileIn.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1143
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1144
    (specClass compiledMethodAt:specSelector) isNil 
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1145
    ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1146
    [
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1147
        category := 'aspects'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1148
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1149
        code := Character excla asString 
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1150
                , specClass name , ' methodsFor:' , category storeString
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1151
                , Character excla asString , '\\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1152
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1153
                , specSelector , '\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1154
                , '    "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
306
e5e33576c3ad change install routine;
ca
parents: 300
diff changeset
  1155
                , '    ^ self class ', specSelector
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1156
                , '\'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1157
                , Character excla asString
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1158
                , ' '
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1159
                , Character excla asString
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1160
                , '\\'.
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1161
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1162
        code := code withCRs.
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1163
        (ReadStream on:code) fileIn
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1164
    ]
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1165
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1166
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1167
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1168
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1169
doNew
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1170
    "remove all items; restart"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1171
306
e5e33576c3ad change install routine;
ca
parents: 300
diff changeset
  1172
    treeView root:(TreeItem name:'Anchor' contents:#anchor).
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1173
    treeView selection:0
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1174
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1175
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1176
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1177
doPaste
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1178
    "paste after current selected item"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1179
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1180
    treeView selectedNodeAdd:CopyBuffer.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1181
    self updateChannels
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1182
!
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1183
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1184
doReload
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1185
    "reload spec from current class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1186
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1187
    self buildFrom:specClass andSelector:specSelector
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1188
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1189
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1190
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1191
doStepDown
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1192
    "move selected item after next item"
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1193
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1194
    treeView selectedNodeChangeSequenceOrder:1.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1195
    self updateChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1196
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1197
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1198
doStepIn
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1199
    "lets become the selected item a child of its next sister"
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1200
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1201
    treeView selectedNodeBecomeChildOfNext.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1202
    self updateChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1203
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1204
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1205
doStepOut
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1206
    "let selected node become a sister of its current parent"
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1207
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1208
    treeView selectedNodeBecomeSisterOfParent.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1209
    self updateChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1210
!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1211
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1212
doStepUp
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1213
    "move selected item before previous item"
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1214
423
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1215
    treeView selectedNodeChangeSequenceOrder:-1.
ea6880a0e024 totally revised version; create icons will be changed next days
tz
parents: 372
diff changeset
  1216
    self updateChannels
300
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1217
! !
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1218
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1219
!HierarchicalListEditor class methodsFor:'documentation'!
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1220
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1221
version
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1222
    ^ '$Header$'
2a35cb573365 intitial checkin
ca
parents:
diff changeset
  1223
! !