ResourceSelectionBrowser.st
author Claus Gittinger <cg@exept.de>
Sat, 17 Apr 1999 01:55:48 +0200
changeset 1109 df7d7c6611b6
parent 1086 592f0177687e
child 1184 c67bdfe67afd
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
425
cf47d420764a initial checkin
tz
parents:
diff changeset
     1
"
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
     2
 COPYRIGHT (c) 1997-1998 by eXept Software AG
425
cf47d420764a initial checkin
tz
parents:
diff changeset
     3
              All Rights Reserved
cf47d420764a initial checkin
tz
parents:
diff changeset
     4
cf47d420764a initial checkin
tz
parents:
diff changeset
     5
 This software is furnished under a license and may be used
cf47d420764a initial checkin
tz
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
cf47d420764a initial checkin
tz
parents:
diff changeset
     7
 inclusion of the above copyright notice. This software may not
cf47d420764a initial checkin
tz
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
cf47d420764a initial checkin
tz
parents:
diff changeset
     9
 other person. No title to or ownership of the software is
cf47d420764a initial checkin
tz
parents:
diff changeset
    10
 hereby transferred.
cf47d420764a initial checkin
tz
parents:
diff changeset
    11
"
cf47d420764a initial checkin
tz
parents:
diff changeset
    12
cf47d420764a initial checkin
tz
parents:
diff changeset
    13
cf47d420764a initial checkin
tz
parents:
diff changeset
    14
SelectionBrowser subclass:#ResourceSelectionBrowser
477
857d4289a2bd improved class name completion routine
tz
parents: 472
diff changeset
    15
	instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    16
		allClasses classSelectionBlock'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    17
	classVariableNames:'ClassPresentation'
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    18
	poolDictionaries:''
619
36c9d07f7dc3 class category changed
tz
parents: 616
diff changeset
    19
	category:'Interface-Dialogs'
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    20
!
cf47d420764a initial checkin
tz
parents:
diff changeset
    21
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
    22
Object subclass:#ResourceMethod
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
    23
	instanceVariableNames:'method icon resourceType selector'
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
    24
	classVariableNames:''
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
    25
	poolDictionaries:''
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
    26
	privateIn:ResourceSelectionBrowser
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
    27
!
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
    28
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    29
!ResourceSelectionBrowser class methodsFor:'documentation'!
cf47d420764a initial checkin
tz
parents:
diff changeset
    30
cf47d420764a initial checkin
tz
parents:
diff changeset
    31
copyright
cf47d420764a initial checkin
tz
parents:
diff changeset
    32
"
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
    33
 COPYRIGHT (c) 1997-1998 by eXept Software AG
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    34
              All Rights Reserved
cf47d420764a initial checkin
tz
parents:
diff changeset
    35
cf47d420764a initial checkin
tz
parents:
diff changeset
    36
 This software is furnished under a license and may be used
cf47d420764a initial checkin
tz
parents:
diff changeset
    37
 only in accordance with the terms of that license and with the
cf47d420764a initial checkin
tz
parents:
diff changeset
    38
 inclusion of the above copyright notice. This software may not
cf47d420764a initial checkin
tz
parents:
diff changeset
    39
 be provided or otherwise made available to, or used by, any
cf47d420764a initial checkin
tz
parents:
diff changeset
    40
 other person. No title to or ownership of the software is
cf47d420764a initial checkin
tz
parents:
diff changeset
    41
 hereby transferred.
cf47d420764a initial checkin
tz
parents:
diff changeset
    42
"
cf47d420764a initial checkin
tz
parents:
diff changeset
    43
cf47d420764a initial checkin
tz
parents:
diff changeset
    44
!
cf47d420764a initial checkin
tz
parents:
diff changeset
    45
cf47d420764a initial checkin
tz
parents:
diff changeset
    46
documentation
cf47d420764a initial checkin
tz
parents:
diff changeset
    47
"
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
    48
    The ResourceSelectionBrowser allows you to browse in class hierarchies
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
    49
    and to select resource methods for loading or to saving resource 
905c3b4ba565 revised
tz
parents: 769
diff changeset
    50
    specifications (#canvas, #menu, etc.).
905c3b4ba565 revised
tz
parents: 769
diff changeset
    51
905c3b4ba565 revised
tz
parents: 769
diff changeset
    52
    [instance variables:]
907
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    53
        resourceMethod          <Symbol>        selector of the resource spec
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    54
        resourceClass           <Symbol>        class of the resource spec
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    55
        resourceSuperclass      <Symbol>        root class of the tree list
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    56
        resourceTypes           <Array>         allowed resource types
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    57
        allClasses              <Array>         list of the subclasses of resourceSuperclass
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    58
        classSelectionBlock     <Block>         by evaluating this block the class selection is done
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
    59
504
1ff52096d1d3 copyright changed
tz
parents: 481
diff changeset
    60
    [start with:]
907
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    61
        ResourceSelectionBrowser open
504
1ff52096d1d3 copyright changed
tz
parents: 481
diff changeset
    62
1ff52096d1d3 copyright changed
tz
parents: 481
diff changeset
    63
    [author:]
907
393a5860fc7d class presentation in categories added (2)
tz
parents: 906
diff changeset
    64
        Thomas Zwick, eXept Software AG
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    65
"
cf47d420764a initial checkin
tz
parents:
diff changeset
    66
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
    67
cf47d420764a initial checkin
tz
parents:
diff changeset
    68
!ResourceSelectionBrowser class methodsFor:'instance creation'!
cf47d420764a initial checkin
tz
parents:
diff changeset
    69
649
1896945cf5d4 some cleans
tz
parents: 648
diff changeset
    70
request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: resourceTypes
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
    71
    "opens a ResourceSelectionBrowser 
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    72
        with aTitle
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    73
        on aSuperclassOrSymbol, 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    74
        and aClassOrSymbol, 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    75
        and aSelector,
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    76
        with allowed aResourceTypes"
649
1896945cf5d4 some cleans
tz
parents: 648
diff changeset
    77
    "
1896945cf5d4 some cleans
tz
parents: 648
diff changeset
    78
    ResourceSelectionBrowser
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    79
        request: 'Select a Resource Selector'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    80
        onSuperclass: #ApplicationModel 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    81
        andClass: #MenuEditor 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    82
        andSelector: #menuItemImage 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    83
        withResourceTypes: #(image) 
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    84
    "
cf47d420764a initial checkin
tz
parents:
diff changeset
    85
cf47d420764a initial checkin
tz
parents:
diff changeset
    86
    ^self new
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    87
        title: aTitle;
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    88
        openOnSuperclass: aSuperclass
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    89
        andClass: aClass
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    90
        andSelector: aSelector
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    91
        withResourceTypes: resourceTypes
425
cf47d420764a initial checkin
tz
parents:
diff changeset
    92
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
    93
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
    94
!ResourceSelectionBrowser class methodsFor:'callbacks - default'!
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
    95
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
    96
treeViewClassHierarchyChildren
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
    97
    "returns the children for the contents (class) of aTreeItem as a block"
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
    98
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
    99
    "/ cg: tz's algorithm was very-very slow, 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   100
    "/ (it enumerated classes hundreds of times,
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   101
    "/  leading to a square runtime behavior
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   102
    "/  - i.e. very slow scrolling )
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   103
    "/ Speed up things by caching facts while enumerating
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   104
    "/ classes once only.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   105
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   106
    |subclassesAndPrivateClassesPerClass|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   107
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   108
    subclassesAndPrivateClassesPerClass := IdentityDictionary new.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   109
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   110
    Smalltalk allClassesDo:[:cls |
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   111
        |owner superclass info|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   112
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   113
        (owner := cls owningClass) notNil ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   114
            info := subclassesAndPrivateClassesPerClass at:owner ifAbsent:nil.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   115
            info isNil ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   116
                subclassesAndPrivateClassesPerClass at:owner put:(info := Array with:IdentitySet new 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   117
                                                                                with:IdentitySet new).
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   118
            ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   119
            (info at:2) add:cls
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   120
        ] ifFalse:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   121
            superclass := cls superclass.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   122
            superclass notNil ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   123
                info := subclassesAndPrivateClassesPerClass at:superclass ifAbsent:nil.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   124
                info isNil ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   125
                    subclassesAndPrivateClassesPerClass at:superclass put:(info := Array with:IdentitySet new 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   126
                                                                                         with:IdentitySet new).
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   127
                ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   128
                (info at:1) add:cls
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   129
            ]
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   130
        ]
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   131
    ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   132
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   133
    ^ [:aTreeItem|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   134
        |classes itemClass info|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   135
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   136
        classes := OrderedCollection new. 
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   137
        itemClass := aTreeItem contents.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   138
        info := subclassesAndPrivateClassesPerClass at:itemClass ifAbsent:nil.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   139
        info notNil ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   140
            classes addAll:((info at:1) asSortedCollection: [:cls1 :cls2| cls1 name < cls2 name]).
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   141
            classes addAll:((info at:2) asSortedCollection: [:cls1 :cls2| cls1 name < cls2 name]).
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   142
        ].
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   143
        classes
