ResourceSelectionBrowser.st
changeset 746 8b3532f50ea9
parent 733 6454aaabda51
child 769 bb413a70f479
equal deleted inserted replaced
745:d3995881fa13 746:8b3532f50ea9
    43 
    43 
    44 !
    44 !
    45 
    45 
    46 documentation
    46 documentation
    47 "
    47 "
       
    48     The ResourceSelectionBrowser allows you to browse in class hierarchies
       
    49     and to select resource methods in order to load method contents or to save
       
    50     something to methods.
       
    51 
    48     [start with:]
    52     [start with:]
    49         ResourceSelectionBrowser open
    53         ResourceSelectionBrowser open
    50 
    54 
    51     [author:]
    55     [author:]
    52         Thomas Zwick
    56         Thomas Zwick, eXept Software AG
    53 "
    57 "
    54 ! !
    58 ! !
    55 
    59 
    56 !ResourceSelectionBrowser class methodsFor:'instance creation'!
    60 !ResourceSelectionBrowser class methodsFor:'instance creation'!
    57 
    61 
   124 ! !
   128 ! !
   125 
   129 
   126 !ResourceSelectionBrowser class methodsFor:'image specs'!
   130 !ResourceSelectionBrowser class methodsFor:'image specs'!
   127 
   131 
   128 iconClass
   132 iconClass
   129     "Generated by the Image Editor"
   133     "This resource specification was automatically generated
   130     "
   134      by the ImageEditor of ST/X."
   131     ImageEditor openOnClass:self andSelector:#iconClass
   135 
       
   136     "Do not manually edit this!! If it is corrupted,
       
   137      the ImageEditor may not be able to read the specification."
       
   138 
       
   139     "
       
   140      ImageEditor openOnClass:self andSelector:#iconClass
   132     "
   141     "
   133 
   142 
   134     <resource: #image>
   143     <resource: #image>
   135 
   144 
   136     ^Icon
   145     ^Icon
   137         constantNamed:#'ResourceSelectionBrowser iconClass'
   146         constantNamed:#'ResourceSelectionBrowser iconClass'
   138         ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUUAQ****(@F**** @Z****@A****(@F**** @Z****@A****(LF**** TZ****@A****(@F**** @Z****@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]!
   147         ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUUAQ****(@F**** @Z****@A****(@F**** @Z****@A****(LF**** TZ****@A****(@F**** @Z****@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]!
   139 
   148 
   140 iconPrivateClass
   149 iconPrivateClass
   141     "Generated by the Image Editor"
   150     "This resource specification was automatically generated
   142     "
   151      by the ImageEditor of ST/X."
   143     ImageEditor openOnClass:self andSelector:#iconPrivateClass
   152 
       
   153     "Do not manually edit this!! If it is corrupted,
       
   154      the ImageEditor may not be able to read the specification."
       
   155 
       
   156     "
       
   157      ImageEditor openOnClass:self andSelector:#iconPrivateClass
   144     "
   158     "
   145 
   159 
   146     <resource: #image>
   160     <resource: #image>
   147 
   161 
   148     ^Icon
   162     ^Icon
   150         ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU@A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C0@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! !
   164         ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU@A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C0@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! !
   151 
   165 
   152 !ResourceSelectionBrowser class methodsFor:'interface specs'!
   166 !ResourceSelectionBrowser class methodsFor:'interface specs'!
   153 
   167 
   154 windowSpec
   168 windowSpec
   155     "this window spec was automatically generated by the ST/X UIPainter"
   169     "This resource specification was automatically generated
   156 
   170      by the UIPainter of ST/X."
   157     "do not manually edit this - the painter/builder may not be able to
   171 
   158      handle the specification if its corrupted."
   172     "Do not manually edit this!! If it is corrupted,
       
   173      the UIPainter may not be able to read the specification."
   159 
   174 
   160     "
   175     "
   161      UIPainter new openOnClass:ResourceSelectionBrowser andSelector:#windowSpec
   176      UIPainter new openOnClass:ResourceSelectionBrowser andSelector:#windowSpec
   162      ResourceSelectionBrowser new openInterface:#windowSpec
   177      ResourceSelectionBrowser new openInterface:#windowSpec
   163     "
   178      ResourceSelectionBrowser open
   164     "ResourceSelectionBrowser open"
   179     "
   165 
   180 
   166     <resource: #canvas>
   181     <resource: #canvas>
   167 
   182 
   168     ^
   183     ^
   169      
   184      
   170        #(#FullSpec
   185        #(#FullSpec
   171           #window: 
   186           #window: 
   172            #(#WindowSpec
   187            #(#WindowSpec
   173               #name: 'Resource Selection Browser'
   188               #name: 'Resource Selection Browser'
   174               #layout: #(#LayoutFrame 197 0 172 0 796 0 521 0)
   189               #layout: #(#LayoutFrame 433 0 242 0 1032 0 591 0)
   175               #label: 'Resource Selection Browser'
   190               #label: 'Resource Selection Browser'
   176               #min: #(#Point 400 300)
   191               #min: #(#Point 400 300)
   177               #max: #(#Point 1152 864)
   192               #max: #(#Point 1152 864)
   178               #bounds: #(#Rectangle 197 172 797 522)
   193               #bounds: #(#Rectangle 433 242 1033 592)
   179               #usePreferredExtent: false
   194               #usePreferredExtent: false
   180           )
   195           )
   181           #component: 
   196           #component: 
   182            #(#SpecCollection
   197            #(#SpecCollection
   183               #collection: 
   198               #collection: 
   275                          #(
   290                          #(
   276                            #(#LabelSpec
   291                            #(#LabelSpec
   277                               #name: 'Label2'
   292                               #name: 'Label2'
   278                               #label: 'Create: '
   293                               #label: 'Create: '
   279                               #adjust: #right
   294                               #adjust: #right
   280                               #extent: #(#Point 67 24)
   295                               #extent: #(#Point 72 24)
   281                           )
   296                           )
   282                            #(#ActionButtonSpec
   297                            #(#ActionButtonSpec
   283                               #name: 'CreateClassButton'
   298                               #name: 'CreateClassButton'
   284                               #activeHelpKey: #dss
   299                               #activeHelpKey: #dss
   285                               #label: 'Class'
   300                               #label: 'Class'