packages/PackageSelector.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 31 May 2018 10:52:50 +0100
branchjv
changeset 4330 998eb03f0736
parent 3011 1997ff6e7e55
permissions -rw-r--r--
Copyright updates
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1443
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     1
"
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     2
 COPYRIGHT (c) 2003 by eXept Software AG
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
     3
	      All Rights Reserved
1443
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     4
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     5
 This software is furnished under a license and may be used
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     6
 only in accordance with the terms of that license and with the
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     8
 be provided or otherwise made available to, or used by, any
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
     9
 other person.  No title to or ownership of the software is
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    10
 hereby transferred.
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    11
"
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    12
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
    13
"{ Package: 'stx:libbasic3' }"
ab88e78f027c initial checkin
james
parents:
diff changeset
    14
ab88e78f027c initial checkin
james
parents:
diff changeset
    15
"{ NameSpace: Packages }"
ab88e78f027c initial checkin
james
parents:
diff changeset
    16
ab88e78f027c initial checkin
james
parents:
diff changeset
    17
AbstractPackageBrowser subclass:#PackageSelector
ab88e78f027c initial checkin
james
parents:
diff changeset
    18
	instanceVariableNames:'selectionChangedBlock list'
ab88e78f027c initial checkin
james
parents:
diff changeset
    19
	classVariableNames:''
ab88e78f027c initial checkin
james
parents:
diff changeset
    20
	poolDictionaries:''
ab88e78f027c initial checkin
james
parents:
diff changeset
    21
	category:'Package-Application'
ab88e78f027c initial checkin
james
parents:
diff changeset
    22
!
ab88e78f027c initial checkin
james
parents:
diff changeset
    23
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    24
AbstractPackageBrowser subclass:#BasicPackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    25
	instanceVariableNames:'selectionChangedBlock list'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    26
	classVariableNames:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    27
	poolDictionaries:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    28
	privateIn:PackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    29
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    30
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    31
AbstractPackageBrowser subclass:#HierarchicalPackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    32
	instanceVariableNames:'selectionChangedBlock tree packagesSelectedIndexHolder'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    33
	classVariableNames:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    34
	poolDictionaries:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    35
	privateIn:PackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    36
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    37
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    38
HierarchicalItem subclass:#CategoryItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    39
	instanceVariableNames:'name packageManager'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    40
	classVariableNames:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    41
	poolDictionaries:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    42
	privateIn:PackageSelector::HierarchicalPackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    43
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    44
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    45
HierarchicalItem subclass:#PackageItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    46
	instanceVariableNames:'package'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    47
	classVariableNames:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    48
	poolDictionaries:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    49
	privateIn:PackageSelector::HierarchicalPackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    50
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    51
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    52
HierarchicalItem subclass:#RootItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    53
	instanceVariableNames:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    54
	classVariableNames:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    55
	poolDictionaries:''
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    56
	privateIn:PackageSelector::HierarchicalPackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    57
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
    58
1443
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    59
!PackageSelector class methodsFor:'documentation'!
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    60
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    61
copyright
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    62
"
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    63
 COPYRIGHT (c) 2003 by eXept Software AG
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    64
	      All Rights Reserved
1443
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    65
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    66
 This software is furnished under a license and may be used
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    67
 only in accordance with the terms of that license and with the
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    68
 inclusion of the above copyright notice.   This software may not
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    69
 be provided or otherwise made available to, or used by, any
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    70
 other person.  No title to or ownership of the software is
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    71
 hereby transferred.
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    72
"
6dfdf336b472 copyright
Claus Gittinger <cg@exept.de>
parents: 1279
diff changeset
    73
! !
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
    74
ab88e78f027c initial checkin
james
parents:
diff changeset
    75
!PackageSelector class methodsFor:'interface specs'!
ab88e78f027c initial checkin
james
parents:
diff changeset
    76
ab88e78f027c initial checkin
james
parents:
diff changeset
    77
windowSpec
ab88e78f027c initial checkin
james
parents:
diff changeset
    78
    "This resource specification was automatically generated
ab88e78f027c initial checkin
james
parents:
diff changeset
    79
     by the UIPainter of ST/X."
ab88e78f027c initial checkin
james
parents:
diff changeset
    80
ab88e78f027c initial checkin
james
parents:
diff changeset
    81
    "Do not manually edit this!! If it is corrupted,
ab88e78f027c initial checkin
james
parents:
diff changeset
    82
     the UIPainter may not be able to read the specification."
ab88e78f027c initial checkin
james
parents:
diff changeset
    83
ab88e78f027c initial checkin
james
parents:
diff changeset
    84
    "
ab88e78f027c initial checkin
james
parents:
diff changeset
    85
     UIPainter new openOnClass:Packages::PackageSelector andSelector:#windowSpec
ab88e78f027c initial checkin
james
parents:
diff changeset
    86
     Packages::PackageSelector new openInterface:#windowSpec
ab88e78f027c initial checkin
james
parents:
diff changeset
    87
     Packages::PackageSelector open
ab88e78f027c initial checkin
james
parents:
diff changeset
    88
    "
ab88e78f027c initial checkin
james
parents:
diff changeset
    89
ab88e78f027c initial checkin
james
parents:
diff changeset
    90
    <resource: #canvas>
ab88e78f027c initial checkin
james
parents:
diff changeset
    91
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    92
    ^
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
    93
     #(#FullSpec
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    94
	#name: #windowSpec
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    95
	#window:
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
    96
       #(#WindowSpec
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    97
	  #label: 'Packages::PackageSelectorApplication'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    98
	  #name: 'Packages::PackageSelectorApplication'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
    99
	  #min: #(#Point 10 10)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   100
	  #max: #(#Point 1024 768)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   101
	  #bounds: #(#Rectangle 29 59 329 359)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   102
	  #menu: #mainMenu
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   103
	)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   104
	#component:
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   105
       #(#SpecCollection
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   106
	  #collection: #(
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   107
	   #(#SubCanvasSpec
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   108
	      #name: 'SelectorSubCanvas'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   109
	      #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   110
	      #hasHorizontalScrollBar: false
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   111
	      #hasVerticalScrollBar: false
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   112
	      #clientHolder: #applicationHolder
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   113
	    )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   114
	   )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   115
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   116
	)
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   117
      )
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   118
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   119
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   120
!PackageSelector class methodsFor:'plugIn spec'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   121
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   122
aspectSelectors
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   123
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   124
     by the UIPainter of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   125
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   126
    "Do not manually edit this. If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   127
     the UIPainter may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   128
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   129
    "Return a description of exported aspects;
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   130
     these can be connected to aspects of an embedding application
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   131
     (if this app is embedded in a subCanvas)."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   132
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   133
    ^ #(
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   134
	#packagesSelectedHolder
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   135
      ).
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   136
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   137
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   138
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   139
!PackageSelector methodsFor:'aspects'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   140
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   141
applicationHolder
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   142
    "automatically generated by UIPainter ..."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   143
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   144
    |holder|
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   145
    (holder := builder bindingAt:#applicationHolder) isNil ifTrue:[
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   146
"/        builder aspectAt:#applicationHolder put:(holder :=  (BasicPackageSelector new) asValue).
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   147
	builder aspectAt:#applicationHolder put:(holder :=  (HierarchicalPackageSelector new) asValue).
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   148
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   149
    ^ holder
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   150
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   151
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   152
declareDependents
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   153
    self packageManager addDependent:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   154
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   155
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   156
undeclareDependents
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   157
    self packageManager removeDependent:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   158
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   159
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   160
!PackageSelector methodsFor:'change & update'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   161
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   162
packagedManagerChangeAddPackage:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   163
    self applicationHolder value packagedManagerChangeAddPackage:aPackage.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   164
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   165
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   166
packagedManagerChangeRemovePackage:aPackage
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   167
    self applicationHolder value packagedManagerChangeRemovePackage:aPackage
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   168
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   169
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   170
update:something with:aParameter from:changedObject
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   171
    something == #packagedChanged ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   172
	^ super update:something with:aParameter from:changedObject
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   173
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   174
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   175
    something == #addPackage: ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   176
	^ self packagedManagerChangeAddPackage:aParameter.
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   177
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   178
    something == #removePackage: ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   179
	^ self packagedManagerChangeRemovePackage:aParameter.
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   180
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   181
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   182
    super update:something with:aParameter from:changedObject
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   183
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   184
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   185
!PackageSelector::BasicPackageSelector class methodsFor:'interface specs'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   186
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   187
windowSpec
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   188
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   189
     by the UIPainter of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   190
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   191
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   192
     the UIPainter may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   193
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   194
    "
1279
95a37d60edd8 *** empty log message ***
james
parents: 1268
diff changeset
   195
     UIPainter new openOnClass:Packages::PackageSelector::BasicPackageSelector andSelector:#windowSpec
95a37d60edd8 *** empty log message ***
james
parents: 1268
diff changeset
   196
     Packages::PackageSelector::BasicPackageSelector new openInterface:#windowSpec
95a37d60edd8 *** empty log message ***
james
parents: 1268
diff changeset
   197
     Packages::PackageSelector::BasicPackageSelector open
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   198
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   199
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   200
    <resource: #canvas>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   201
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   202
    ^
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   203
     #(#FullSpec
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   204
	#name: #windowSpec
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   205
	#window:
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   206
       #(#WindowSpec
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   207
	  #label: 'Packages::PackageSelectorApplication'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   208
	  #name: 'Packages::PackageSelectorApplication'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   209
	  #min: #(#Point 10 10)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   210
	  #max: #(#Point 1024 768)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   211
	  #bounds: #(#Rectangle 29 59 329 359)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   212
	  #menu: #mainMenu
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   213
	)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   214
	#component:
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   215
       #(#SpecCollection
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   216
	  #collection: #(
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   217
	   #(#SelectionInListModelViewSpec
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   218
	      #name: 'SelectionInListModelView'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   219
	      #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   220
	      #model: #packagesSelectedHolder
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   221
	      #hasHorizontalScrollBar: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   222
	      #hasVerticalScrollBar: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   223
	      #listModel: #list
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   224
	      #multipleSelectOk: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   225
	      #useIndex: false
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   226
	      #highlightMode: #line
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   227
	      #selectOnButtomMenu: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   228
	    )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   229
	   )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   230
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   231
	)
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   232
      )
ab88e78f027c initial checkin
james
parents:
diff changeset
   233
! !
ab88e78f027c initial checkin
james
parents:
diff changeset
   234
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   235
!PackageSelector::BasicPackageSelector class methodsFor:'plugIn spec'!
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   236
ab88e78f027c initial checkin
james
parents:
diff changeset
   237
aspectSelectors
ab88e78f027c initial checkin
james
parents:
diff changeset
   238
    "This resource specification was automatically generated
ab88e78f027c initial checkin
james
parents:
diff changeset
   239
     by the UIPainter of ST/X."
ab88e78f027c initial checkin
james
parents:
diff changeset
   240
ab88e78f027c initial checkin
james
parents:
diff changeset
   241
    "Do not manually edit this. If it is corrupted,
ab88e78f027c initial checkin
james
parents:
diff changeset
   242
     the UIPainter may not be able to read the specification."
ab88e78f027c initial checkin
james
parents:
diff changeset
   243
ab88e78f027c initial checkin
james
parents:
diff changeset
   244
    "Return a description of exported aspects;
ab88e78f027c initial checkin
james
parents:
diff changeset
   245
     these can be connected to aspects of an embedding application
ab88e78f027c initial checkin
james
parents:
diff changeset
   246
     (if this app is embedded in a subCanvas)."
ab88e78f027c initial checkin
james
parents:
diff changeset
   247
ab88e78f027c initial checkin
james
parents:
diff changeset
   248
    ^ #(
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   249
	#packagesSelectedHolder
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   250
      ).
ab88e78f027c initial checkin
james
parents:
diff changeset
   251
ab88e78f027c initial checkin
james
parents:
diff changeset
   252
! !
ab88e78f027c initial checkin
james
parents:
diff changeset
   253
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   254
!PackageSelector::BasicPackageSelector methodsFor:'accessing'!
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   255
ab88e78f027c initial checkin
james
parents:
diff changeset
   256
masterApplication:aMasterApplication
ab88e78f027c initial checkin
james
parents:
diff changeset
   257
    "initialization"
ab88e78f027c initial checkin
james
parents:
diff changeset
   258
    | aPackageManager myList packageNames|
ab88e78f027c initial checkin
james
parents:
diff changeset
   259
    super masterApplication:aMasterApplication.
ab88e78f027c initial checkin
james
parents:
diff changeset
   260
ab88e78f027c initial checkin
james
parents:
diff changeset
   261
    aPackageManager := self packageManager.
ab88e78f027c initial checkin
james
parents:
diff changeset
   262
    (myList := self list) removeAll.
ab88e78f027c initial checkin
james
parents:
diff changeset
   263
    packageNames := (aPackageManager packages collect:[:aPackage | aPackage name]).
ab88e78f027c initial checkin
james
parents:
diff changeset
   264
    myList addAll:packageNames.
ab88e78f027c initial checkin
james
parents:
diff changeset
   265
ab88e78f027c initial checkin
james
parents:
diff changeset
   266
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   267
ab88e78f027c initial checkin
james
parents:
diff changeset
   268
selected
ab88e78f027c initial checkin
james
parents:
diff changeset
   269
    ^ self selectionHolder value
ab88e78f027c initial checkin
james
parents:
diff changeset
   270
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   271
ab88e78f027c initial checkin
james
parents:
diff changeset
   272
selectedPackage
ab88e78f027c initial checkin
james
parents:
diff changeset
   273
    ^ self packageManager packageNamed:self selection
ab88e78f027c initial checkin
james
parents:
diff changeset
   274
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   275
ab88e78f027c initial checkin
james
parents:
diff changeset
   276
selectionChangedBlock
ab88e78f027c initial checkin
james
parents:
diff changeset
   277
    "return the value of the instance variable 'selectionChangedBlock' (automatically generated)"
ab88e78f027c initial checkin
james
parents:
diff changeset
   278