718
c2e814032029 show private classes only for their owning classes
tz
parents: 693
diff changeset
   144
     ]
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   145
!
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   146
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   147
treeViewClassHierarchyContents
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   148
    "returns the default contents of the root of the class tree list"
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   149
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   150
    ^ Object
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   151
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   152
!
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   153
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   154
treeViewClassHierarchyIcon
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   155
    "returns the icon for aTreeItem as a block"
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   156
718
c2e814032029 show private classes only for their owning classes
tz
parents: 693
diff changeset
   157
    ^[:aTreeItem|
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   158
        |icon|
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   159
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   160
        aTreeItem contents isClass ifTrue:[
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   161
            icon := self iconClass.
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   162
            aTreeItem contents isPrivate ifTrue:[
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   163
               icon := self iconPrivateClass
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   164
            ].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   165
            icon
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   166
        ] ifFalse:[
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   167
            self iconCategory
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   168
        ]
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   169
    ]
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   170
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   171
!
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   172
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   173
treeViewClassHierarchyLabel
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   174
    "returns the label for aTreeItem as a block"
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   175
718
c2e814032029 show private classes only for their owning classes
tz
parents: 693
diff changeset
   176
    ^[:aTreeItem|
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   177
        |label superCls itemContents|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   178
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   179
        itemContents := aTreeItem contents.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   180
        label := itemContents name.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   181
        (itemContents isPrivate 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   182
        and:[aTreeItem parent contents ~~ (superCls := itemContents superclass)])
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   183
            ifTrue: [label := label, ' (', superCls name, ')'].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   184
        label
718
c2e814032029 show private classes only for their owning classes
tz
parents: 693
diff changeset
   185
     ]
c2e814032029 show private classes only for their owning classes
tz
parents: 693
diff changeset
   186
