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