ab88e78f027c initial checkin
james
parents:
diff changeset
   279
    ^ selectionChangedBlock
ab88e78f027c initial checkin
james
parents:
diff changeset
   280
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   281
ab88e78f027c initial checkin
james
parents:
diff changeset
   282
selectionChangedBlock:something
ab88e78f027c initial checkin
james
parents:
diff changeset
   283
    "set the value of the instance variable 'selectionChangedBlock' (automatically generated)"
ab88e78f027c initial checkin
james
parents:
diff changeset
   284
ab88e78f027c initial checkin
james
parents:
diff changeset
   285
    selectionChangedBlock := something.
ab88e78f027c initial checkin
james
parents:
diff changeset
   286
! !
ab88e78f027c initial checkin
james
parents:
diff changeset
   287
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   288
!PackageSelector::BasicPackageSelector methodsFor:'aspects'!
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   289
ab88e78f027c initial checkin
james
parents:
diff changeset
   290
list
ab88e78f027c initial checkin
james
parents:
diff changeset
   291
ab88e78f027c initial checkin
james
parents:
diff changeset
   292
    list ifNil:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   293
	list := List new.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   294
	list addDependent:self.
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   295
    ].
ab88e78f027c initial checkin
james
parents:
diff changeset
   296
    ^ list.
ab88e78f027c initial checkin
james
parents:
diff changeset
   297
! !
ab88e78f027c initial checkin
james
parents:
diff changeset
   298
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   299
!PackageSelector::BasicPackageSelector methodsFor:'change & update'!
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   300
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   301
listUpdate:something with:aParameter
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   302
ab88e78f027c initial checkin
james
parents:
diff changeset
   303
    | copy |
ab88e78f027c initial checkin
james
parents:
diff changeset
   304
    copy := list asOrderedCollection.
ab88e78f027c initial checkin
james
parents:
diff changeset
   305
ab88e78f027c initial checkin
james
parents:
diff changeset
   306
    copy sort:[:x :y |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   307
	x < y
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   308
    ].
ab88e78f027c initial checkin
james
parents:
diff changeset
   309
ab88e78f027c initial checkin
james
parents:
diff changeset
   310
    list become:copy.
ab88e78f027c initial checkin
james
parents:
diff changeset
   311
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   312
ab88e78f027c initial checkin
james
parents:
diff changeset
   313
update:something with:aParameter from:changedObject
ab88e78f027c initial checkin
james
parents:
diff changeset
   314
ab88e78f027c initial checkin
james
parents:
diff changeset
   315
    (changedObject == list) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   316
	^ self listUpdate:something with:aParameter
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   317
    ].
ab88e78f027c initial checkin
james
parents:
diff changeset
   318
ab88e78f027c initial checkin
james
parents:
diff changeset
   319
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   320
    self breakPoint:''.
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   321
! !
ab88e78f027c initial checkin
james
parents:
diff changeset
   322
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   323
!PackageSelector::BasicPackageSelector methodsFor:'initialization'!
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   324
ab88e78f027c initial checkin
james
parents:
diff changeset
   325
initialize
ab88e78f027c initial checkin
james
parents:
diff changeset
   326
    | aPackageManager myList packageNames firstOrNil|
ab88e78f027c initial checkin
james
parents:
diff changeset
   327
    masterApplication ifNil:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   328
	^ super initialize
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   329
    ].
ab88e78f027c initial checkin
james
parents:
diff changeset
   330
ab88e78f027c initial checkin
james
parents:
diff changeset
   331
    aPackageManager := masterApplication model.
ab88e78f027c initial checkin
james
parents:
diff changeset
   332
    (myList := self list) removeAll.
ab88e78f027c initial checkin
james
parents:
diff changeset
   333
    packageNames := (aPackageManager packages collect:[:aPackage | aPackage name]).
ab88e78f027c initial checkin
james
parents:
diff changeset
   334
    myList addAll:packageNames.
ab88e78f027c initial checkin
james
parents:
diff changeset
   335
ab88e78f027c initial checkin
james
parents:
diff changeset
   336
    self model:masterApplication model.
ab88e78f027c initial checkin
james
parents:
diff changeset
   337
ab88e78f027c initial checkin
james
parents:
diff changeset
   338
    self list isEmpty ifFalse:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   339
	firstOrNil := self list first
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   340
    ].
ab88e78f027c initial checkin
james
parents:
diff changeset
   341
    self selectionHolder value:firstOrNil.
ab88e78f027c initial checkin
james
parents:
diff changeset
   342
    ^ super initialize
ab88e78f027c initial checkin
james
parents:
diff changeset
   343
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   344
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   345
initializeWithMasterApplication:aMasterApplication
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
   346
    | myList packageNames aPackageManager|
ab88e78f027c initial checkin
james
parents:
diff changeset
   347
    aPackageManager := aMasterApplication model.
ab88e78f027c initial checkin
james
parents:
diff changeset
   348
    (myList := self list) removeAll.
ab88e78f027c initial checkin
james
parents:
diff changeset
   349
    packageNames := (aPackageManager packages collect:[:aPackage | aPackage name]).
ab88e78f027c initial checkin
james
parents:
diff changeset
   350
    myList addAll:packageNames.
ab88e78f027c initial checkin
james
parents:
diff changeset
   351
!
ab88e78f027c initial checkin
james
parents:
diff changeset
   352
ab88e78f027c initial checkin
james
parents:
diff changeset
   353
postBuildWith:aBuilder
ab88e78f027c initial checkin
james
parents:
diff changeset
   354
    ^ super postBuildWith:aBuilder
ab88e78f027c initial checkin
james
parents:
diff changeset
   355