c2e814032029 show private classes only for their owning classes
tz
parents: 693
diff changeset
   187
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   188
! !
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   189
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   190
!ResourceSelectionBrowser class methodsFor:'image specs'!
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   191
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   192
iconCategory
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   193
    "This resource specification was automatically generated
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   194
     by the ImageEditor of ST/X."
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   195
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   196
    "Do not manually edit this!! If it is corrupted,
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   197
     the ImageEditor may not be able to read the specification."
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   198
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   199
    "
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   200
     self iconCategory inspect
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   201
     ImageEditor openOnClass:self andSelector:#iconCategory
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   202
    "
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   203
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   204
    <resource: #image>
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   205
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   206
    ^Icon
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   207
        constantNamed:#'ResourceSelectionBrowser iconCategory'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   208
        ifAbsentPut:[(Depth4Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'3L0@@@@@@L3L3L@@@@@@@@3L3@@3L3L3L0CL3@LQDQDQD#CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@LRH"H"H3CL3@L#L3L3L3CL3@@3L3L3L0CL3L@@@@@@@@3L3L0@@@@@@L3L') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<@O@8@G@3?3@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@7?;@3?3@8@G@<@O@') ; yourself); yourself]!
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   209
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   210
iconClass
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   211
    "This resource specification was automatically generated
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   212
     by the ImageEditor of ST/X."
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   213
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   214
    "Do not manually edit this!! If it is corrupted,
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   215
     the ImageEditor may not be able to read the specification."
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   216
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   217
    "
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   218
     ImageEditor openOnClass:self andSelector:#iconClass
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   219
    "
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   220
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   221
    <resource: #image>
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   222
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   223
    ^Icon
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   224
	constantNamed:#'ResourceSelectionBrowser iconClass'
905c3b4ba565 revised
tz
parents: 769
diff changeset
   225
	ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUU!!Q****(@F**** @Z****@A****(@F**** @Z****@A****(LF**** TZ****@A****(@F**** @Z****@B@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]!
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   226
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   227
iconPrivateClass
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   228
    "This resource specification was automatically generated
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   229
     by the ImageEditor of ST/X."
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   230
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   231
    "Do not manually edit this!! If it is corrupted,
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   232
     the ImageEditor may not be able to read the specification."
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   233
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   234
    "
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   235
     ImageEditor openOnClass:self andSelector:#iconPrivateClass
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   236
    "
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   237
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   238
    <resource: #image>
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   239
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   240
    ^Icon
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   241
	constantNamed:#'ResourceSelectionBrowser iconPrivateClass'
905c3b4ba565 revised
tz
parents: 769
diff changeset
   242
	ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C2@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! !
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   243
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   244
!ResourceSelectionBrowser class methodsFor:'interface specs'!
cf47d420764a initial checkin
tz
parents:
diff changeset
   245
cf47d420764a initial checkin
tz
parents:
diff changeset
   246
windowSpec
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   247
    "This resource specification was automatically generated
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   248
     by the UIPainter of ST/X."
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   249
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   250
    "Do not manually edit this!! If it is corrupted,
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   251
     the UIPainter may not be able to read the specification."
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   252
cf47d420764a initial checkin
tz
parents:
diff changeset
   253
    "
cf47d420764a initial checkin
tz
parents:
diff changeset
   254
     UIPainter new openOnClass:ResourceSelectionBrowser andSelector:#windowSpec
cf47d420764a initial checkin
tz
parents:
diff changeset
   255
     ResourceSelectionBrowser new openInterface:#windowSpec
746
8b3532f50ea9 comment
tz
parents: 733
diff changeset
   256
     ResourceSelectionBrowser open
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   257
    "
cf47d420764a initial checkin
tz
parents:
diff changeset
   258
cf47d420764a initial checkin
tz
parents:
diff changeset
   259
    <resource: #canvas>
cf47d420764a initial checkin
tz
parents:
diff changeset
   260
cf47d420764a initial checkin
tz
parents:
diff changeset
   261
    ^
468
bb4e776b9210 levels changed
tz
parents: 467
diff changeset
   262
     
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   263
       #(#FullSpec
773
tz
parents: 771
diff changeset
   264
          #window: 
tz
parents: 771
diff changeset
   265
           #(#WindowSpec
tz
parents: 771
diff changeset
   266
              #name: 'Resource Selection Browser'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   267
              #layout: #(#LayoutFrame 194 0 307 0 793 0 656 0)
773
tz
parents: 771
diff changeset
   268
              #label: 'Resource Selection Browser'
tz
parents: 771
diff changeset
   269
              #min: #(#Point 400 300)
tz
parents: 771
diff changeset
   270
              #max: #(#Point 1152 864)
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   271
              #bounds: #(#Rectangle 194 307 794 657)
773
tz
parents: 771
diff changeset
   272
              #usePreferredExtent: false
tz
parents: 771
diff changeset
   273
          )
tz
parents: 771
diff changeset
   274
          #component: 
tz
parents: 771
diff changeset
   275
           #(#SpecCollection
tz
parents: 771
diff changeset
   276
              #collection: 
tz
parents: 771
diff changeset
   277
               #(
tz
parents: 771
diff changeset
   278
                 #(#VariableHorizontalPanelSpec
tz
parents: 771
diff changeset
   279
                    #name: 'VariableHorizontalPanel'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   280
                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -36 1.0)
773
tz
parents: 771
diff changeset
   281
                    #component: 
tz
parents: 771
diff changeset
   282
                     #(#SpecCollection
tz
parents: 771
diff changeset
   283
                        #collection: 
tz
parents: 771
diff changeset
   284
                         #(
tz
parents: 771
diff changeset
   285
                           #(#ViewSpec
tz
parents: 771
diff changeset
   286
                              #name: 'Box1'
tz
parents: 771
diff changeset
   287
                              #component: 
tz
parents: 771
diff changeset
   288
                               #(#SpecCollection
tz
parents: 771
diff changeset
   289
                                  #collection: 
tz
parents: 771
diff changeset
   290
                                   #(
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   291
                                     #(#HorizontalPanelViewSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   292
                                        #name: 'HorizontalPanel2'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   293
                                        #layout: #(#LayoutFrame 0 0 2 0 297 0 23 0)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   294
                                        #component: 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   295
                                         #(#SpecCollection
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   296
                                            #collection: 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   297
                                             #(
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   298
                                               #(#RadioButtonSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   299
                                                  #name: 'ClassCategoriesRadioButton'
918
1172ecb3fd63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
   300
                                                  #label: 'Categories'
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   301
                                                  #translateLabel: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   302
                                                  #model: #selectionOfClassPresentation
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   303
                                                  #isTriggerOnDown: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   304
                                                  #lampColor: #(#Color 0.0 0.0 0.0)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   305
                                                  #select: #'Class Categories'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   306
                                                  #extent: #(#Point 124 21)
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   307
                                              )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   308
                                               #(#RadioButtonSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   309
                                                  #name: 'ClassHierarchyRadioButton'
918
1172ecb3fd63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
   310
                                                  #label: 'Hierarchy'
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   311
                                                  #translateLabel: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   312
                                                  #model: #selectionOfClassPresentation
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   313
                                                  #isTriggerOnDown: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   314
                                                  #lampColor: #(#Color 0.0 0.0 0.0)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   315
                                                  #select: #'Class Hierarchy'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   316
                                                  #extent: #(#Point 145 21)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   317
                                              )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   318
                                            )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   319
                                        )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   320
                                        #horizontalLayout: #leftSpace
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   321
                                        #verticalLayout: #fit
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   322
                                        #horizontalSpace: 3
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   323
                                        #verticalSpace: 3
773
tz
parents: 771
diff changeset
   324
                                    )
tz
parents: 771
diff changeset
   325
                                     #(#SelectionInTreeViewSpec
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   326
                                        #name: 'listOfClassHierarchyView'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   327
                                        #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
773
tz
parents: 771
diff changeset
   328
                                        #tabable: true
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   329
                                        #model: #selectionOfClassHierarchy
773
tz
parents: 771
diff changeset
   330
                                        #hasHorizontalScrollBar: true
tz
parents: 771
diff changeset
   331
                                        #hasVerticalScrollBar: true
tz
parents: 771
diff changeset
   332
                                        #miniScrollerHorizontal: true
tz
parents: 771
diff changeset
   333
                                        #showDirectoryIndicatorForRoot: false
tz
parents: 771
diff changeset
   334
                                        #showDirectoryIndicator: true
tz
parents: 771
diff changeset
   335
                                        #valueChangeSelector: #classSelected
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   336
                                        #hierarchicalList: #rootOfClassHierarchy
773
tz
parents: 771
diff changeset
   337
                                        #validateDoubleClickSelector: #validateDoubleClick:
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   338
                                        #contentsSelector: #treeViewClassHierarchyContents
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   339
                                        #labelSelector: #treeViewClassHierarchyLabel
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   340
                                        #childrenSelector: #treeViewClassHierarchyChildren
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   341
                                        #iconSelector: #treeViewClassHierarchyIcon
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   342
                                    )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   343
                                     #(#SelectionInTreeViewSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   344
                                        #name: 'listOfClassCategoriesView'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   345
                                        #layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -24 1.0)
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   346
                                        #tabable: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   347
                                        #model: #selectionOfClassCategories
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   348
                                        #hasHorizontalScrollBar: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   349
                                        #hasVerticalScrollBar: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   350
                                        #miniScrollerHorizontal: true
909
c0bd0d9103e3 class presentation in categories added (3)
tz
parents: 907
diff changeset
   351
                                        #showRoot: false
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   352
                                        #showDirectoryIndicator: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   353
                                        #valueChangeSelector: #classSelected
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   354
                                        #hierarchicalList: #rootOfClassCategories
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   355
                                        #validateDoubleClickSelector: #validateDoubleClick:
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   356
                                        #childrenSelector: #treeViewClassCategoryChildren
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   357
                                        #iconSelector: #treeViewClassCategoryIcon
773
tz
parents: 771
diff changeset
   358
                                    )
tz
parents: 771
diff changeset
   359
                                     #(#InputFieldSpec
tz
parents: 771
diff changeset
   360
                                        #name: 'classNameInputField'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   361
                                        #layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)
773
tz
parents: 771
diff changeset
   362
                                        #tabable: true
tz
parents: 771
diff changeset
   363
                                        #model: #valueOfClassName
tz
parents: 771
diff changeset
   364
                                    )
tz
parents: 771
diff changeset
   365
                                  )
tz
parents: 771
diff changeset
   366
                              )
tz
parents: 771
diff changeset
   367
                          )
tz
parents: 771
diff changeset
   368
                           #(#ViewSpec
tz
parents: 771
diff changeset
   369
                              #name: 'Box2'
tz
parents: 771
diff changeset
   370
                              #component: 
tz
parents: 771
diff changeset
   371
                               #(#SpecCollection
tz
parents: 771
diff changeset
   372
                                  #collection: 
tz
parents: 771
diff changeset
   373
                                   #(
tz
parents: 771
diff changeset
   374
                                     #(#DataSetSpec
tz
parents: 771
diff changeset
   375
                                        #name: 'resourcesDataSetView'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   376
                                        #layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -24 1.0)
773
tz
parents: 771
diff changeset
   377
                                        #model: #selectionOfResourceMethod
tz
parents: 771
diff changeset
   378
                                        #hasHorizontalScrollBar: true
tz
parents: 771
diff changeset
   379
                                        #hasVerticalScrollBar: true
tz
parents: 771
diff changeset
   380
                                        #miniScrollerHorizontal: true
tz
parents: 771
diff changeset
   381
                                        #rowClassName: 'ResourceSelectionBrowser::Row'
tz
parents: 771
diff changeset
   382
                                        #dataList: #listOfResourceMethods
tz
parents: 771
diff changeset
   383
                                        #useIndex: false
tz
parents: 771
diff changeset
   384
                                        #has3Dsepartors: true
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   385
                                        #has3Dseparators: true
773
tz
parents: 771
diff changeset
   386
                                        #doubleClickSelector: #resourceDoubleClicked
tz
parents: 771
diff changeset
   387
                                        #columnHolder: #resourceMethodColumns
tz
parents: 771
diff changeset
   388
                                        #valueChangeSelector: #resourceSelected
tz
parents: 771
diff changeset
   389
                                        #verticalSpacing: 1
tz
parents: 771
diff changeset
   390
                                    )
tz
parents: 771
diff changeset
   391
                                     #(#InputFieldSpec
tz
parents: 771
diff changeset
   392
                                        #name: 'selectorInputField'
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   393
                                        #layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)
773
tz
parents: 771
diff changeset
   394
                                        #tabable: true
tz
parents: 771
diff changeset
   395
                                        #model: #valueOfResourceSelector
tz
parents: 771
diff changeset
   396
                                    )
tz
parents: 771
diff changeset
   397
                                  )
tz
parents: 771
diff changeset
   398
                              )
tz
parents: 771
diff changeset
   399
                          )
tz
parents: 771
diff changeset
   400
                        )
tz
parents: 771
diff changeset
   401
                    )
tz
parents: 771
diff changeset
   402
                    #handles: #(#Any 0.5 1.0)
tz
parents: 771
diff changeset
   403
                )
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   404
                 #(#HorizontalPanelViewSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   405
                    #name: 'HorizontalPanel1'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   406
                    #layout: #(#LayoutFrame 2 0.0 -30 1 -2 1.0 -4 1.0)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   407
                    #component: 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   408
                     #(#SpecCollection
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   409
                        #collection: 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   410
                         #(
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   411
                           #(#ActionButtonSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   412
                              #name: 'HelpButton'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   413
                              #activeHelpKey: #dss
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   414
                              #label: 'Help'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   415
                              #model: #openHTMLDocument:
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   416
                              #initiallyDisabled: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   417
                              #enableChannel: #helpEnabled
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   418
                              #actionValue: 'tools/uipainter/ResourceSelectionBrowser.html'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   419
                              #extent: #(#Point 196 26)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   420
                          )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   421
                           #(#ActionButtonSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   422
                              #name: 'cancelButton'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   423
                              #activeHelpKey: #commitCancel
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   424
                              #label: 'Cancel'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   425
                              #tabable: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   426
                              #model: #cancel
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   427
                              #extent: #(#Point 196 26)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   428
                          )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   429
                           #(#ActionButtonSpec
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   430
                              #name: 'okButton'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   431
                              #activeHelpKey: #commitOK
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   432
                              #label: 'OK'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   433
                              #tabable: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   434
                              #model: #accept
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   435
                              #isDefault: true
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   436
                              #extent: #(#Point 196 24)
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   437
                          )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   438
                        )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   439
                    )
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   440
                    #horizontalLayout: #fit
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   441
                    #verticalLayout: #fit
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   442
                )
773
tz
parents: 771
diff changeset
   443
              )
tz
parents: 771
diff changeset
   444
          )
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   445
      )
918
1172ecb3fd63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
   446
1172ecb3fd63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 910
diff changeset
   447
    "Modified: / 27.7.1998 / 18:05:40 / cg"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   448
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
   449
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   450
!ResourceSelectionBrowser class methodsFor:'list specs'!
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   451
822
be574ef48217 checkin from browser
tz
parents: 821
diff changeset
   452
tableColumnsForResourceMethodAttributes
821
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   453
    "This resource specification was automatically generated
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   454
     by the DataSetBuilder of ST/X."
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   455
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   456
    "Do not manually edit this!! If it is corrupted,
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   457
     the DataSetBuilder may not be able to read the specification."
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   458
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   459
    "
822
be574ef48217 checkin from browser
tz
parents: 821
diff changeset
   460
     DataSetBuilder new openOnClass:ResourceSelectionBrowser andSelector:#tableColumnsForResourceMethodAttributes