! !
ab88e78f027c initial checkin
james
parents:
diff changeset
   356
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   357
!PackageSelector::HierarchicalPackageSelector class methodsFor:'image specs'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   358
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   359
basePackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   360
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   361
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   362
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   363
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   364
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   365
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   366
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   367
     self miniPackageSystem inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   368
     ImageEditor openOnClass:self andSelector:#miniPackageSystem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   369
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   370
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   371
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   372
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   373
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   374
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   375
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageSystem'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   376
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   377
BP$IBP$IBP$IBP$@BP$IBP$IBP$IBP$IBP$@A@@@BP$IBP$IBP$IBP$@A@HD@0@IBP$IBP$I@@$I@@H@@@DC@@$IBP@I@@ @@@PD@@@D@@$IBP@H@@ GA0@@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   378
@PLBA@@IBP@HB@ GA0\FA @@A@@IBP$I@@ GA0\FAPT@BP@IBP$I@@ GA0@@@@TEAP@IBP$I@@ GA0X@BP@EAPXF@@$IBP$@A0XF@@@@APXF@@$IBP$IBP@F
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   379
APTEAPXF@@$IBP$IBP@FAPTEAPXFA0\@BP$IBP$I@@T@APXF@@\@BP$IBP$IBP$@BP@G@@$@BP$IBP$IBP$IBP$I@@$IBP$IBP$IBP@a') ; colorMapFromArray:#[0 0 0 255 128 0 255 168 88 192 192 0 255 255 0 160 160 160 195 195 195 220 220 220 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@@O@A>@''<W?#?>_?0?:G?0?_!!?<C? _?@?8A]@@ @b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   380
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   381
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   382
defaultPackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   383
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   384
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   385
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   386
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   387
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   388
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   389
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   390
     self defaultPackageIcon inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   391
     ImageEditor openOnClass:self andSelector:#defaultPackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   392
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   393
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   394
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   395
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   396
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   397
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   398
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class defaultPackageIcon'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   399
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   400
APTEAPT@@@TEAP@EAPTEAPTEAP@@@0L@@@@C@@@EAPTE@@@C@0@@@PH@@@LC@@@E@@LC@@@A@PDB@ H@@@LC@@@@@@DA@PDA@ HB@ H@@@@E@@L@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   401
@ @@@@TEAP@C@0L@@@DB@@@B@ @EAPT@@0LC@0L@@@HB@ H@APTE@@LC@0LC@0HB@ HB@@TEAP@C@0LC@0LB@ HB@ @EAPT@@0LC@0LC@ HB@ H@APTE@@LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   402
@0LC@0HB@ HB@@TEAP@B@0LC@0LB@ HB@@@EAPTE@@@B@0LC@ H@@@TEAPTEAPTE@@@B@0@@APTEAPTEAPTEAPTE@@@EAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 170 0 192 220 0 230 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?<_?1??G?<_?0?<@?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   403
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   404
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   405
loadedPackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   406
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   407
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   408
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   409
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   410
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   411
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   412
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   413
     self loadedPackageIcon inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   414
     ImageEditor openOnClass:self andSelector:#loadedPackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   415
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   416
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   417
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   418
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   419
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   420
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   421
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class loadedPackageIcon'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   422
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   423
APTEAP@@@@@@@@@@APTEAPTE@@@@@@@@@@@@@@@EAPT@@@@@@@@@@0L@@@@@@@@E@@@@@@@C@0LC@0L@@@@@@@@@@@LC@0LC@0LC@0L@@@@E@@L@@@LC@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   424
@0@@@@TEAP@C@0L@@@LC@@@B@ @EAPT@@0LC@0L@@@HB@ H@APTE@@LC@0LC@0HB@ HB@@TEAP@C@0LC@0LB@ HB@ @EAPT@@0LC@0LC@ HB@ H@APTE@@LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   425
@0LC@0HB@ HB@@TEAP@B@0LC@0LB@ HB@@@EAPTE@@@B@0LC@ H@@@TEAPTEAPTE@@@B@0@@APTEAPTEAPTEAPTE@@@EAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@A @_ G?!!??G?<_?1??G?<_?1??G?<_?0?<@?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   426
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   427
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   428
miniBasePackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   429
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   430
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   431
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   432
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   433
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   434
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   435
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   436
     self miniBasePackage inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   437
     ImageEditor openOnClass:self andSelector:#miniBasePackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   438
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   439
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   440
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   441
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   442
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   443
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   444
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniBasePackage'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   445
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   446
APTEAPT@@@TEAP@EAPTEAPTEAP@@@0L@@@@C@@@EAPTE@@@C@0@@@PH@@@LC@@@E@@LC@@@A@PDB@ H@@@LC@@@@@@DA@PDA@ HB@ H@@@@E@@L@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   447
@ @@@@TEAP@C@0L@@@DB@@@B@ @EAPT@@0LC@0L@A@PDA@PDA@PE@@LC@0LC@0PDA@@@A@PDAP@C@0LC@0LDA@@DA@@DA@T@@0LC@0LCA@@@@@@@@@PE@@LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   448
@0LC@0P@@0LB@ @DAP@B@0LC@0LD@@LC@ H@A@TE@@@B@0LCA@@C@0HB@@PEAPTE@@@B@0PD@@@@@@PDAPTEAPTE@@@DA@PDA@PDA@@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??7??_?=??7??_?<??0??@?<b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   449
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   450
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   451
miniPackageApplications
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   452
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   453
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   454
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   455
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   456
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   457
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   458
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   459
     self miniPackageApplications inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   460
     ImageEditor openOnClass:self andSelector:#miniPackageApplications
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   461
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   462
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   463
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   464
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   465
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   466
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   467
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageApplications'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   468
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   469
B (JB (@@@(JB @JB (JB (JB @@B@ @@@@H@@@JB (J@@@HB@@C@0PCB@ H@@@J@@ H@@LC@0LDA@PCB@ H@@@@@0@@@@@@@@@@@@P@@@@J@@ @A0HB@ \A
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   470
A0@H@@(JB @H@@\IBP$IBP\@@@@JB (@B@@GBP$IBP$G@@\@B (J@@ @A0$IBP$IA0@G@@@JB @H@@\GA0\GA0\@A0T@B (@B@@@@@@@@@@@@@\F@@(J@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   471
B@ @A0\GA0\GA @JB @DB@ H@@@FA XFA X@B (J@@@DB@ H@@@@@@@@@@(JB (J@@@DB@@@B (JB (JB (JB (J@@@JB (JB (JB @a') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?>_?9??''?>_?8?? ?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   472
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   473
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   474
miniPackageEditors
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   475
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   476
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   477
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   478
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   479
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   480
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   481
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   482
     self miniPackageEditors inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   483
     ImageEditor openOnClass:self andSelector:#miniPackageEditors
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   484
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   485
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   486
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   487
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   488
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   489
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   490
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageEditors'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   491
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   492
BP$IBP$@@@$I@@@IBP$IBP$IBP@@A0\@@@\G@@@IBP$I@@@GA0@@@PL@@@\G@@@I@@\G@@@A@PDC@0L@@@\G@@@@@@DA@PDA@0LC@0L@@@@I@@ @@@DA@PLC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   493
@0@@@@$IBP@HA0\@@@DC@@@C@0@IBP$@B@\GA0\@@@LC@0L@BP$I@@ GA0\GA0LC@0LC@@$IBP@HA0\G@@@@@@LC@0@IBP$@B@\@@@THB@T@@@L@@@$I@@@@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   494
AP HA XHB@T@@@H@@@THB@ FA  HAP@@A@H@@@@@AP HB@ E@@@D@ @@BP$IBP@@APT@@@ B@@@IBP$IBP$IBP@@BP@@@@$IBP$IBP@a') ; colorMapFromArray:#[0 0 0 128 128 0 255 168 88 192 192 0 255 220 168 195 195 195 192 192 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A&@_>G?>?????7?<_?1??G?<_?1??''???????C?0C\@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   495
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   496
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   497
miniPackageFavourites
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   498
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   499
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   500
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   501
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   502
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   503
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   504
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   505
     self miniPackageFavourites inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   506
     ImageEditor openOnClass:self andSelector:#miniPackageFavourites
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   507
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   508
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   509
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   510
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   511
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   512
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   513
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageFavourites'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   514
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   515
BP$IBP$@@@$IBP@IBP$IBP$IBP@@B@ @@@@H@@@IBP$I@@@HB@@@A@X@@@ H@@@I@@ H@@@DA@PFA X@@@ H@@@@@@PDA@PDA XFA X@@@@I@@ @@@PDA@XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   516
A @@@@$IBP@HB@ @@@PF@@@FA @IBP$@B@ HB@ @@@XFA X@BP$I@@ HB@ HB@X@@@XF@@@IBP@HB@ HB@ @APHA@@LB@@$@B@ HB@ @AP\E@@HC@0@I@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   517
B@ H@@TGAPHC@0H@BP@FB@ HB@ @APLE@0L@BP$I@@@FB@ HA @E@0H@BP$IBP$I@@@FB@@@@@L@BP$IBP$IBP$I@@@IBP$@BP$IBP@a') ; colorMapFromArray:#[0 0 0 128 0 0 192 0 0 255 0 0 128 128 0 255 128 0 192 192 0 255 192 192 255 255 192 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?>_?=??7??_?8??@?8@1@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   518
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   519
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   520
miniPackageGames
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   521
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   522
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   523
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   524
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   525
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   526
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   527
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   528
     self miniPackageGames inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   529
     ImageEditor openOnClass:self andSelector:#miniPackageGames
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   530
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   531
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   532
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   533
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   534
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   535
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   536
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageGames'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   537
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   538
B (JB (@@@(JB @JB (JB (JB @@B@ @@@@H@@@JB (J@@@HB@@@@0P@B@ H@@@J@@ H@@@C@0LDA@@@B@ @B @@@@LC@0LCA@PDA@@@@@@J@@ @@@LC@0PD
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   539
@@H@@@(JB @HB@ @@@LD@@@G@@PJB (@B@ HB@ @@@@@A0@DB (J@@ HB@ HB@PD@@\@A@(JB @HB@ HB@ D@@@G@@PJB (@B@ HB@ @@PD@A0@@B (J@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   540
B@ H@@\IA @FA @@B @DB@ HB@@GA0\IA \E@@(J@@@DB@ H@@XGA0TEAP@JB (J@@@DB@@@@@XE@@@JB (JB (J@@@JB (@@@(JB @a') ; colorMapFromArray:#[0 0 0 192 0 0 255 0 0 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>??;??7?<_?1??G?<_?1??G??_?<??0?>@1 b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   541
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   542
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   543
miniPackageGraphics
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   544
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   545
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   546
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   547
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   548
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   549
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   550
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   551
     self miniPackageGraphics inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   552
     ImageEditor openOnClass:self andSelector:#miniPackageGraphics
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   553
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   554
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   555
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   556
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   557
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   558
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   559
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageGraphics'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   560
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   561
G1<_G1<@@A<_G0@_G1<_G1<_G0@@GQ4@@@@]@@@_G1<_@@@]GP@@DQP@GQ4]@@@_@A4]@@@QDQDTE@@@GQ4]@@@@@ADQDQDQEAPTE@@@@@@_@A4@@ADQDQPT
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   562
E@@]@A<_G0@]GQ4@@ADT@@@TE@@_G1<@GQ4]GQ4@@@@@@@@@@@@_@A4]GQ4]@A AE!!XAFA @@@@@@@@@@@@JA@HGC!!DM@@@SD1LSD1L@B0TBB@<TD @@D!!HR
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   563
D!!HR@@0F@0$PEQL@@@@@@@@@@@@[F!!$^GA4W@A<_@@@TGQ4@@@@@@@@@@@@_G1<_@@@TGP@@G1<_G1<_G1<_G1<_@@@_G1<_G1<_G0@a') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 128 0 0 255 0 128 0 0 192 0 0 128 0 0 128 128 0 192 192 0 255 255 128 0 0 192 0 0 255 0 0 192 88 0 128 0 128 192 0 192 255 0 255 128 128 0 255 128 0 255 168 88 192 192 0 255 255 0 128 128 128 255 220 168 195 195 195 192 192 255 192 255 192 255 192 192 255 192 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??7????????????<??0?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   564
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   565
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   566
miniPackageMultimedia
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   567
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   568
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   569
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   570
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   571
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   572
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   573
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   574
     self miniPackageMultimedia inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   575
     ImageEditor openOnClass:self andSelector:#miniPackageMultimedia
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   576
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   577
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   578
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   579
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   580
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   581
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   582
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageMultimedia'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   583
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   584
BP$IBP$@@@$IBP@IBP$IBP$IBP@@A0\@@@@G@@@IBP$I@@@GA0@@@PH@@@\G@@@I@@\G@@@A@PDB@ H@@@\G@@@@@@DA@PDA@ HB@ @@@@@I@@\@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   585
@@@B@@$IBP@GA0\@@@D@@@HB@ @IBP$@A0\GA0\@@ H@@@@@BP$I@@\GA0\GA0H@A@PD@@$IBP@GA0\GA0\@A PDA@ @BP$@A0\GA0\@A@PC@@LDA@@I@@\G
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   586
A0\G@@PD@@\@A@P@BP@BA0\GA0@DA@L@APPD@@$I@@@BA0\G@@ DA@PE@@$IBP$I@@@BA0@@A@PD@@$IBP$IBP$I@@@IBP@@@@$IBP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 160 160 160 195 195 195 192 192 255 192 255 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?<_?9??7??_?<?? ?<@3 b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   587
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   588
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   589
miniPackageNetwork
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   590
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   591
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   592
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   593
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   594
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   595
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   596
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   597
     self miniPackageNetwork inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   598
     ImageEditor openOnClass:self andSelector:#miniPackageNetwork
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   599
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   600
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   601
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   602
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   603
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   604
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   605
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageNetwork'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   606
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   607
B (JB (@@@(JB @JB (JB (JB @@B@ @@@@H@@@JB (J@@@HB@@@@0P@@@ H@@@J@@ H@@@C@0LDA@P@@@ H@@@@@@LC@0LCA@PDA@P@@@@J@@ @@@LC@@@@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   608
@@PD@@(JB @HB@ @@@$IBP$@A@@JB (@B@ HB@@GA XG@@@@@@(J@@ HB@ @A0HB@@$IBP$@B @HB@ H@@$IBP@G@ HE@@(@B@ HB@ EAPT@A0DAAP@J@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   609
B@ @A0\G@@$IBP@JB @DB@ H@@@@@@T@@@@E@@(J@@@DB@ HA@P@APTEAP@JB (J@@@DB@@@@@\GA0@JB (JB (J@@@JB (@@@@JB @a') ; colorMapFromArray:#[0 0 0 0 0 128 0 0 255 128 128 0 192 192 0 128 128 128 128 128 255 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??''??_?=??7?>_?<??0?>@10b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   610
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   611
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   612
miniPackageSettings
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   613
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   614
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   615
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   616
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   617
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   618
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   619
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   620
     self miniPackageSettings inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   621
     ImageEditor openOnClass:self andSelector:#miniPackageSettings
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   622
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   623
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   624
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   625
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   626
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   627
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   628
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageSettings'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   629
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   630
B@ HB@ @@@ HB@@HB@ HB@ HB@@@A X@@@@F@@@HB@ H@@@FA @@@PH@@@XF@@@H@@XF@@@A@PDB@ H@@@XF@@@@@@DA@PDA@ HB@ H@@@@H@@X@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   631
@ @@@@ HB@@FA X@@@DB@@@@@ @HB@ @A XFA X@@@@@@@H@B@ H@@XFA XF@@P@A0T@A0@HB@@FA XFA X@APTEAP@HB@ @A XFA X@A0TC@@TE@@ H@@XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   632
A XF@@TE@@HGAP@HB@@BA XFA X@APTGAP@HB@ H@@@BA X@A0@EAP@E@@ HB@ H@@@BA @@@@@H@@ HB@ HB@ H@@@HB@ HB@ HB@@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?>_?1??''?>_?0?? ?4@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   633
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   634
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   635
miniPackageSystem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   636
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   637
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   638
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   639
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   640
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   641
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   642
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   643
     self miniPackageSystem inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   644
     ImageEditor openOnClass:self andSelector:#miniPackageSystem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   645
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   646
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   647
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   648
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   649
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   650
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   651
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageSystem'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   652
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   653
BP$IBP$IBP$IBP$@BP$IBP$IBP$IBP$IBP$@A@@@BP$IBP$IBP$IBP$@A@HD@0@IBP$IBP$I@@$I@@H@@@DC@@$IBP@I@@ @@@PD@@@D@@$IBP@H@@ GA0@@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   654
@PLBA@@IBP@HB@ GA0\FA @@A@@IBP$I@@ GA0\FAPT@BP@IBP$I@@ GA0@@@@TEAP@IBP$I@@ GA0X@BP@EAPXF@@$IBP$@A0XF@@@@APXF@@$IBP$IBP@F
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   655
APTEAPXF@@$IBP$IBP@FAPTEAPXFA0\@BP$IBP$I@@T@APXF@@\@BP$IBP$IBP$@BP@G@@$@BP$IBP$IBP$IBP$I@@$IBP$IBP$IBP@a') ; colorMapFromArray:#[0 0 0 255 128 0 255 168 88 192 192 0 255 255 0 160 160 160 195 195 195 220 220 220 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@A@@O@A>@''<W?#?>_?0?:G?0?_!!?<C? _?@?8A]@@ @b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   656
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   657
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   658
miniPackageUtilities
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   659
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   660
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   661
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   662
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   663
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   664
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   665
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   666
     self miniPackageUtilities inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   667
     ImageEditor openOnClass:self andSelector:#miniPackageUtilities
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   668
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   669
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   670
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   671
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   672
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   673
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   674
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class miniPackageUtilities'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   675
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   676
BP$IBP$@@@$IBP@IBP$IBP$IBP@@A0\@@@@G@@@IBP$I@@@GA0@@@0T@@@\G@@@I@@\G@@@C@0LEAPT@@@\G@@@@@@LC@0LCAPTEAPT@@@@I@@\@@@LC@0L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   677
@@@@@@$IBP@GA0\@@@L@@@@@AP@IBP$@A0\GA0\@A X@AP@B@@$I@@\GA0\@A XA@@TB@@H@BP@GA0\@A XAA@@@@ HB@@$@A0\GA0@A@@@D@@H@@@$I@@\G
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   678
A0\G@@T@@@P@@@$IBP@EA0\GA0\@@ H@A@@IBP$I@@@EA0\@@ H@@@@D@@$IBP$I@@@E@@H@BP$I@@P@BP$IBP$I@@@@BP$IBP$@BP@a') ; colorMapFromArray:#[0 0 0 88 88 88 0 192 192 128 128 0 255 168 88 192 192 0 160 160 160 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??''??_?=??''?<_?0?? ?G@8Hb') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   679
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   680
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   681
noramlPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   682
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   683
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   684
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   685
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   686
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   687
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   688
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   689
     self noramlPackage inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   690
     ImageEditor openOnClass:self andSelector:#noramlPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   691
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   692
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   693
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   694
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   695
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   696
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   697
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class noramlPackage'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   698
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   699
APTEAPTEAPTEAPTE@@@EAPTEAP@EAPTEAPTEAPTEAPTEAPTEAPTEAPTE@@@DA@@EAPT@A@@@APTEAPTEAPTEAPTEAPTEAPTE@@@DA@LCA@@E@@PCA@P@@@TE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   700
APTEAPTEAPTEAPTE@@@DA@LC@0LC@@@D@0LC@0PD@@@EAPTEAPTEAPTE@@@DA@LC@0LC@@@A@ @@@0LC@0LDA@@@APTEAPTE@@@DA@LC@0LC@@@A@PDA@ D@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   701
@@LC@0LCA@P@@@TE@@@DA@LC@0LC@@@A@PDA@PHA@ DB@@@C@0LC@0PD@@@E@@PC@0LC@@@A@PDA@PDA@PHA@ DB@P@@@0LC@0L@APTE@@PC@@@A@PDA@PDA
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   702
@PDB@PHA@ DB@PH@@@LC@@TE@@@@@@@A@PDA@PDA@PDA@PDB@PHA@ DB@PHA@@@@@@@E@@@C@0@@@PDA@PDA@PDA@ DB@PHA@ DB@@@C@0@@APTEAP@@@0L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   703
@@DA@PDA@PDA@ DB@PHA@@@C@0@@APTEAPTE@@P@@@LC@@@A@PDA@PHA@ DB@@@C@0@@@ @EAPTEAPT@A@LC@@@C@0@@@PDA@PHA@@@C@0@@@ HB@@TEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   704
AP@D@0LC@0@@@0L@@@DB@@@C@0@@@ HB@ H@APTEAPTE@@PC@0LC@0L@@@LC@@@C@0@@@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@@@C@ @@@ HB@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   705
@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@PC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@0LC@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   706
@ HB@ HB@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@PC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   707
@ HB@ HB@ HB@ HB@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@HC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@P@EAPTEAPT@@@HB@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   708
@0LC@0LC@ HB@ HB@ HB@PD@@@TEAPTEAPTE@@@B@ LC@0LC@0LB@ HB@ HB@PD@@@TEAPTEAPTEAPTEAP@@@ HC@0LC@0HB@ HB@PD@@@TEAPTEAPTEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   709
APTEAPT@@@HB@0LC@ HB@PD@@@TEAPTEAPTEAPTEAPTEAPTEAPTE@@@B@ LB@PD@@@TEAPTEAPTEAPTEAPTEAPTEAPTEAPTEAP@@@ D@@@TEAPTEAPTEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   710
APTEAPTEAPTEAPTEAPTEAPT@@@TEAPTEAPTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   711
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   712
?? _???8G???>A???? G??? @_?? @A?? @@G? @@@_ @@@A @@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   713
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   714
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   715
normalApplications
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   716
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   717
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   718
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   719
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   720
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   721
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   722
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   723
     self normalApplications inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   724
     ImageEditor openOnClass:self andSelector:#normalApplications
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   725
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   726
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   727
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   728
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   729
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   730
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   731
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalApplications'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   732
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   733
B (JB (JB (JB (J@@@JB (JB @JB (JB (JB (JB (JB (JB (JB (J@@@IBP@JB (@BP@@B (JB (JB (JB (JB (JB (J@@@IBP HBP@J@@$HBP$@@@(J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   734
B (JB (JB (JB (J@@@IBP HB@ H@@@IB@ HB@$I@@@JB (JB (JB (J@@@IBP HB@ H@@@CA@@@B@ HB@ IBP@@B (JB (J@@@IBP HB@ H@@@C@0LCA@L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   735
@@ HB@ HBP$@@@(J@@@IBP HB@ H@@@C@0LC@0PCA@LD@@@HB@ HB@$I@@@J@@$HB@ H@@@C@0LC@0LC@0PCA@LD@0@@B@ HB@ @B (J@@$H@@@C@0LC@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   736
@0LD@0PCA@LD@0P@@@ H@@(J@@@@@@@C@0L@@@@@@@@@@@@@@@@@@@@D@0PC@@@@@@@J@@@HB@@@@0@GA0HB@ HB@ \G@P\G@@LD@@@HB@@@B (JB @@B@ @
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   737
@@\G@ HB@ HBA0\AA0\@@@@HB@@@B (JB (J@@$@@@ @@PDA@PDA@PDA@PDA@P@HB@@@A@@JB (JB (@BP H@@@GBP$IBP$IBP$IBP$G@@@@@@@D@@(JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   738
B @IB@ H@@\IBP$IBP$IBP$IBP\@AP\G@@P@B (JB (J@@$HB@ @A0$IBP$IBP$IBP$IA0@EA0\@A@@JB (JB (@BP HB@@GBP$IBP$IBP$IBP$G@@TEAP@D
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   739
@@(JB (JB @IB@ H@@\IBP$IBP$IBP$IBP\@A $G@@@@@@@JB (J@@$HB@ @A0$IBP$IBP$IBP$IA0@FBP\@AP\G@@(JB (@BP HB@@GA0\GA0\GA0\GA0\G
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   740
@@XIA0@EA0\@B (JB @IB@ H@@@@@@@@@@@@@@@@@@@@A $G@@TEAP@JB (J@@$HB@ HB@ H@@XFA XFA XFA XFBP\@A $G@@(JB (@BP HB@ HB@ @A0$I
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   741
BP$IBP$IBP$IA0@FBP\@B (JB @IB@ HB@ HB@@GA0\GA0\GA0\GA0\G@@XIA0@JB (J@@PHB@ HB@ H@@@@@@@@@@@@@@@@@@@@A $G@@(JB (@@@PDB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   742
B@ HB@ H@@XFA XFA XFA XFBP\@B (JB (J@@@DA@ HB@ HB@ @A0$IBP$IBP$IBP$IA0@JB (JB (JB @@A@PHB@ HB@@GA0\GA0\GA0\GA0\G@@(JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   743
B (JB (@@@PDB@ H@@@@@@@@@@@@@@@@@@@@B (JB (JB (JB (J@@@DA@ D@0L@@@(JB (JB (JB (JB (JB (JB (JB (JB @@A@L@@@(JB (JB (JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   744
B (JB (JB (JB (JB (JB (@@@(JB (JB (JB (JB (JB @a') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   745
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???>G????!!????8_???>G????!!??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   746
??8_???>G????!!????8G???>@_??? A???8@G? @@@_ @@@A @@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   747
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   748
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   749
normalEditors
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   750
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   751
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   752
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   753
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   754
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   755
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   756
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   757
     self normalEditors inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   758
     ImageEditor openOnClass:self andSelector:#normalEditors
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   759
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   760
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   761
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   762
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   763
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   764
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   765
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalEditors'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   766
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   767
B0,KB0,KB0,KB0,K@@@KB0,KB0@KB0,KB0,KB0,KB0,KB0,KB0,KB0,K@@@JB @KB0,@B @@B0,KB0,KB0,KB0,KB0,KB0,K@@@JB $IB @K@@(IB (@@@,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   768
B0,KB0,KB0,KB0,K@@@JB $IBP$I@@@JBP$IBP(J@@@KB0,KB0,KB0,K@@@JB $IBP$I@@@AA@@@BP$IBP$JB @@B0,KB0,K@@@JB $IBP$I@@@A@PDAA@D@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   769
@@$IBP$IB (@@@,K@@@JB $IBP$I@@@A@PDA@PPAA@DD@@@IBP$IBP(J@@@K@@(IBP$I@@@A@PDA@PDA@PPAA@DD@P@@BP$IBP$@B0,K@@(I@@@A@PDA@PDA
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   770
@PDD@PPAA@DD@PP@@@$I@@,K@@@@@@@A@PDA@PDA@PDA@PDD@PPAA@DD@PPA@@@@@@@K@@@IBP@@@PDA@PDA@PDAA@DD@PPAA@DD@@@IBP@@B0,KB0@@BP$@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   771
@@DA@PDA@PDAA@DD@PPA@@@IBP@@B0,KB0,K@@(@@@$I@@@A@PDA@PPAA@DD@@@IBP@@A@@KB0,KB0,@B $I@@@IBP@@@PDA@PPA@@@IBP@@A@PD@@,KB0,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   772
B0@JBP$IBP@@BP$@@@DD@@@IBP@@A@PDA@P@B0,KB0,K@@(IBP$IBP$@@@$I@@@IBP@@A@PDA@PDA@@KB0,KB0,@B $IBP$IBP$I@@@IA@@@A@PDA@PDA@PD
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   773
@@,KB0,KB0@JBP$IBP$IBP$IBP$DA@PDA@PDA@PDA@P@B0,KB0,K@@(IBP$IBP$IBP$I@@@DA@PDA@PDA@PDA@@KB0,KB0,@B $IBP$IBP$I@@@FB @@A@PD
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   774
A@PDA@PD@@,KB0,KB0@JBP$IBP$I@@@FB (JB X@@@PDA@PDA@P@B0,KB0,K@@(IBP$I@@@FB (JA0\JB (F@@@DA@PDA@@@@@,KB0,@B $I@@@FB (JA0(J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   775
B \GB (JA @@A@P@@@TE@@,KB0@J@@@FB (JB (GA0\JB \GB (JB X@@@TE@0L@B0,K@@@FB (JA0\GB (JB \JB (JB X@@@TEAPLC@ @K@@@FB (JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   776
B \GA0(JB (JB X@@@TEAPLC@ @@B0@FB (JB (JB (JB (JA0(JB X@@@TEAPLC@ @@B0,KB0@@A (JB (JB (JB (JB X@@@TEAPLC@ @@B0,KB0,KB0,@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   777
@@XJB (JB (JB X@@@TEAPLC@ @@B0,KB0,KB0,KB0,K@@@FB (JB X@@@@HB@LC@ @@B0,KB0,KB0,KB0,KB0,KB0@@B X@@@,K@@(J@ @@B0,KB0,KB0,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   778
B0,KB0,KB0,KB0,@@@,KB0,@@@@@B0,KB0,KB0,KB0,KB0@a') ; colorMapFromArray:#[0 0 0 128 128 0 255 128 0 255 168 88 192 192 0 255 220 168 195 195 195 192 192 255 192 255 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   779
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G????!!??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   780
??<_????G????7????;????8_???8A???8@G??8@@_''8@@A!!8@@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   781
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   782
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   783
normalInspectPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   784
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   785
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   786
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   787
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   788
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   789
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   790
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   791
     self normalInspectPackage inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   792
     ImageEditor openOnClass:self andSelector:#normalInspectPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   793
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   794
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   795
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   796
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   797
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   798
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   799
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalInspectPackage'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   800
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   801
APTEAPTEAPTEAPTE@@@EAPTEAP@EAPTEAPTEAPTEAPTEAPTEAPTEAPTE@@@DA@@EAPT@A@@@APTEAPTEAPTEAPTEAPTEAPTE@@@DA@LCA@@E@@PCA@P@@@TE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   802
APTEAPTEAPTEAPTE@@@DA@LC@0LC@@@D@0LC@0PD@@@EAPTEAPTEAPTE@@@DA@LC@0LC@@@A@ @@@0LC@0LDA@@@APTEAPTE@@@DA@LC@0LC@@@A@PDA@ D@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   803
@@LC@0LCA@P@@@TE@@@DA@LC@0LC@@@A@PDA@PHA@ DB@@@C@0LC@0PD@@@E@@PC@0LC@@@A@PDA@PDA@PHA@ DB@P@@@0LC@0L@APTE@@PC@@@A@PDA@PDA
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   804
@PDB@PHA@ DB@PH@@@LC@@TE@@@@@@@A@PDA@PDA@PDA@PDB@PHA@ DB@PHA@@@@@@@E@@@C@0@@@PDA@PDA@PDA@ DB@PHA@ DB@@@C@0@@APTEAP@@@0L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   805
@@DA@PDA@PDA@ DB@PHA@@@C@0@@APTEAPTE@@P@@@LC@@@A@PDA@PHA@ DB@@@C@0@@@ @EAPTEAPT@A@LC@@@C@0@@@PDA@PHA@@@C@0@@@ HB@@TEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   806
AP@D@0LC@0@@@0L@@@DB@@@C@0@@@ HB@ H@APTEAPTE@@PC@0LC@0L@@@LC@@@C@0@@@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@@@C@ @@@ HB@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   807
@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@PC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@0LC@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   808
@ HB@ HB@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@PC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   809
@ HB@ HB@ HB@ HB@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@HC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@P@EAPTEAPT@@@HB@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   810
@0LC@0LC@ HB@ HB@ HB@PD@@@TEAPTEAPTE@@@B@ LC@0LC@0LB@ HB@ HB@PD@@@TEAPTEAPTEAPTEAP@@@ HC@0LC@0HB@ HB@PD@@@TEAPTEAPTEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   811
APTEAPT@@@HB@0LC@ HB@PD@@@TEAPTEAPTEAPTEAPTEAPTEAPTE@@@B@ LB@PD@@@TEAPTEAPTEAPTEAPTEAPTEAPTEAPTEAP@@@ D@@@TEAPTEAPTEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   812
APTEAPTEAPTEAPTEAPTEAPT@@@TEAPTEAPTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   813
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   814
?? _???8G???>A???? G??? @_?? @A?? @@G? @@@_ @@@A @@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   815
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   816
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   817
normalPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   818
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   819
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   820
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   821
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   822
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   823
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   824
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   825
     self normalPackage inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   826
     ImageEditor openOnClass:self andSelector:#normalPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   827
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   828
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   829
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   830
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   831
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   832
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   833
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackage'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   834
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   835
APTEAPTEAPTEAPTE@@@EAPTEAP@EAPTEAPTEAPTEAPTEAPTEAPTEAPTE@@@DA@@EAPT@A@@@APTEAPTEAPTEAPTEAPTEAPTE@@@DA@LCA@@E@@PCA@P@@@TE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   836
APTEAPTEAPTEAPTE@@@DA@LC@0LC@@@D@0LC@0PD@@@EAPTEAPTEAPTE@@@DA@LC@0LC@@@A@ @@@0LC@0LDA@@@APTEAPTE@@@DA@LC@0LC@@@A@PDA@ D@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   837
@@LC@0LCA@P@@@TE@@@DA@LC@0LC@@@A@PDA@PHA@ DB@@@C@0LC@0PD@@@E@@PC@0LC@@@A@PDA@PDA@PHA@ DB@P@@@0LC@0L@APTE@@PC@@@A@PDA@PDA
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   838
@PDB@PHA@ DB@PH@@@LC@@TE@@@@@@@A@PDA@PDA@PDA@PDB@PHA@ DB@PHA@@@@@@@E@@@C@0@@@PDA@PDA@PDA@ DB@PHA@ DB@@@C@0@@APTEAP@@@0L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   839
@@DA@PDA@PDA@ DB@PHA@@@C@0@@APTEAPTE@@P@@@LC@@@A@PDA@PHA@ DB@@@C@0@@@ @EAPTEAPT@A@LC@@@C@0@@@PDA@PHA@@@C@0@@@ HB@@TEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   840
AP@D@0LC@0@@@0L@@@DB@@@C@0@@@ HB@ H@APTEAPTE@@PC@0LC@0L@@@LC@@@C@0@@@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@@@C@ @@@ HB@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   841
@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@PC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@0LC@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   842
@ HB@ HB@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@PC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@ @EAPTEAPT@A@LC@0LC@0LC@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   843
@ HB@ HB@ HB@ HB@@TEAPTEAP@D@0LC@0LC@0LC@0LB@ HB@ HB@ HB@ H@APTEAPTE@@HC@0LC@0LC@0LC@0HB@ HB@ HB@ HB@P@EAPTEAPT@@@HB@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   844
@0LC@0LC@ HB@ HB@ HB@PD@@@TEAPTEAPTE@@@B@ LC@0LC@0LB@ HB@ HB@PD@@@TEAPTEAPTEAPTEAP@@@ HC@0LC@0HB@ HB@PD@@@TEAPTEAPTEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   845
APTEAPT@@@HB@0LC@ HB@PD@@@TEAPTEAPTEAPTEAPTEAPTEAPTE@@@B@ LB@PD@@@TEAPTEAPTEAPTEAPTEAPTEAPTEAPTEAP@@@ D@@@TEAPTEAPTEAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   846
APTEAPTEAPTEAPTEAPTEAPT@@@TEAPTEAPTEAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   847
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   848
?? _???8G???>A???? G??? @_?? @A?? @@G? @@@_ @@@A @@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   849
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   850
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   851
normalPackageFavourite
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   852
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   853
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   854
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   855
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   856
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   857
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   858
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   859
     self normalPackageFavourite inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   860
     ImageEditor openOnClass:self andSelector:#normalPackageFavourite
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   861
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   862
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   863
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   864
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   865
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   866
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   867
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageFavourite'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   868
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   869
B (JB (JB (JB (J@@@JB (JB @JB (JB (JB (JB (JB (JB (JB (J@@@IBP@JB (@BP@@B (JB (JB (JB (JB (JB (J@@@IBP HBP@J@@$HBP$@@@(J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   870
B (JB (JB (JB (J@@@IBP HB@ H@@@IB@ HB@$I@@@JB (JB (JB (J@@@IBP HB@ H@@@DA @@B@ HB@ IBP@@B (JB (J@@@IBP HB@ H@@@DA@PDA P@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   871
@@ HB@ HBP$@@@(J@@@IBP HB@ H@@@DA@PDA@XDA PF@@@HB@ HB@$I@@@J@@$HB@ H@@@DA@PDA@PDA@XDA PFA@@@B@ HB@ @B (J@@$H@@@DA@PDA@PD
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   872
A@PFA@XDA PFA@X@@@ H@@(J@@@@@@@DA@PDA@PDA@PDA@PFA@XDA PFA@XD@@@@@@@J@@@HB@@@A@PDA@PDA@PDA PFA@XDA PF@@@HB@@@B (JB @@B@ @
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   873
@@PDA@PDA@PDA PFA@XD@@@HB@@@B (JB (J@@$@@@ H@@@DA@PDA@XDA PF@@@HB@@@A @JB (JB (@BP H@@@HB@@@A@PDA@XD@@@HB@@@A XF@@(JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   874
B @IB@ HB@@@B@ @@@PF@@@HB@@@A XFA X@B (JB (J@@$HB@ HB@ @@@ H@@@HB@@@A XFA XFA @JB (JB (@BP HB@ HB@ H@@@HA @@A XFA XFA XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   875
@@(JB (JB @IB@ HB@ HB@ HB@ FA XFA XFA XFA X@B (JB (J@@$HB@ HB@ HB@ HB@XFA @@@@@FA X@@@@@B (JB (@BP HB@ HB@ HB@ HA X@@0TC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   876
AP@F@@LB@0H@B (JB @IB@ HB@ HB@ HB@ F@@TEA0TE@0H@@0HC@ H@B (J@@$HB@ HB@ HB@ HB@X@AP\EA0TE@@LC@0HC@ @JB (@BP HB@ HB@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   877
A @EA0\EAPLA@0LC@0HB@@(JB @IB@ HB@ HB@ HB@ F@@TGAPTC@0HC@0LB@0H@B (J@@XHB@ HB@ HB@ HB@XF@@LGAPTC@0LC@0LB@@(JB (@@@XFB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   878
B@ HB@ HA X@APTE@0TC@0LB@0H@B (JB (J@@@FA  HB@ HB@ FA X@@0LE@0LC@ LB@@(JB (JB (JB @@A XHB@ HB@XFA X@APLE@0HC@ @JB (JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   879
B (JB (@@@XFB@ HA XFA@P@@0LC@0H@B (JB (JB (JB (JB (J@@@FA  FA@P@@@(@@0LB@@(JB (JB (JB (JB (JB (JB @@A P@@@(JB (@@0@JB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   880
B (JB (JB (JB (JB (JB (@@@(JB (JB (@B (JB (JB @a') ; colorMapFromArray:#[0 0 0 128 0 0 192 0 0 255 0 0 128 128 0 255 128 0 192 192 0 255 192 192 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   881
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???8G????A????8_????G????1??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   882
??<_????G????!!????8G???<@_??>@A???@@G?/ @@_!!0@@A H@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   883
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   884
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   885
normalPackageGames
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   886
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   887
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   888
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   889
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   890
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   891
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   892
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   893
     self normalPackageGames inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   894
     ImageEditor openOnClass:self andSelector:#normalPackageGames
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   895
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   896
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   897
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   898
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   899
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   900
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   901
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageGames'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   902
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   903
B0,KB0,KB0,KB0,K@@@KB0,KB0@KB0,KB0,KB0,KB0,KB0,KB0,KB0,K@@@JB @KB0,@B @@B0,KB0,KB0,KB0,KB0,KB0,K@@@JB $IB @K@@(IB (@@@,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   904
B0,KB0,KB0,KB0,K@@@JB $IBP$I@@@JBP$IBP(J@@@KB0,KB0,KB0,K@@@JB $IBP$I@@@DAP@@BP$IBP$JB @@B0,KB0,K@@@JB $IBP$I@@@DA@PDAPP@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   905
@@$IBP$IB (@@@,K@@@JB $IBP$I@@@DA@PDA@TDAPPE@@@IBP$IBP(J@@@K@@(IBP$I@@@DA@PDA@PDA@TDAPPEA@@@BP$IBP$@B0,K@@(I@@@DA@PDA@PD
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   906
A@PEA@TDAPPEA@T@@@$I@@,K@@@@@@@DA@PDA@PDA@PDA@PEA@TDAPPEA@TD@@@@@@@K@@@IBP@@A@PDA@PDA@PDAPPEA@TD@@@@A@@IBP@@B0,KB0@@BP$@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   907
@@PDA@PDA@PDAPPEA@@C@0L@BP@@B0,KB0,K@@(@@@$I@@@DA@PDA@TDAPPE@@@@@@@@AP@KB0,KB0,@B $I@@@IBP@@A@PDA@TD@@@@B  F@@TE@@,KB0,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   908
B0@JBP$IBP@@BP$@@@PE@@@IBP@JB@X@APT@B0,KB0,K@@(IBP$IBP$@@@$I@@@IBP@@@@(HA @EAP@KB0,KB0,@B $IBP$IBP$I@@@IAP@@APT@B  F@@TE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   909
@@,KB0,KB0@JBP$IBP$IBP$IBP$EAPTEAP@JB@X@APT@B0,KB0,K@@(IBP$IBP$IBP$IBPTEAPT@@@(HA @EAP@KB0,KB0,@B $IBP$IBP$IBP$IAPT@@@\@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   910
B  F@@TE@@,KB0,KB0@JBP$IBP$IBP$IBP$@@@HBA0@JB@X@@@T@B0,KB0,K@@(IBP$IBP$IBP$I@@DB@0HG@@(HA @@@@@KB0,KB0,@B $IBP$IBP$IBP@H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   911
B (A@P\@B  F@@\G@@@KB0,KB0@JBP$IBP$IBP$I@@ HB@(JA0\@@@@GA0\GA0@KB0,K@@TIBP$IBP$IBP$@B@ HB@ JB \GA0\GA0 HA @KB0,@@@TEBP$I
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   912
BP$IBP@GB@ HB@ HB (GA0 HA XF@@,KB0,K@@@EAP$IBP$IBP@GA0 HB@ HB@(HA XFA X@B0,KB0,KB0@@APTIBP$IBP@@A0\HB@ HB@XFA XFA @KB0,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   913
B0,KB0,@@@TEBP$IAPT@@@\GB@ HA XFA X@B0,KB0,KB0,KB0,K@@@EAP$EA@P@@@@GA0 FA X@@@,KB0,KB0,KB0,KB0,KB0@@APP@@@,KB0@@A0X@@@,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   914
B0,KB0,KB0,KB0,KB0,KB0,@@@,KB0,KB0,@@@,KB0,KB0@a') ; colorMapFromArray:#[0 0 0 128 0 0 192 0 0 255 0 0 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   915
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   916
??0_???>G????1????<G????@_???0A???8@G??<@@_#<@@A L@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   917
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   918
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   919
normalPackageGraphics
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   920
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   921
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   922
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   923
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   924
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   925
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   926
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   927
     self normalPackageGraphics inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   928
     ImageEditor openOnClass:self andSelector:#normalPackageGraphics
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   929
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   930
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   931
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   932
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   933
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   934
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   935
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageGraphics'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   936
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   937
HB@ HB@ HB@ HB@ @@@ HB@ H@@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @@@_G0@ HB@@G0@@HB@ HB@ HB@ HB@ HB@ HB@ @@@_G18^G0@ @A<^G1<@@B@
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   938
HB@ HB@ HB@ HB@ @@@_G18^G!!8^@@@_G!!8^G!!<_@@@ HB@ HB@ HB@ @@@_G18^G!!8^@@@QE@@@G!!8^G!!8_G0@@HB@ HB@ @@@_G18^G!!8^@@@QDQDQEAD@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   939
@A8^G!!8^G1<@@B@ @@@_G18^G!!8^@@@QDQDQDQPQEADT@@@^G!!8^G!!<_@@@ @A<^G!!8^@@@QDQDQDQDQDQPQEADTDP@@G!!8^G!!8@HB@ @A<^@@@QDQDQDQDQ
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   940
DQDTDQPQEADTDQP@@A8^@B@ @@@@@@@QDQDQDQDQDQDQDQDTDQPQEADTDQPQ@@@@@@@ @@@^G @@DQDQDQDQDQDQEADTDQPQEADT@@@^G @@HB@ H@@@G!!8@
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   941
@ADQDQDQDQDQEADTDQPQ@@@^G @@HB@ HB@ @A<@@A8^@@@QDQDQDQPQEADT@@@^G @@E@@ HB@ HB@@G18^@@@^G @@DQDQDQPQ@@@^G @@EAPT@B@ HB@
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   942
H@@_G!!8^G @@G!!8@@ADT@@@^G @@EAPTEAP@HB@ HB@ @A<^G!!8^G!!8@@A8^@@@@@@@@@@@@@@@@@@@@@@@ HB@@G18^G!!8^G!!8^@@@^@A$Y@QXVE!!XV@Q$Y
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   943
@Q$Y@B@ H@@_G!!8^G!!8^G!!8^G!!8@FQ$AE!!XVE!!XAFQ$AFQ$@HB@ @A<^G!!8^G!!8^G!!8^G @@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@^@@(JA@PB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   944
@ \GC 8QDP4M@@@XFA XFA XFA XFA XF@@@B (DA@HBA0\NC!!DQCP4@@ALSD1LSD1LSD1LSD1L^G @KB0TE@0LHB@<OEAPRD @@CP4MCP4MCP4MCP4MCQ8^
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   945
FP@KAPTC@0 HC0<TEAHR@@@RD!!HRD!!HRD!!HRD!!HRG!!8@C@0FA!!\WBP$PDATUD1L@@@4MCP4MCP4MCP4MCP4M@@@LC@XFE1\IBQ@PEQTSD0@ @@@@@@@@@@@@
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   946
@@@@@@@^@A0\F1,ZF!!<_GQ4^G!! X@B@ HB@ @@@TEA8^G!!8^G!!8@GA0[F1(ZG1<]GQ8^FA @HB@ HB@ H@@@EAP^G!!8^G @@@@@@@@@@@@@@@@@@@@@ HB@
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   947
HB@ HB@@@APTG!!8^EAPTDQD@@B@ HB@ HB@ HB@ HB@ HB@ HB@ @@@TEA8TDQD@@B@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ H@@@EAD@@B@ HB@ HB@ HB@
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   948
HB@ HB@ HB@ HB@ HB@ HB@@@B@ HB@ HB@ HB@ HB@ H@@a') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 128 0 0 255 0 128 0 0 192 0 0 128 0 0 128 128 0 192 192 0 255 255 128 0 0 192 0 0 255 0 0 192 88 0 128 0 128 192 0 192 255 0 255 128 128 0 255 128 0 255 168 88 192 192 0 255 255 0 128 128 128 128 128 255 255 220 168 195 195 195 192 192 255 192 255 192 255 192 192 255 192 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   949
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G????1????<_????G????7??????????????????
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   950
?????????????7????<G????@_???0A?? @@G? @@@_ @@@A @@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   951
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   952
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   953
normalPackageMutimedia
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   954
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   955
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   956
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   957
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   958
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   959
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   960
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   961
     self normalPackageMutimedia inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   962
     ImageEditor openOnClass:self andSelector:#normalPackageMutimedia
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   963
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   964
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   965
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   966
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   967
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   968
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   969
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageMutimedia'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
   970
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   971
DA@PDA@PDA@PDA@P@@@PDA@PD@@PDA@PDA@PDA@PDA@PDA@PDA@PDA@P@@@OC0@PDA@@C0@@DA@PDA@PDA@PDA@PDA@PDA@P@@@OC08NC0@P@@<NC0<@@A@P
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   972
DA@PDA@PDA@PDA@P@@@OC08NC 8N@@@OC 8NC <O@@@PDA@PDA@PDA@P@@@OC08NC 8N@@@DAP@@C 8NC 8OC0@@DA@PDA@P@@@OC08NC 8N@@@DA@PDAPP@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   973
@@8NC 8NC0<@@A@P@@@OC08NC 8N@@@DA@PDA@TDAPPE@@@NC 8NC <O@@@P@@<NC 8N@@@DA@PDA@PDA@TDAPPEA@@@C 8NC 8@DA@P@@<N@@@DA@PDA@PD
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   974
A@PEA@TDAPPEA@T@@@8N@A@P@@@@@@@DA@PDA@PDA@PDA@PEA@TDAPPEA@TD@@@@@@@P@@@NC @@A@PDA@PDA@PDAPPEA@TDAPPE@@@NC @@DA@PD@@@C 8@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   975
@@PDA@PDA@PDAPPEA@TD@@@NC @@DA@PDA@P@@<@@@8N@@@DA@PDA@TDAPPE@@@NC @@AP@PDA@PDA@@C08N@@@NC @@A@PDA@TD@@@NC @@APTE@A@PDA@P
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   976
D@@OC 8NC @@C 8@@@PE@@@N@@@@@@@@APT@DA@PDA@P@@<NC 8NC 8@@@8N@@@N@@@HB@ HB@ @@@@PDA@PDA@@C08NC 8NC 8N@@@NAP@MB@ HB@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   977
@A@PDA@PD@@OC 8NC 8NC 8NC 8@B0LMB@ HB@ HB@<O@A@PDA@P@@<NC 8NC 8NC 8N@@DAB0LHB@ HB@ OC0<H@A@PDA@@C08NC 8NC 8NC 8@B@(AB0LH
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   978
B@ HB@<OB@ @DA@PD@@OC 8NC 8NC 8N@@ HB@ AB0\FA \OB@ HB@ @DA@P@@<NC 8NC 8NC 8@B@ HB@ GA @@A \HB@ HB@@PDA@@C08NC 8NC 8NC @H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   979
B@ HB@X@APT@A  HB@ H@A@PD@@OC 8NC 8NC 8N@@ HB@ HA @EC @FB@ HB@ @DA@P@@TNC 8NC 8NC 8@B@ HB@ GA @@A \HB@ HB@@PDA@@@@TEC 8N
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   980
C 8NC @HB@ HB@<GA XGBPHHB@ H@A@PDA@P@@@EAP8NC 8NC @HB@<OB@ HB@ CBPHKB@@PDA@PDA@PD@@@APTNC 8N@@ OC0<HB@ HB@ CBPHB@A@PDA@P
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   981
DA@PDA@@@@TEC 8N@@<OB@ HB@ HB@0CBP@PDA@PDA@PDA@PDA@P@@@EAP8E@@ HB@ HB@ HB@0@DA@PDA@PDA@PDA@PDA@PD@@@APP@@@@HB@ HB@ @@A@P
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   982
DA@PDA@PDA@PDA@PDA@PDA@@@A@PD@@@@@@@@A@PDA@PD@@a') ; colorMapFromArray:#[0 0 0 0 128 0 0 255 255 255 0 255 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 192 192 255 192 255 192 192 255 255 255 192 192 255 192 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   983
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???<G????!!????8_????G????1??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   984
??<_????G????1????<G???>@_??? A???0@G??8@@_?<@@A#<@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   985
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   986
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   987
normalPackageNetwork
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   988
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   989
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   990
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   991
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   992
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   993
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   994
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   995
     self normalPackageNetwork inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   996
     ImageEditor openOnClass:self andSelector:#normalPackageNetwork
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   997
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   998
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
   999
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1000
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1001
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1002
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1003
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageNetwork'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1004
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1005
C@0LC@0LC@0LC@0L@@@LC@0LC@@LC@0LC@0LC@0LC@0LC@0LC@0LC@0L@@@KB0@LC@0@B0@@C@0LC@0LC@0LC@0LC@0LC@0L@@@KB0(JB0@L@@,JB0,@@@0L
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1006
C@0LC@0LC@0LC@0L@@@KB0(JB (J@@@KB (JB ,K@@@LC@0LC@0LC@0L@@@KB0(JB (J@@@FA0@@B (JB (KB0@@C@0LC@0L@@@KB0(JB (J@@@FA XFA0X@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1007
@@(JB (JB0,@@@0L@@@KB0(JB (J@@@FA XFA \FA0XG@@@JB (JB ,K@@@L@@,JB (J@@@FA XFA XFA \FA0XGA @@B (JB (@C@0L@@,J@@@FA XFA XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1008
A XGA \FA0XGA \@@@(J@@0L@@@@@@@FA XFA XFA XFA XGA \FA0XGA \F@@@@@@@L@@@JB @@A XFA XFA X@@@@@@@@@@@@G@@@JB @@C@0LC@@@B (@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1009
@@XFA XF@@$IBP$IBP$IBP@JB @@C@0LC@0L@@,@@@(J@@@FA @IBP$IBP$IBP$H@@@@A0@LC@0LC@0@B0(J@@@JB @@@@,KB0,KB0,KB@ @A0\G@@0LC@0L
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1010
C@@KB (JB @@B (@BP HB@ HB@$HB@@GA0\@C@0LC@0L@@,JB (JB (@@@@I@ HB@ HBB0 @@@@@@@@@@@0LC@0@B0(JB (JB (J@@$AA@DB@PHK@@$IBP$I
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1011
BP$I@@0LC@@KB (JB (JB (@BPDA@PDA@P@IBP$IBP$IBP @C@0L@@,JB (JB (JB @I@PDA@PD@B0,KB0,KB0,HB@@LC@0@B0(JB (JB (J@@,KB0,KB0@I
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1012
B@ HB@ HBP H@@0LC@@KB (JB (JB (J@@@@@@@@@@$B@ HB@ HKB@ @C@0L@@,JB (JB (JB (@B@ HB@ @BPHD@ DB@P,HB@@LC@0@B0(JB (JB (J@@,K
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1013
B0,KB0@I@PDA@PDAB0 H@@0LC@@KB (JB (JB (@BP$IBP$I@@$A@PDA@PDKB@@LC@0L@@\JB (JB (JB @I@0$@@@@@B0,KB0,KB0,@B@@LC@0@@@\GB (J
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1014
B (J@@$IBP$IBP$@@@@@@@@@@@ I@@0LC@0L@@@GA0(JB (J@@@@@@@@@@@HB@ HB@ HBP @C@0LC@0LC@@@A0\JB (JB \GA0\@B0,KB0,KB0,HB@@LC@0L
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1015
C@0LC@0@@@\GB (JA0\GA @IBP$IBP$IBP H@@0LC@0LC@0LC@0L@@@GA0(GA X@@@$EBP@@@@@IB@@LC@0LC@0LC@0LC@0LC@@@A0X@@@0@BP$IBP$IBP$@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1016
C@0LC@0LC@0LC@0LC@0LC@0@@@0LC@0@@@@@@@@@@@0LC@@a') ; colorMapFromArray:#[0 0 0 0 0 128 0 0 255 0 128 0 0 255 255 255 0 0 128 128 0 192 192 0 128 128 128 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1017
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G????!!????<_????G????1????<_????G????1??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1018
??<_???>G????1????<G????@_???0A???<@G??>@@_/?@@A!!? b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1019
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1020
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1021
normalPackageSettings
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1022
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1023
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1024
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1025
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1026
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1027
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1028
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1029
     self normalPackageSettings inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1030
     ImageEditor openOnClass:self andSelector:#normalPackageSettings
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1031
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1032
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1033
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1034
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1035
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1036
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1037
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageSettings'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1038
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1039
B@ HB@ HB@ HB@ H@@@HB@ HB@@HB@ HB@ HB@ HB@ HB@ HB@ HB@ H@@@GA0@HB@ @A0@@B@ HB@ HB@ HB@ HB@ HB@ H@@@GA0XFA0@H@@\FA0\@@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1040
B@ HB@ HB@ HB@ H@@@GA0XFA XF@@@GA XFA \G@@@HB@ HB@ HB@ H@@@GA0XFA XF@@@A@ @@A XFA XGA0@@B@ HB@ H@@@GA0XFA XF@@@A@PDA@ D@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1041
@@XFA XFA0\@@@ H@@@GA0XFA XF@@@A@PDA@PHA@ DB@@@FA XFA \G@@@H@@\FA XF@@@A@PDA@PDA@PHA@ DB@P@@A XFA X@B@ H@@\F@@@A@PDA@PDA
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1042
@PDB@PHA@ DB@PH@@@XF@@ H@@@@@@@A@PDA@PDA@PDA@PDB@PHA@ DB@PHA@@@@@@@H@@@FA @@@PDA@PDA@PDA@ DB@PHA@ DB@@@FA @@B@ HB@@@A X@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1043
@@DA@PDA@PDA@ DB@PHA@@@FA @@B@ HB@ H@@\@@@XF@@@A@PDA@PHA@ DB@@@FA @@@ @HB@ HB@ @A0XF@@@FA @@@PDA@PHA@@@FA @@@ HB@@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1044
B@@GA XFA @@A X@@@DA@@@FA @@@@HB@ H@B@ HB@ H@@\FA XFA X@@@XF@@@FA @@@@\D@@HB@ @HB@ HB@ @A0XFA XFA XF@@@F@ @@@ H@A0P@@ H@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1045
@@ HB@ HB@@GA XFA XFA XFA X@A@\@@@\EAPL@@@\D@@ HB@ H@@\FA XFA XFA XFA @CAP\GAPTEAP\GAPL@B@ HB@ @A0XFA XFA XFA XF@ @DAPTE
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1046
APTEAPTC@@ HB@ HB@@GA XFA XFA XFA XB@@\EAPPCA@TEAPP@B@ HB@ H@@\FA XFA XFA XF@@@GAPTD@0@@A0TEAPP@@@ HB@ @A0XFA XFA XFA @G
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1047
A0TEAPL@@ H@A0TEAP\D@@ HB@@GA XFA XFA XF@@LCAPTEA@@B@ @GAPTE@0L@B@ H@@HFA XFA XFA XF@@@DA@TEA0@@A0TEAPL@@@ HB@ @@@HBA XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1048
A XFA XF@ @DAPTEA0\EAPTC@@ HB@ HB@ H@@@B@ XFA XFA XB@@\EAPTEAPTEAPL@B@ HB@ HB@ HB@@@@ HFA XFA @GAPLDAPTEAPTGAPL@B@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1049
B@ HB@ @@@HBA XF@@PC@@@GAPTC@@@D@0@HB@ HB@ HB@ HB@ H@@@B@ XB@@@@@@@G@0@HB@@@B@ HB@ HB@ HB@ HB@ HB@@@@ H@@@ H@@\C@@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1050
B@ HB@ HB@ HB@ HB@ HB@ @@@ HB@ H@@@HB@ HB@ HB@@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 128 128 128 160 160 160 195 195 195 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1051
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???<G????A???? _???8G????!!??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1052
??<_????G????!!???? G???8@_???@A???0@G?>X@@_'' @@A 0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1053
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1054
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1055
normalPackageSystem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1056
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1057
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1058
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1059
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1060
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1061
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1062
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1063
     self normalPackageSystem inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1064
     ImageEditor openOnClass:self andSelector:#normalPackageSystem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1065
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1066
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1067
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1068
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1069
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1070
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1071
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageSystem'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1072
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1073
B@ HB@ HB@ HB@ H@@@HB@ HB@@HB@ HB@ HB@ HB@ HB@ HB@ HB@ H@@@GA0@HB@ @A0@@B@ HB@ HB@ HB@ HB@ HB@ H@@@GA0XFA0@H@@\FA0\@@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1074
B@ HB@ HB@ HB@ H@@@GA0XFA XF@@@GA XFA \G@@@HB@ HB@ HB@ H@@@GA0XFA XF@@@BA@@@A XFA XGA0@@B@ HB@ H@@@GA0XFA XF@@@B@ HBA@H@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1075
@@XFA XFA0\@@@ H@@@GA0XFA XF@@@B@ HB@ PBA@HD@@@FA XFA \G@@@H@@\FA XF@@@B@ HB@ HB@ PBA@HD@ @@A XFA X@B@ H@@\F@@@B@ HB@ HB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1076
@ HD@ PBA@HD@ P@@@XF@@ H@@@@@@@B@ HB@ HB@ HB@ HD@ PBA@HD@ PB@@@@@@@H@@@FA @@@ HB@ HB@ HBA@HD@ @@@@@D@@@FA @@B@ HB@@@A X@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1077
@@HB@ HB@ HBA@H@@@@@@@@FA @@B@ HB@ H@@\@@@XF@@@B@ HB@ PBA@@G@@@G@@@@@ @HB@ HB@ @A0XF@@@FA @@@ HB@ P@@@@@@@@@@ HB@@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1078
B@@GA XFA @@A X@@@H@@@X@@@DC@0D@@ H@B@ HB@ H@@\FA XFA X@@@XF@@@@@@@@@0LC@0L@@ @HB@ HB@ @A0XFA XFA XF@@@F@ HB@@@@@PDC@0@B
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1079
@@ HB@ HB@@GA XFA XFA XF@@@B@ H@@@@@@@@@@ H@@@ HB@ H@@\FA XFA XFA @G@@HB@@@@@@@@@@@B@ @G@@ HB@ @A0XFA XFA X@A0\@@@@@@@@G
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1080
A0@@@@@@@@\G@@ HB@@GA XFA XFA @GA0\@@@@@@@\G@@@@@@@GA0\@B@ H@@\FA XFA XFA @@@@@@@@@@A0\@@@@@@@@@@@ HB@ @A0XFA XFA XFA XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1081
@ @@@@@GA0@@@@@B@@ HB@ HB@@GA XFA XFA XFA XB@@@@AP\GAP@@@@H@B@ HB@ H@@PFA XFA XFA XFA H@@@\GA0\GA0@@@ @HB@ HB@ @@@PDA XF
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1082
A XFA XF@ @GA0\GA0\GA0@@@@ HB@ HB@ H@@@DA@XFA XFA XB@@\GA0\GA0\G@@ HB@ HB@ HB@ HB@@@A@PFA XFA H@A0\GA0\GA0\@B@ HB@ HB@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1083
B@ HB@ @@@PDA XF@ H@@@\GA0\@@@ HB@ HB@ HB@ HB@ HB@ H@@@DA@XB@@LC@@@@@@LC@@ HB@ HB@ HB@ HB@ HB@ HB@@@A@@C@0L@B@ @@0LC@@ H
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1084
B@ HB@ HB@ HB@ HB@ HB@ @B@@@@@ HB@ @@@@HB@ HB@@a') ; colorMapFromArray:#[0 0 0 192 88 0 128 128 0 255 128 0 192 192 0 128 128 128 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1085
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???8G???>A???? _???<G????!!????<_????G????!!??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1086
?? _???8G???>A???? G??? @_??8@A??<@@G?? @@_9<@@A\N@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1087
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1088
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1089
normalPackageUtilities
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1090
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1091
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1092
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1093
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1094
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1095
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1096
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1097
     self normalPackageUtilities inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1098
     ImageEditor openOnClass:self andSelector:#normalPackageUtilities
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1099
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1100
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1101
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1102
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1103
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1104
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1105
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class normalPackageUtilities'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1106
	ifAbsentPut:[(Depth8Image new) width: 32; height: 32; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1107
C 8NC 8NC 8NC 8N@@@NC 8NC @NC 8NC 8NC 8NC 8NC 8NC 8NC 8N@@@MCP@NC 8@CP@@C 8NC 8NC 8NC 8NC 8NC 8N@@@MCP0LCP@N@@4LCP4@@@8N
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1108
C 8NC 8NC 8NC 8N@@@MCP0LC@0L@@@MC@0LC@4M@@@NC 8NC 8NC 8N@@@MCP0LC@0L@@@CA @@C@0LC@0MCP@@C 8NC 8N@@@MCP0LC@0L@@@C@0LCA L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1109
@@0LC@0LCP4@@@8N@@@MCP0LC@0L@@@C@0LC@0XCA LF@@@LC@0LC@4M@@@N@@4LC@0L@@@C@0LC@0LC@0XCA LF@0@@C@0LC@0@C 8N@@4L@@@C@0LC@0LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1110
@0LF@0XCA LF@0X@@@0L@@8N@@@@@@@C@0LC@0LC@0LC@0LF@0XCA LF@0XC@@@@@@@N@@@LC@@@@0LC@0LC@0LCA LF@0XCA LF@@@LC@@@C 8NC @@C@0@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1111
@@LC@0LC@0LF@0@@@@@@@@@LC@@@C 8NC 8N@@4@@@0L@@@C@0LC@0L@A0DA@P@LC@@@A @NC 8NC 8@CP0L@@@LC@@@@0LC@@\GA0\G@@@@A XF@@8NC 8N
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1112
C @MC@0LC@@@C@0@@@@GA0 A@PD@A XF@@@@@@8NC 8N@@4LC@0LC@0@@@0@A0\H@PDA@P@FA @KB @NC 8NC 8@CP0LC@0LC@0L@@\GB@DA@PDA@@X@B0(@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1113
C 8N@@8NC @MC@0LC@0LC@@GA0 A@PDA@P@FA @KB @NC @@C 8N@@4LC@0LC@0L@@\H@PDA@PD@A XF@@,JB0@@B @NC 8@CP0LC@0LC@0@B@DA@PDA@@$@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1114
A @KB HJB0,B@@8NC @MC@0LC@0LC@@A@PDA@P@DAP$@B0(BB HB@ @NC 8N@@4LC@0LC@0LC@@A@PD@A @D@@,J@ (B@@@@C 8NC 8@CP0LC@0LC@0LC@@A
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1115
@@XFA @KB HJ@ @F@@8NC 8NC @MC@0LC@0LC@0LC@@FA X@B0(BB H@A X@C 8NC 8N@@XLC@0LC@0LC@0LC@XF@@,J@ (B@@$@A @NC 8NC 8@@@XFC@0L
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1116
C@0LC@0LA @KB HJ@ @DAP$@@@8NC 8NC 8N@@@FA 0LC@0LC@0@B0(BB H@A @DAP$@C 8NC 8NC 8NC @@A XLC@0L@@,J@ (B@@X@@@@DAP$@C 8NC 8N
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1117
C 8NC 8@@@XFC@@KB HJ@ @@@@8NC @DAP$@C 8NC 8NC 8NC 8N@@@F@@,BB H@@@8NC 8NC @DAP$@C 8NC 8NC 8NC 8NC @@@ HB@@8NC 8NC 8NC @D
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1118
AP@NC 8NC 8NC 8NC 8NC 8@@@@NC 8NC 8NC 8NC @@C @a') ; colorMapFromArray:#[0 0 0 88 88 88 0 192 192 128 128 0 255 128 0 255 168 88 192 192 0 128 128 128 160 160 160 255 220 168 195 195 195 192 255 255 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 32; height: 32; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1119
@@0P@@@>O@@@?7<@@???0@????@????<?????7????8????<?????7????8_???8G???>A???? _???<G???>A????D_???3G????1????<_???>G????A??
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1120
?? _???8G???>A???? G???8@_???@A??#8@G? _@@_ C0@A0@Xb') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1121
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1122
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1123
notInstalledpackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1124
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1125
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1126
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1127
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1128
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1129
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1130
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1131
     self notInstalledpackageIcon inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1132
     ImageEditor openOnClass:self andSelector:#notInstalledpackageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1133
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1134
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1135
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1136
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1137
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1138
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1139
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class notInstalledpackageIcon'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1140
	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ATET@AUEE@APQAP@TDQT@A]5_@@UUU\@O5?G@@E@M0C=_3\@?W<7@O5?M0C=_3\@?W<4@O5?M@C=_0@@@T@@@@a') ; colorMapFromArray:#[0 0 0 132 0 132 255 255 0 152 156 152]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1141
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1142
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1143
packageDirtyIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1144
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1145
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1146
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1147
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1148
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1149
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1150
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1151
     self packageDirtyIcon inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1152
     ImageEditor openOnClass:self andSelector:#packageDirtyIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1153
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1154
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1155
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1156
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1157
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1158
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1159
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class packageDirtyIcon'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1160
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1161
APTEAPT@@@TEAP@EAPTEAPTEAP@@@0L@@@@C@@@EAPTE@@@C@0@@@PH@@@LC@@@E@@LC@@@A@PDB@ H@@@LC@@@@@@DA@PDA@ HB@ H@@@@E@@L@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1162
@ @@@@TEAP@C@0L@@@DB@@@B@ @EAPT@@0@C@@L@@@HB@@H@APTE@@LC@0LC@0H@@ H@@@TEAP@C@@L@@0@B@ @B@ @EAPT@@0LC@0LC@@HB@ @@APTE@@L@
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1163
@0@C@@HB@@HB@@TEAP@B@0LC@0L@@ HB@@@EAPTE@@@B@0@C@ H@@@TEAPTEAPTE@@@B@0@@APTEAPTEAPTEAPTE@@@EAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 200 200 200 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?<_?1??G?<_?0?<@?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1164
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1165
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1166
packageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1167
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1168
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1169
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1170
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1171
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1172
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1173
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1174
     self packageIcon inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1175
     ImageEditor openOnClass:self andSelector:#packageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1176
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1177
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1178
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1179
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1180
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1181
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1182
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class packageIcon'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1183
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1184
APTEAPT@@@TEAP@EAPTEAPTEAP@@@0L@@@@C@@@EAPTE@@@C@0@@@PH@@@LC@@@E@@LC@@@A@PDB@ H@@@LC@@@@@@DA@PDA@ HB@ H@@@@E@@L@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1185
@ @@@@TEAP@C@0L@@@DB@@@B@ @EAPT@@0LC@0L@@@HB@ H@APTE@@LC@0LC@0HB@ HB@@TEAP@C@0LC@0LB@ HB@ @EAPT@@0LC@0LC@ HB@ H@APTE@@LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1186
@0LC@0HB@ HB@@TEAP@B@0LC@0LB@ HB@@@EAPTE@@@B@0LC@ H@@@TEAPTEAPTE@@@B@0@@APTEAPTEAPTEAPTE@@@EAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 128 128 0 192 192 0 255 255 192 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?<_?1??G?<_?0?<@?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1187
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1188
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1189
packageOverriddenIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1190
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1191
     by the ImageEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1192
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1193
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1194
     the ImageEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1195
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1196
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1197
     self packageOverriddenIcon inspect
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1198
     ImageEditor openOnClass:self andSelector:#packageOverriddenIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1199
     Icon flushCachedIcons
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1200
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1201
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1202
    <resource: #image>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1203
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1204
    ^Icon
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1205
	constantNamed:#'Packages::PackageSelector::HierarchicalPackageSelector class packageOverriddenIcon'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1206
	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(nil )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1207
APTEAPT@@@TEAP@EAPTEAPTEAP@@@0L@@@@C@@@EAPTE@@@C@0@@@PH@@@LC@@@E@@LC@@@A@PDB@ H@@@LC@@@@@@DA@PDA@ HB@ H@@@@E@@L@@@DA@PHB
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1208
@ @@@@TEAP@C@0L@@@DB@@@B@ @EAPT@@0LC@0L@@@HB@ H@APTE@@LC@0LC@0HB@ HB@@TEAP@C@0LC@0LB@ HB@ @EAPT@@0LC@0LC@ HB@ H@APTE@@LC
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1209
@0LC@0HB@ HB@@TEAP@B@0LC@0LB@ HB@@@EAPTE@@@B@0LC@ H@@@TEAPTEAPTE@@@B@0@@APTEAPTEAPTEAPTE@@@EAPTEAPTEAP@a') ; colorMapFromArray:#[0 0 0 192 0 0 250 0 0 255 150 150 255 255 255 0 0 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A"@_>G?>?????7?<_?1??G?<_?1??G?<_?0?<@?@@0@b') ; yourself); yourself]
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1210
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1211
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1212
!PackageSelector::HierarchicalPackageSelector class methodsFor:'interface specs'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1213
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1214
windowSpec
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1215
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1216
     by the UIPainter of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1217
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1218
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1219
     the UIPainter may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1220
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1221
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1222
     UIPainter new openOnClass:Packages::PackageSelector::HierarchicalPackageSelector andSelector:#windowSpec
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1223
     Packages::PackageSelector::HierarchicalPackageSelector new openInterface:#windowSpec
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1224
     Packages::PackageSelector::HierarchicalPackageSelector open
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1225
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1226
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1227
    <resource: #canvas>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1228
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1229
    ^
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1230
     #(#FullSpec
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1231
	#name: #windowSpec
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1232
	#window:
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1233
       #(#WindowSpec
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1234
	  #label: 'Packages::PackageSelectorApplication'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1235
	  #name: 'Packages::PackageSelectorApplication'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1236
	  #min: #(#Point 10 10)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1237
	  #max: #(#Point 1024 768)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1238
	  #bounds: #(#Rectangle 29 59 329 359)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1239
	  #menu: #mainMenu
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1240
	)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1241
	#component:
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1242
       #(#SpecCollection
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1243
	  #collection: #(
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1244
	   #(#HierarchicalListViewSpec
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1245
	      #name: 'SelectionInListModelView2'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1246
	      #layout: #(#LayoutFrame 0 0 0 0 0 1 0 1)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1247
	      #model: #packagesSelectedIndexHolder
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1248
	      #menu: #popUpMenu
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1249
	      #hasHorizontalScrollBar: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1250
	      #hasVerticalScrollBar: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1251
	      #listModel: #tree
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1252
	      #multipleSelectOk: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1253
	      #highlightMode: #line
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1254
	      #valueChangeSelector: #newSelectedIndexes:
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1255
	    )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1256
	   )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1257
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1258
	)
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1259
      )
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1260
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1261
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1262
!PackageSelector::HierarchicalPackageSelector class methodsFor:'menu specs'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1263
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1264
popUpMenu
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1265
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1266
     by the MenuEditor of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1267
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1268
    "Do not manually edit this!! If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1269
     the MenuEditor may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1270
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1271
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1272
     MenuEditor new openOnClass:Packages::PackageSelector::HierarchicalPackageSelector andSelector:#popUpMenu
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1273
     (Menu new fromLiteralArrayEncoding:(Packages::PackageSelector::HierarchicalPackageSelector popUpMenu)) startUp
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1274
    "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1275
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1276
    <resource: #menu>
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1277
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1278
    ^
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1279
     #(#Menu
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1280
	#(
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1281
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1282
	    #label: 'New category'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1283
	    #itemValue: #kjj
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1284
	    #translateLabel: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1285
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1286
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1287
	    #label: 'Properties'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1288
	    #itemValue: #showProperties
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1289
	    #translateLabel: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1290
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1291
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1292
	    #label: 'Inspect'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1293
	    #itemValue: #inspectPackage
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1294
	    #translateLabel: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1295
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1296
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1297
	    #label: '-'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1298
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1299
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1300
	    #label: 'Save Package'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1301
	    #itemValue: #savePackage
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1302
	    #translateLabel: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1303
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1304
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1305
	    #label: 'Unload Package'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1306
	    #itemValue: #unloadPackage
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1307
	    #translateLabel: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1308
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1309
	 #(#MenuItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1310
	    #label: 'Uninstall Package'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1311
	    #itemValue: #uninstallPackage
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1312
	    #translateLabel: true
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1313
	  )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1314
	 )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1315
	nil
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1316
	nil
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1317
      )
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1318
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1319
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1320
!PackageSelector::HierarchicalPackageSelector class methodsFor:'plugIn spec'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1321
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1322
aspectSelectors
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1323
    "This resource specification was automatically generated
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1324
     by the UIPainter of ST/X."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1325
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1326
    "Do not manually edit this. If it is corrupted,
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1327
     the UIPainter may not be able to read the specification."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1328
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1329
    "Return a description of exported aspects;
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1330
     these can be connected to aspects of an embedding application
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1331
     (if this app is embedded in a subCanvas)."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1332
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1333
    ^ #(
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1334
	#packagesSelectedHolder
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1335
      ).
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1336
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1337
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1338
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1339
!PackageSelector::HierarchicalPackageSelector methodsFor:'* As yet uncategorized *'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1340
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1341
categoryItemNamed:aName
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1342
    tree root children do:[:anItem |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1343
	anItem isCategoryItem ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1344
	    anItem label = aName ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1345
		^ anItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1346
	    ].
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1347
	].
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1348
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1349
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1350
    ^ nil
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1351
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1352
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1353
packagedManagerChangeAddPackage:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1354
    | categoryItem |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1355
    categoryItem := (self categoryItemNamed:aPackage category) ifNil:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1356
	categoryItem := tree root add: (CategoryItem name:aPackage category packageManager:self packageManager)
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1357
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1358
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1359
    categoryItem add:(categoryItem newItemPackageWithPackage:aPackage).
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1360
    ^ self
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1361
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1362
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1363
packagedManagerChangeRemovePackage:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1364
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1365
    tree copy do:[:anItem |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1366
	anItem isPackageItem ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1367
	    anItem package == aPackage ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1368
		anItem remove.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1369
	    ].
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1370
	].
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1371
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1372
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1373
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1374
!PackageSelector::HierarchicalPackageSelector methodsFor:'accessing'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1375
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1376
masterApplication:aMasterApplication
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1377
    "initialization"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1378
    | aPackageManager newRootItem tree categories |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1379
    super masterApplication:aMasterApplication.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1380
    tree := self tree.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1381
    tree showRoot:false.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1382
    aPackageManager := self packageManager.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1383
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1384
    newRootItem := RootItem new.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1385
    tree root:newRootItem.
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1386
    categories := aPackageManager allPackageCategories collect:[:aCategory |
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1387
	self newItemPackageWithCategory:aCategory packageManager:aPackageManager
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1388
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1389
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1390
"/    packageItems := (aPackageManager packages collect:[:aPackage |  self newItemPackageWithPackage:aPackage]).
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1391
    newRootItem addAll:categories.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1392
    newRootItem add:(self newItemPackageWithPackage:aPackageManager defaultPackage) .
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1393
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1394
    newRootItem expand.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1395
    newRootItem sort.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1396
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1397
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1398
selected
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1399
    ^ self selectionHolder value
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1400
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1401
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1402
selectedPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1403
    ^ self packageManager packageNamed:self selection
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1404
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1405
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1406
selectionChangedBlock
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1407
    "return the value of the instance variable 'selectionChangedBlock' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1408
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1409
    ^ selectionChangedBlock
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1410
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1411
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1412
selectionChangedBlock:something
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1413
    "set the value of the instance variable 'selectionChangedBlock' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1414
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1415
    selectionChangedBlock := something.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1416
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1417
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1418
!PackageSelector::HierarchicalPackageSelector methodsFor:'actions'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1419
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1420
inspectPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1421
    | packagesSelected selectedSinglePackage|
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1422
    packagesSelected := self  packagesSelected.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1423
    (packagesSelected size > 1) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1424
	self warn:'Only one package can be selected!!'.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1425
	^ self
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1426
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1427
    (packagesSelected size = 0) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1428
	self warn:'You need to select a package'.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1429
	^ self
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1430
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1431
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1432
    selectedSinglePackage := packagesSelected first.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1433
    selectedSinglePackage inspect.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1434
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1435
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1436
savePackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1437
    "assumes that there is only one package is selected"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1438
    | filename repeat |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1439
    repeat := true.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1440
    [repeat] whileTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1441
	filename := FileDialog
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1442
			requestFileName:'enter a fileName:'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1443
			default:''
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1444
			version:nil
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1445
			ifFail:[nil]
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1446
			pattern:'*.*'
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1447
			fromDirectory:nil
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1448
			whenBoxCreatedEvaluate:nil.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1449
	(Switch new)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1450
	    if:[filename isNil] then:[^ self "do nothing!!"];
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1451
	    if:[filename asFilename isDirectory] then:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1452
		repeat := (self confirm:'Directory selected!! Do you want to try this again?')
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1453
	    ];
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1454
	    if:[filename asFilename exists] then:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1455
		repeat := (self confirm:'This file already exists!! Do you want to override this file?') not
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1456
	    ];
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1457
	    otherwise:[repeat := false];
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1458
	    value
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1459
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1460
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1461
    self halt.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1462
    self packageManager savePackage:(self packagesSelected first) as:filename asFilename
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1463
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1464
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1465
showProperties
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1466
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1467
    "size should only be one as this action should be disabled if there is more than
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1468
    one package selected."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1469
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1470
    self showPropertiesOfPackage:self packagesSelected first
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1471
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1472
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1473
showPropertiesOfPackage:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1474
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1475
    ((PackageProperties new) masterApplication:self)openAsSlave
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1476
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1477
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1478
uninstallPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1479
    "assumes that there is only one package is selected"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1480
    | aPackage |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1481
    aPackage := self packagesSelected first.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1482
    (self packageManager isBasePackage:aPackage) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1483
	self warn:'Package is registered as a ''Base Package'' and cannot be uninstalled'.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1484
	^ self
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1485
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1486
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1487
    (self confirm:'Are you sure you want to uninstall the package named: ', aPackage name, '?\\' withCRs
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1488
		    , 'This will remove all classes currently under this package''s control!!') ifFalse:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1489
	^ self
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1490
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1491
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1492
    self packageManager uninstallPackage:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1493
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1494
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1495
unloadPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1496
    "assumes that there is only one package is selected"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1497
    | aPackage |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1498
    aPackage := self packagesSelected first.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1499
    (self packageManager isBasePackage:aPackage) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1500
	self warn:'Package is registered as a ''Base Package'' and cannot be unload'.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1501
	^ self
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1502
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1503
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1504
    (self confirm:'Are you sure you want to unload the package named: ', aPackage name) ifFalse:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1505
	^ self
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1506
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1507
    self packageManager unloadPackage:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1508
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1509
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1510
!PackageSelector::HierarchicalPackageSelector methodsFor:'aspects'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1511
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1512
packagesSelectedIndexHolder
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1513
    "automatically generated by UIPainter ..."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1514
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1515
    "*** the code below creates a default model when invoked."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1516
    "*** (which may not be the one you wanted)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1517
    "*** Please change as required and accept it in the browser."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1518
    "*** (and replace this comment by something more useful ;-)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1519
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1520
    packagesSelectedIndexHolder isNil ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1521
	packagesSelectedIndexHolder := ValueHolder new.
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1522
"/ if your app needs to be notified of changes, uncomment one of the lines below:
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1523
"/       packagesSelectedIndexHolder addDependent:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1524
"/       packagesSelectedIndexHolder onChangeSend:#packagesSelectedIndexHolderChanged to:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1525
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1526
    ^ packagesSelectedIndexHolder.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1527
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1528
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1529
tree
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1530
    "automatically generated by UIPainter ..."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1531
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1532
    "*** the code below creates a default model when invoked."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1533
    "*** (which may not be the one you wanted)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1534
    "*** Please change as required and accept it in the browser."
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1535
    "*** (and replace this comment by something more useful ;-)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1536
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1537
    tree isNil ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1538
	tree := HierarchicalList new.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1539
	tree application:self.
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1540
"/ if your app needs to be notified of changes, uncomment one of the lines below:
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1541
"/       tree addDependent:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1542
"/       tree onChangeSend:#treeChanged to:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1543
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1544
    ^ tree.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1545
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1546
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1547
!PackageSelector::HierarchicalPackageSelector methodsFor:'change & update'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1548
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1549
newSelectedIndexes:collectionOfIndexes
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1550
    | newSelectionItems|
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1551
    newSelectionItems := collectionOfIndexes collect:[:idx |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1552
	self tree at:idx
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1553
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1554
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1555
    self newSelectedItems:newSelectionItems
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1556
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1557
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1558
newSelectedItems:aCollectionOfPackageItems
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1559
    | packageNames packagesSelected |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1560
    packageNames := aCollectionOfPackageItems collect:[:anItem |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1561
	(anItem isRootItem) ifFalse:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1562
	    anItem isPackageItem ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1563
		anItem package name.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1564
	    ] ifFalse:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1565
		nil.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1566
	    ].
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1567
	] ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1568
	    nil. "no package is selected."
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1569
	].
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1570
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1571
    packagesSelected := (self packagesNamed: packageNames).
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1572
    (packagesSelected includes:nil) ifTrue:[| minimumIndex |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1573
	"error handling in a case that should not really happen"
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1574
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1575
	self warn:'Error - Packages selected include a name which the package manager does not know!!'.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1576
	minimumIndex := self packagesSelectedIndexHolder value first.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1577
	self packagesSelectedIndexHolder value do:[:anIndex | | item |
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1578
	    minimumIndex := minimumIndex min:anIndex.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1579
	    item := (tree at:anIndex).
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1580
	    (self packageManager includesPackage:item package) ifFalse:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1581
		item remove.
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1582
	    ].
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1583
	].
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1584
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1585
	self packagesSelectedIndexHolder value:(Array with:((minimumIndex - 1) max:1)).
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1586
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1587
    self packagesSelectedHolder value:packagesSelected
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1588
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1589
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1590
update:something with:aParameter from:changedObject
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1591
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1592
    self breakPoint:''.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1593
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1594
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1595
!PackageSelector::HierarchicalPackageSelector methodsFor:'factory'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1596
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1597
newItemPackageWithCategory:name packageManager:manager
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1598
    ^ CategoryItem name:name packageManager:manager
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1599
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1600
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1601
newItemPackageWithPackage:aPackage
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1602
    ^ PackageItem package:aPackage
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1603
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1604
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1605
!PackageSelector::HierarchicalPackageSelector::CategoryItem class methodsFor:'accessing'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1606
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1607
iconFor:aCategoryItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1608
    "roundabout ;-) "
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1609
    ^ aCategoryItem model iconFor:aCategoryItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1610
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1611
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1612
!PackageSelector::HierarchicalPackageSelector::CategoryItem class methodsFor:'instance creation'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1613
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1614
name:aName packageManager:aPackageManager
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1615
    ^(self new)
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1616
	    name:aName;
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1617
	    packageManager:aPackageManager
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1618
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1619
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1620
!PackageSelector::HierarchicalPackageSelector::CategoryItem methodsFor:'accessing'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1621
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1622
children
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1623
    children ifNil:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1624
	children :=  self createPackageItemsFrom:(packageManager packagesAtCategoryName:self name).
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1625
	self sort:[:x :y |
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1626
	    x label < y label
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1627
	].
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1628
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1629
    ^ children
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1630
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1631
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1632
icon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1633
    ^ self class iconFor:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1634
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1635
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1636
label
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1637
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1638
    ^ name
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1639
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1640
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1641
name
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1642
    "return the value of the instance variable 'name' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1643
    ^ name
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1644
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1645
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1646
name:something
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1647
    "set the value of the instance variable 'name' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1648
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1649
    name := something.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1650
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1651
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1652
packageManager
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1653
    "return the value of the instance variable 'packageManager' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1654
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1655
    ^ packageManager
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1656
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1657
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1658
packageManager:something
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1659
    "set the value of the instance variable 'packageManager' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1660
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1661
    packageManager := something.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1662
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1663
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1664
!PackageSelector::HierarchicalPackageSelector::CategoryItem methodsFor:'factory'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1665
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1666
createPackageItemsFrom:aCollectionOfPackages
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1667
    ^ aCollectionOfPackages collect:[:aPackage |
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1668
	self newItemPackageWithPackage:aPackage
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1669
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1670
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1671
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1672
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1673
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1674
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1675
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1676
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1677
newItemPackageWithPackage:aPackage
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1678
    ^ ((Packages::PackageSelector::HierarchicalPackageSelector::PackageItem) parent:self)  package:aPackage
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1679
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1680
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1681
!PackageSelector::HierarchicalPackageSelector::CategoryItem methodsFor:'printing'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1682
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1683
printOn:aStream
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1684
    aStream nextPutAll:'CategoryItem named: ''',
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1685
	self name, ''''.
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1686
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1687
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1688
!PackageSelector::HierarchicalPackageSelector::CategoryItem methodsFor:'queries'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1689
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1690
isCategoryItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1691
    ^ true
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1692
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1693
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1694
isPackageItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1695
    ^ false.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1696
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1697
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1698
!PackageSelector::HierarchicalPackageSelector::PackageItem class methodsFor:'accessing'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1699
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1700
iconFor:aPackageItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1701
    | package |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1702
    package := aPackageItem package.
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1703
    (package name == (Project noProjectID)) ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1704
	^ self iconsClass defaultPackageIcon
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1705
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1706
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1707
    (aPackageItem packageManager isBasePackage:package) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1708
	^ self iconsClass basePackageIcon
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1709
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1710
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1711
    (package isInstalled not) ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1712
	^ self iconsClass loadedPackageIcon
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1713
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1714
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1715
    ^ self iconsClass packageIcon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1716
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1717
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1718
!PackageSelector::HierarchicalPackageSelector::PackageItem class methodsFor:'constants'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1719
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1720
iconsClass
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1721
    ^ Packages::PackageSelector::HierarchicalPackageSelector
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1722
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1723
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1724
!PackageSelector::HierarchicalPackageSelector::PackageItem class methodsFor:'instance creation'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1725
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1726
package:something
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1727
    ^ self basicNew package:something
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1728
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1729
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1730
!PackageSelector::HierarchicalPackageSelector::PackageItem methodsFor:'* As yet uncategorized *'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1731
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1732
isSelected
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1733
    | packagesSelected |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1734
    packagesSelected := (self application packagesSelected).
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1735
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1736
    packagesSelected ifNotNil:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1737
	^ packagesSelected includes:package
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1738
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1739
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1740
    ^ false.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1741
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1742
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1743
packageManager
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1744
    ^ PackageManager smalltalkPackageManager
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1745
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1746
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1747
!PackageSelector::HierarchicalPackageSelector::PackageItem methodsFor:'accessing'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1748
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1749
icon
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1750
    ^ self class iconFor:self.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1751
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1752
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1753
label
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1754
    | emphasis |
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1755
    emphasis := OrderedCollection new.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1756
    package isDirty ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1757
	emphasis add:#italic.
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1758
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1759
    package isOverridden ifTrue:[
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1760
	self isSelected ifFalse:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1761
	    emphasis add:(#color->Color red darker )
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1762
	]
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1763
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1764
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1765
    ^ Text string:package name emphasis:emphasis asArray.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1766
"/    ^ package name
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1767
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1768
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1769
package
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1770
    "return the value of the instance variable 'package' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1771
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1772
    ^ package
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1773
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1774
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1775
package:something
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1776
    "set the value of the instance variable 'package' (automatically generated)"
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1777
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1778
    package := something.
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1779
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1780
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1781
!PackageSelector::HierarchicalPackageSelector::PackageItem methodsFor:'queries'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1782
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1783
isCategoryItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1784
    ^ false
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1785
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1786
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1787
isPackageItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1788
    ^ true
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1789
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1790
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1791
!PackageSelector::HierarchicalPackageSelector::RootItem methodsFor:'queries'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1792
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1793
isCategoryItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1794
    ^ false
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1795
!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1796
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1797
isPackageItem
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1798
    ^ false
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1799
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1800
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1801
!PackageSelector::HierarchicalPackageSelector::RootItem methodsFor:'sorting'!
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1802
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1803
sort
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1804
    self sort:[:x :y|
1672
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1805
	(x isCategoryItem and:[y isCategoryItem]) ifTrue:[
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1806
	    x name < y name
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1807
	] ifFalse:[ y isCategoryItem
109412dd5830 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1443
diff changeset
  1808
	].
1268
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1809
    ].
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1810
! !
9dc8d1b8ce9b Lots and lots of changes...
james
parents: 1227
diff changeset
  1811
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
  1812
!PackageSelector class methodsFor:'documentation'!
ab88e78f027c initial checkin
james
parents:
diff changeset
  1813
ab88e78f027c initial checkin
james
parents:
diff changeset
  1814
version
3011
1997ff6e7e55 trunk branched into /branches/jv
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 1672
diff changeset
  1815
    ^ '$Header: /var/local/cvs/stx/libbasic3/packages/PackageSelector.st,v 1.5 2006-08-24 08:38:35 cg Exp $'
1227
ab88e78f027c initial checkin
james
parents:
diff changeset
  1816
! !