821
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   461
    "
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   462
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   463
    <resource: #tableColumns>
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   464
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   465
821
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   466
    ^ #(
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   467
        #(#DataSetColumnSpec
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   468
           #width: 20
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   469
           #height: 20
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   470
           #printSelector: #iconOn:
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   471
           #canSelect: false
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   472
       )
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   473
        #(#DataSetColumnSpec
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   474
           #label: ' Selector'
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   475
           #labelAlignment: #left
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   476
           #model: #selector
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   477
           #canSelect: false
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   478
       )
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   479
        #(#DataSetColumnSpec
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   480
           #label: ' Resource Type'
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   481
           #labelAlignment: #left
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   482
           #model: #resourceType
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   483
           #canSelect: false
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   484
       )
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   485
     )
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   486
! !
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   487
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   488
!ResourceSelectionBrowser methodsFor:'aspects'!
cf47d420764a initial checkin
tz
parents:
diff changeset
   489
773
tz
parents: 771
diff changeset
   490
helpEnabled
tz
parents: 771
diff changeset
   491
    "returns whether there is a documentation file"
tz
parents: 771
diff changeset
   492
tz
parents: 771
diff changeset
   493
    ^true
tz
parents: 771
diff changeset
   494
!
tz
parents: 771
diff changeset
   495
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   496
listOfResourceMethods
905c3b4ba565 revised
tz
parents: 769
diff changeset
   497
    "returns the value holder for the list of the resource methods"
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   498
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   499
    |holder|
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   500
    (holder := builder bindingAt:#listOfResourceMethods) isNil ifTrue:[
905c3b4ba565 revised
tz
parents: 769
diff changeset
   501
	builder aspectAt:#listOfResourceMethods put:(holder :=  List new).
648
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   502
    ].
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   503
    ^ holder
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   504
!
d0724edba450 some changes for the lib builder and for its new subclass
tz
parents: 641
diff changeset
   505
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   506
resourceMethodColumns
905c3b4ba565 revised
tz
parents: 769
diff changeset
   507
    "returns the columns for the table of the resource methods as value holder"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   508
cf47d420764a initial checkin
tz
parents:
diff changeset
   509
    |holder|
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   510
    (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[
821
950e6fbbc1f0 table columns formatted
tz
parents: 812
diff changeset
   511
        builder aspectAt:#resourceMethodColumns put:(holder := List new).
822
be574ef48217 checkin from browser
tz
parents: 821
diff changeset
   512
        holder addAll: (self class tableColumnsForResourceMethodAttributes collect: [:i| i decodeAsLiteralArray]).
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   513
    ].
905c3b4ba565 revised
tz
parents: 769
diff changeset
   514
    ^ holder
905c3b4ba565 revised
tz
parents: 769
diff changeset
   515
!
905c3b4ba565 revised
tz
parents: 769
diff changeset
   516
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   517
rootOfClassCategories
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   518
    "returns the value holder for the root of the class tree list"
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   519
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   520
    |holder|                                
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   521
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   522
    (holder := builder bindingAt:#rootOfClassCategories) isNil ifTrue:[
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   523
        ClassPresentation = #'Class Categories' ifTrue: [
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   524
        builder aspectAt:#rootOfClassCategories put: (holder := TreeItem name: 'Categories')].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   525
    ].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   526
    ^ holder
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   527
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   528
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   529
!
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   530
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   531
rootOfClassHierarchy
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   532
    "returns the value holder for the root of the class tree list"
905c3b4ba565 revised
tz
parents: 769
diff changeset
   533
905c3b4ba565 revised
tz
parents: 769
diff changeset
   534
    |holder|
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   535
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   536
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   537
    (holder := builder bindingAt:#rootOfClassHierarchy) isNil ifTrue:[
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   538
        ClassPresentation = #'Class Hierarchy' ifTrue: [
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   539
        builder aspectAt:#rootOfClassHierarchy put: (holder := TreeItem new)]
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   540
    ].
cf47d420764a initial checkin
tz
parents:
diff changeset
   541
    ^ holder
cf47d420764a initial checkin
tz
parents:
diff changeset
   542
cf47d420764a initial checkin
tz
parents:
diff changeset
   543
cf47d420764a initial checkin
tz
parents:
diff changeset
   544
!
cf47d420764a initial checkin
tz
parents:
diff changeset
   545
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   546
selectionOfClassCategories
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   547
    "returns the value holder for the selected class of the class tree list"
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   548
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   549
    |holder|           
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   550
    (holder := builder bindingAt:#selectionOfClassCategories) isNil ifTrue:[
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   551
        builder aspectAt:#selectionOfClassCategories put:(holder :=  ValueHolder new). 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   552
    ].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   553
    ^ holder
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   554
!
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   555
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   556
selectionOfClassHierarchy
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   557
    "returns the value holder for the selected class of the class tree list"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   558
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   559
    |holder|           
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   560
    (holder := builder bindingAt:#selectionOfClassHierarchy) isNil ifTrue:[
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   561
        builder aspectAt:#selectionOfClassHierarchy put:(holder :=  ValueHolder new). 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   562
    ].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   563
    ^ holder
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   564
!
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   565
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   566
selectionOfClassPresentation
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   567
    "returns the value holder for the selected class presentation"
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   568
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   569
    |holder|
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   570
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   571
    (holder := builder bindingAt:#selectionOfClassPresentation) isNil ifTrue:[
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   572
        builder aspectAt:#selectionOfClassPresentation put:(holder :=  RadioButtonGroup with: (ClassPresentation := ClassPresentation ? #'Class Categories')).
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   573
        holder onChangeSend: #value to: 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   574
            [
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   575
                 |hv comp newRoot|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   576
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   577
                 hv := holder value.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   578
                 ClassPresentation := hv.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   579
                 hv = #'Class Hierarchy' ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   580
                      comp := builder componentAt: #listOfClassHierarchyView.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   581
                      newRoot := self rootOfClassHierarchy.  
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   582
                 ] ifFalse: [
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   583
                      comp := builder componentAt: #listOfClassCategoriesView.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   584
                      newRoot := self rootOfClassCategories. 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   585
                 ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   586
                 comp root:newRoot.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   587
                 comp raise. 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   588
                 classSelectionBlock value: self valueOfClassName value
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   589
            ]
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   590
    ].
cf47d420764a initial checkin
tz
parents:
diff changeset
   591
    ^ holder
cf47d420764a initial checkin
tz
parents:
diff changeset
   592
!
cf47d420764a initial checkin
tz
parents:
diff changeset
   593
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   594
selectionOfResourceMethod
905c3b4ba565 revised
tz
parents: 769
diff changeset
   595
    "returns the value holder for the selected resource method of the resource method list"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   596
cf47d420764a initial checkin
tz
parents:
diff changeset
   597
    |holder|
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   598
    (holder := builder bindingAt:#selectionOfResourceMethod) isNil ifTrue:[
905c3b4ba565 revised
tz
parents: 769
diff changeset
   599
	builder aspectAt:#selectionOfResourceMethod put:(holder :=  '' asValue).
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   600
    ].
cf47d420764a initial checkin
tz
parents:
diff changeset
   601
    ^ holder
cf47d420764a initial checkin
tz
parents:
diff changeset
   602
!
cf47d420764a initial checkin
tz
parents:
diff changeset
   603
467
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   604
valueOfClassName
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   605
    "returns the value holder for the name of the class"
467
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   606
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   607
    |holder|                   
467
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   608
    (holder := builder bindingAt:#valueOfClassName) isNil ifTrue:[
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   609
        builder aspectAt:#valueOfClassName put:(holder :=  '' asValue).
467
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   610
    ].
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   611
    ^ holder
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   612
!
ddb605aaf94a class retrieval support added
tz
parents: 463
diff changeset
   613
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   614
valueOfResourceSelector
905c3b4ba565 revised
tz
parents: 769
diff changeset
   615
    "returns the value holder for the name of the selector"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   616
cf47d420764a initial checkin
tz
parents:
diff changeset
   617
    |holder|
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   618
    (holder := builder bindingAt:#valueOfResourceSelector) isNil ifTrue:[
905c3b4ba565 revised
tz
parents: 769
diff changeset
   619
	builder aspectAt:#valueOfResourceSelector put:(holder :=  '' asValue).
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   620
    ].
cf47d420764a initial checkin
tz
parents:
diff changeset
   621
    ^ holder
cf47d420764a initial checkin
tz
parents:
diff changeset
   622
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
   623
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   624
!ResourceSelectionBrowser methodsFor:'callbacks - class list'!
632
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   625
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   626
treeViewClassCategoryChildren
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   627
    "returns the children for the contents (class) of aTreeItem as a block"
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   628
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   629
    "/ cg: tz's algorithm was very-very slow, 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   630
    "/ (it enumerated classes hundreds of times,
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   631
    "/  leading to a square runtime behavior
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   632
    "/  - i.e. very slow scrolling )
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   633
    "/ Speed up things by caching facts while enumerating
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   634
    "/ classes once only.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   635
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   636
    |allClasses topClass childrenPerCategory privateClasses|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   637
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   638
    topClass := self treeViewClassHierarchyContents.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   639
    allClasses := topClass withAllSubclasses.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   640
    privateClasses := IdentitySet new.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   641
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   642
    childrenPerCategory := Dictionary new.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   643
    allClasses do:[:cls |
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   644
        |cat set|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   645
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   646
        cls isPrivate ifFalse:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   647
            cat := cls category.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   648
            set := childrenPerCategory at:cat ifAbsent:nil.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   649
            set isNil ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   650
                childrenPerCategory at:cat put:(set := IdentitySet new).
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   651
            ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   652
            set add:cls
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   653
        ] ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   654
            privateClasses add:cls
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   655
        ]
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   656
    ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   657
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   658
    ^ [:aTreeItem|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   659
        |cont children initialContents setOfCategories itemCategory setOfClasses|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   660
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   661
        (cont := aTreeItem contents) isBehavior ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   662
           children := privateClasses select:[:cls | cls owningClass == aTreeItem contents].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   663
           children := children asSortedCollection: [:c1 :c2| c1 name <= c2 name].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   664
           children := children collect: [:child| TreeItem name: child name , ' (', child superclass name, ')' contents: child]
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   665
        ] ifFalse:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   666
            cont size == 0 ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   667
                setOfCategories := childrenPerCategory keys.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   668
                children := setOfCategories asSortedCollection.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   669
                children := children collect: [:nm | TreeItem name:nm contents:#Category]
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   670
            ] ifFalse:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   671
                cont == #Category ifTrue:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   672
                    itemCategory := aTreeItem name.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   673
                    setOfClasses := childrenPerCategory at:itemCategory ifAbsent:[Set new].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   674
                    children := setOfClasses asOrderedCollection sort:[:c1 :c2 | c1 name <= c2 name].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   675
                    children := children collect:[:child | TreeItem name:child name contents:child].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   676
                ] ifFalse:[
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   677
                    "/ huh ?
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   678
                    children := OrderedCollection new.
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   679
                ]
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   680
            ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   681
        ].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   682
        children
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   683
    ]
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   684
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   685
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   686
!
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   687
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   688
treeViewClassCategoryIcon
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   689
    "returns the icon for aTreeItem as a block"
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   690
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   691
    ^self class treeViewClassHierarchyIcon
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   692
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   693
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   694
!
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   695
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   696
treeViewClassHierarchyContents
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   697
    "returns the contents of the root of the class tree list"
632
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   698
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   699
    |cls|
632
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   700
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   701
    resourceSuperclass notNil ifTrue:[
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   702
        cls := Smalltalk at: resourceSuperclass.
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   703
    ].
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   704
    cls notNil ifTrue:[^ cls].
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   705
    ^ self class treeViewClassHierarchyContents
632
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   706
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   707
!
905c3b4ba565 revised
tz
parents: 769
diff changeset
   708
905c3b4ba565 revised
tz
parents: 769
diff changeset
   709
validateDoubleClick: aTreeItem
905c3b4ba565 revised
tz
parents: 769
diff changeset
   710
    "returns whether a class may be selected"
905c3b4ba565 revised
tz
parents: 769
diff changeset
   711
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   712
    |cont|
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   713
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   714
    ^ (cont := aTreeItem contents) ~= '' 
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   715
      and: [cont ~~ self treeViewClassHierarchyContents]       
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   716
905c3b4ba565 revised
tz
parents: 769
diff changeset
   717
905c3b4ba565 revised
tz
parents: 769
diff changeset
   718
632
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   719
! !
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   720
930b778d5e28 uses now dynamic tree items
tz
parents: 623
diff changeset
   721
!ResourceSelectionBrowser methodsFor:'callbacks - user'!
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   722
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   723
classSelected
905c3b4ba565 revised
tz
parents: 769
diff changeset
   724
    "after a class selection, read the allowed resource methods of the selected class"
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   725
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   726
    ClassPresentation = #'Class Hierarchy'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   727
        ifTrue:  [self selectionOfClassHierarchy  value isNil ifTrue: [^nil]]
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   728
        ifFalse: [self selectionOfClassCategories value isNil ifTrue: [^nil]].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   729
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   730
    self withWaitCursorDo:
cf47d420764a initial checkin
tz
parents:
diff changeset
   731
    [
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   732
        |clsName|           
517
91ff807d8a23 set resource selection after opening
tz
parents: 504
diff changeset
   733
        resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes].
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   734
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   735
        ClassPresentation = #'Class Hierarchy'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   736
            ifTrue:  [clsName := (self selectionOfClassHierarchy  value name upTo: $ ) asSymbol]
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   737
            ifFalse: [clsName := (self selectionOfClassCategories value name upTo: $ ) asSymbol].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   738
477
857d4289a2bd improved class name completion routine
tz
parents: 472
diff changeset
   739
        self valueOfClassName value: clsName.
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   740
        self class lastSelection: clsName.
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   741
        self listOfResourceMethods contents:
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   742
            ((((Smalltalk at: clsName) 
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   743
                class methodDictionary
cf47d420764a initial checkin
tz
parents:
diff changeset
   744
                asOrderedCollection select: 
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   745
                    [:m| m resources notNil and: [resourceTypes includes: m resourceType]]))
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   746
             collect: [:m| (ResourceMethod new method: m)]).
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   747
    ]
cf47d420764a initial checkin
tz
parents:
diff changeset
   748
!
cf47d420764a initial checkin
tz
parents:
diff changeset
   749
cf47d420764a initial checkin
tz
parents:
diff changeset
   750
resourceDoubleClicked
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   751
    "after a double click on resource method, accept it and close"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   752
cf47d420764a initial checkin
tz
parents:
diff changeset
   753
    accept value: true.
1034
3cb196044804 fixed stupid class-enumeration code.
Claus Gittinger <cg@exept.de>
parents: 918
diff changeset
   754
    self closeRequest
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   755
!
cf47d420764a initial checkin
tz
parents:
diff changeset
   756
cf47d420764a initial checkin
tz
parents:
diff changeset
   757
resourceSelected
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   758
    "after a click on a resource method, set its selector into the field"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   759
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   760
    self selectionOfResourceMethod value notNil
905c3b4ba565 revised
tz
parents: 769
diff changeset
   761
	ifTrue: [self valueOfResourceSelector value: self selectionOfResourceMethod value selector]
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   762
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
   763
cf47d420764a initial checkin
tz
parents:
diff changeset
   764
!ResourceSelectionBrowser methodsFor:'instance creation'!
cf47d420764a initial checkin
tz
parents:
diff changeset
   765
cf47d420764a initial checkin
tz
parents:
diff changeset
   766
openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   767
    "opens a ResourceSelectionBrowser on 
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   768
        aSuperclassOrSymbol, 
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   769
        and aClassOrSymbol, 
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   770
        and aSelector,
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   771
        with allowed aResourceTypes"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   772
1086
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   773
    |clsName clsNameString|
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   774
517
91ff807d8a23 set resource selection after opening
tz
parents: 504
diff changeset
   775
    resourceMethod := aSelector.
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   776
    resourceTypes := aResourceTypes.
cf47d420764a initial checkin
tz
parents:
diff changeset
   777
    resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   778
    resourceClass := nil.
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   779
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   780
    aClassOrSymbol isClass 
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   781
        ifTrue: [resourceClass := aClassOrSymbol name] 
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   782
        ifFalse: [
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   783
            aClassOrSymbol notNil ifTrue:[
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   784
                (Smalltalk at: aClassOrSymbol) notNil
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   785
                ifTrue: [resourceClass := aClassOrSymbol]
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   786
            ]
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   787
        ].            
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   788
    self valueOfResourceSelector value:(aSelector ? '').
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   789
463
947f89198464 return complete message even if not implemented
tz
parents: 436
diff changeset
   790
    self open.
947f89198464 return complete message even if not implemented
tz
parents: 436
diff changeset
   791
1086
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   792
    (clsName := self selectionOfClassHierarchy value) isNil ifTrue:[
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   793
        (clsName := self selectionOfClassCategories value) isNil ifTrue:[
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   794
            (clsNameString := self valueOfClassName value) isNil ifTrue:[
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   795
                accept value ifTrue:[
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   796
                    self warn:'No valid class selected/entered'.
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   797
                ].
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   798
                ^ nil
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   799
            ]
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   800
        ]
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   801
    ].
693
bb247cc428c3 also return resource selectors from private classes
tz
parents: 689
diff changeset
   802
1086
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   803
    clsNameString isNil ifTrue:[
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   804
        clsNameString := clsName name upTo:Character space
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   805
    ].
1086
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   806
    clsNameString := clsNameString asSymbol.
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   807
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   808
    ((Smalltalk at: clsNameString) isClass and:[accept value]) ifTrue:[            
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   809
        ^ clsNameString, ' ', self valueOfResourceSelector value
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   810
    ].
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   811
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   812
    accept value ifTrue:[
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   813
        self warn:'No valid class selected/entered'.
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   814
    ].
592f0177687e did not look at className in enterField
Claus Gittinger <cg@exept.de>
parents: 1034
diff changeset
   815
    ^ nil
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   816
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   817
    "Modified: / 22.4.1998 / 14:51:03 / cg"
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   818
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
   819
cf47d420764a initial checkin
tz
parents:
diff changeset
   820
!ResourceSelectionBrowser methodsFor:'startup / release'!
cf47d420764a initial checkin
tz
parents:
diff changeset
   821
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   822
postBuildWith:aBuilder
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   823
    "after building and before opening,  
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   824
     create a class selection block, an entry completion block for the class name field"
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   825
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   826
    |classSelection classNameInputField|
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   827
     
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   828
    allClasses := self treeViewClassHierarchyContents withAllSubclasses reject: [:cls| cls isPrivate].
689
ff099c344dd6 try to find out convenient class selection
tz
parents: 680
diff changeset
   829
    classSelection :=  resourceClass. 
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   830
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   831
    (classSelection isNil or:[Smalltalk at: classSelection]) isNil 
689
ff099c344dd6 try to find out convenient class selection
tz
parents: 680
diff changeset
   832
        ifTrue: [classSelection :=  self class lastSelection].
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   833
    (classSelection isNil or:[Smalltalk at: classSelection]) isNil 
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   834
        ifTrue: [classSelection :=  self treeViewContents].
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   835
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   836
    classSelectionBlock := 
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   837
    [:clsPattern|                                  
802
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   838
        |foundClass classes|  
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   839
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   840
        clsPattern notNil ifTrue:[
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   841
            foundClass := Smalltalk at:(clsPattern printString asSymbol).
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   842
        ].
460dc3bb9cf9 dont send 'Smalltalk at:nil'
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   843
        (foundClass isClass not or:[foundClass name ~= clsPattern])
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   844
        ifTrue:
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   845
        [
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   846
            classes := allClasses select: [:cls| cls name size >= clsPattern size].
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   847
            1 to: clsPattern size do: 
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   848
            [:i|    
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   849
                 classes := classes select: [:cls| (cls name at: i) == (clsPattern at: i)].
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   850
            ].    
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   851
            foundClass := classes at: 1 ifAbsent: [nil] 
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   852
        ].          
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   853
        foundClass notNil
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   854
        ifTrue:
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   855
        [           
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   856
            ClassPresentation = #'Class Hierarchy'
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   857
            ifTrue:  
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   858
            [
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   859
                |searchArgs nonSuperclasses|
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   860
                foundClass isPrivate
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   861
                    ifFalse: [searchArgs := foundClass withAllSuperclasses reverse]
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   862
                    ifTrue:  [searchArgs := foundClass owningClass withAllSuperclasses reverse. searchArgs add: foundClass]
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   863
    .                                  
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   864
                (nonSuperclasses := self treeViewClassHierarchyContents allSuperclasses) notNil 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   865
                    ifTrue: [searchArgs := searchArgs reject: [:cls| nonSuperclasses includes: cls]].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   866
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   867
                self selectionOfClassHierarchy value: (self rootOfClassHierarchy detectChild:[:child :arg| child contents == arg] arguments:searchArgs).
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   868
            ]
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   869
            ifFalse: 
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   870
            [
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   871
                |searchArgs|
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   872
                foundClass isPrivate
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   873
                    ifTrue:  [searchArgs := Array with: 'Categories' with: foundClass category with: foundClass owningClass name with: foundClass name]
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   874
                    ifFalse: [searchArgs := Array with: 'Categories' with: foundClass category with: foundClass name].
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   875
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   876
                self selectionOfClassCategories value: (self rootOfClassCategories detectChild:[:child :arg| (child name upTo: $ ) = arg] arguments:searchArgs).
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   877
            ].
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   878
        ].
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   879
        self valueOfClassName value: clsPattern
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   880
    ].
635
47ffd4e4f387 do select method row after opening
tz
parents: 632
diff changeset
   881
    self valueOfClassName value: classSelection.  
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   882
905c3b4ba565 revised
tz
parents: 769
diff changeset
   883
    (classNameInputField := builder componentAt: #classNameInputField) entryCompletionBlock:
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   884
    [:value|
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   885
        |what oldClassName|
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   886
        oldClassName := classNameInputField contents.
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   887
        what := Smalltalk classnameCompletion: value withoutSpaces.
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   888
        classNameInputField contents:what first.
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   889
        oldClassName = classNameInputField contents ifTrue:[classNameInputField flash].
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   890
        classSelectionBlock value: classNameInputField contents
623
c8a99cea56f7 expand selected class node after opening
tz
parents: 619
diff changeset
   891
    ].
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   892
906
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   893
    classSelectionBlock value: self valueOfClassName value.
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   894
    self classSelected.
8be0b8d1a2fd class presentation in categories added
tz
parents: 867
diff changeset
   895
    self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil).
909
c0bd0d9103e3 class presentation in categories added (3)
tz
parents: 907
diff changeset
   896
c0bd0d9103e3 class presentation in categories added (3)
tz
parents: 907
diff changeset
   897
    ^super postBuildWith:aBuilder
c0bd0d9103e3 class presentation in categories added (3)
tz
parents: 907
diff changeset
   898
910
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   899
!
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   900
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   901
postOpenWith:aBuilder
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   902
    "after opening and if turned on make hierarchy view visible"
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   903
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   904
    ClassPresentation = #'Class Hierarchy'
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   905
        ifTrue: [(builder componentAt: #listOfClassHierarchyView) raise].
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   906
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   907
    ^super postOpenWith:aBuilder
7510ea8c9aeb class presentation in categories added (4)
tz
parents: 909
diff changeset
   908
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   909
! !
cf47d420764a initial checkin
tz
parents:
diff changeset
   910
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   911
!ResourceSelectionBrowser::ResourceMethod methodsFor:'accessing'!
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   912
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   913
iconOn:aGC
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   914
    "registers and returns an icon indicating the resource type"
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   915
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   916
    self resourceType isNil ifTrue: [^nil].
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   917
    icon isNil 
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   918
    ifTrue: 
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   919
    [
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   920
	|cls sel image imageKey|
905c3b4ba565 revised
tz
parents: 769
diff changeset
   921
	((self resourceType = #image) or: [resourceType = #fileImage])
905c3b4ba565 revised
tz
parents: 769
diff changeset
   922
	ifTrue: 
905c3b4ba565 revised
tz
parents: 769
diff changeset
   923
	[  
905c3b4ba565 revised
tz
parents: 769
diff changeset
   924
	    cls := method who methodClass soleInstance.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   925
	    sel := method who methodSelector.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   926
	]
905c3b4ba565 revised
tz
parents: 769
diff changeset
   927
	ifFalse:
905c3b4ba565 revised
tz
parents: 769
diff changeset
   928
	[
905c3b4ba565 revised
tz
parents: 769
diff changeset
   929
	    cls := BrowserView.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   930
	    sel := (resourceType, 'Icon') asSymbol.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   931
	].
905c3b4ba565 revised
tz
parents: 769
diff changeset
   932
	imageKey := (cls name, sel) asSymbol.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   933
	(icon := aGC registeredImageAt: imageKey) isNil
905c3b4ba565 revised
tz
parents: 769
diff changeset
   934
	ifTrue:
905c3b4ba565 revised
tz
parents: 769
diff changeset
   935
	[       
905c3b4ba565 revised
tz
parents: 769
diff changeset
   936
	    image := cls perform: sel.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   937
	    image extent y > 18
905c3b4ba565 revised
tz
parents: 769
diff changeset
   938
	    ifTrue:
905c3b4ba565 revised
tz
parents: 769
diff changeset
   939
	    [         
905c3b4ba565 revised
tz
parents: 769
diff changeset
   940
		image := image magnifiedBy: 18/image extent y
905c3b4ba565 revised
tz
parents: 769
diff changeset
   941
	    ].
905c3b4ba565 revised
tz
parents: 769
diff changeset
   942
	    aGC registerImage: image key: imageKey.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   943
	    icon := aGC registeredImageAt: imageKey.
905c3b4ba565 revised
tz
parents: 769
diff changeset
   944
	].
730
238d796c5da0 own #iconOn: method implememted
tz
parents: 727
diff changeset
   945
    ].
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   946
    ^icon
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   947
!
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   948
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   949
method: aMethod
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   950
    "sets aMethod"
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   951
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   952
    method := aMethod
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   953
!
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   954
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   955
resourceType
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   956
    "returns resourceType"
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   957
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   958
    resourceType isNil ifTrue: [resourceType := method resourceType].
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   959
    ^resourceType
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   960
!
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   961
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   962
selector
771
905c3b4ba565 revised
tz
parents: 769
diff changeset
   963
    "returns selector"
523
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   964
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   965
    selector isNil ifTrue: [selector := method who methodSelector].
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   966
    ^selector
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   967
! !
eec155f1b037 resource methods are now put own rows
tz
parents: 517
diff changeset
   968
425
cf47d420764a initial checkin
tz
parents:
diff changeset
   969
!ResourceSelectionBrowser class methodsFor:'documentation'!
cf47d420764a initial checkin
tz
parents:
diff changeset
   970
cf47d420764a initial checkin
tz
parents:
diff changeset
   971
version
cf47d420764a initial checkin
tz
parents:
diff changeset
   972
    ^ '$Header$'
cf47d420764a initial checkin
tz
parents:
diff changeset
   973
! !