COPYRIGHT (c) 1997-1998 by eXept Software AG

		allClasses classSelectionBlock readResourcesProcess

		mayReadResources'

Object subclass:#ResourceMethod

 COPYRIGHT (c) 1997-1998 by eXept Software AG

    and to select resource methods for loading or to saving resource 

    specifications (#canvas, #menu, etc.).

    [instance variables:]

	resourceMethod          <Symbol>        selector of the resource spec

	resourceClass           <Symbol>        class of the resource spec

	resourceSuperclass      <Symbol>        root class of the tree list

	resourceTypes           <Array>         allowed resource types

	allClasses              <Array>         list of the subclasses of resourceSuperclass

	classSelectionBlock     <Block>         by evaluating this block the class selection is done

	readResourcesProcess    <Process>       process of reading the resource methods

	mayReadResources        <Boolean>       flag whether may read the resource methods

	ResourceSelectionBrowser open

	Thomas Zwick, eXept Software AG

    "opens a ResourceSelectionBrowser 

	with aTitle

	on aSuperclassOrSymbol, 

	and aClassOrSymbol, 

	and aSelector,

	with allowed aResourceTypes"

	request: 'Select a Resource Selector'

	onSuperclass: #ApplicationModel 

	andClass: #ToolApplicationModel 

	andSelector: #saveIcon 

	withResourceTypes: #(image) 

	title: aTitle;

	openOnSuperclass: aSuperclass

	andClass: aClass

	andSelector: aSelector

	withResourceTypes: resourceTypes

    "returns the children for the contents (class) of aTreeItem as a block"

	|classes|

	classes := OrderedCollection new.    

	classes addAll: ((aTreeItem contents subclasses reject: [:cls| cls isPrivate]) asSortedCollection: [:i1 :i2| i1 name < i2 name]).

	classes addAll: (aTreeItem contents privateClasses asSortedCollection: [:i1 :i2| i1 name < i2 name]).

	classes

    "returns the default contents of the root of the class tree list"

    "returns the icon for aTreeItem as a block"

	|icon|

	icon := self iconClass.

	aTreeItem contents isPrivate 

	ifTrue:

	[

	   icon := self iconPrivateClass

	].

	icon

    ]

    "returns the label for aTreeItem as a block"

	|label superCls|

	label := aTreeItem contents name.

	(aTreeItem contents isPrivate and: [aTreeItem parent contents ~~ (superCls := aTreeItem contents superclass)])

	    ifTrue: [label := label, ' (', superCls name, ')'].

	label

	constantNamed:#'ResourceSelectionBrowser iconClass'

	ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@UUUUU!!Q****(@F**** @Z****@A****(@F**** @Z****@A****(LF**** TZ****@A****(@F**** @Z****@B@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]!

	constantNamed:#'ResourceSelectionBrowser iconPrivateClass'

	ifAbsentPut:[(Depth2Image new) width: 18; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@PUUUUU A****(@F*??* @Z+??*@A*/*>(OF*>+: @Z+??*@A*/?:(DF*>** @Z+:**@A*/**(@F*>** @Z****C2@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 0 0]; mask:((Depth1Image new) width: 18; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@???@???@???@???@???@???@???@???@???@???@???@???@???@???@_?>@') ; yourself); yourself]! !

	  #window: 

	   #(#WindowSpec

	      #name: 'Resource Selection Browser'

	      #layout: #(#LayoutFrame 221 0 252 0 820 0 601 0)

	      #label: 'Resource Selection Browser'

	      #min: #(#Point 400 300)

	      #max: #(#Point 1152 864)

	      #bounds: #(#Rectangle 221 252 821 602)

	      #usePreferredExtent: false

	  )

	  #component: 

	   #(#SpecCollection

	      #collection: 

	       #(

		 #(#VariableHorizontalPanelSpec

		    #name: 'VariableHorizontalPanel'

		    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -40 1.0)

		    #component: 

		     #(#SpecCollection

			#collection: 

			 #(

			   #(#ViewSpec

			      #name: 'Box1'

			      #component: 

			       #(#SpecCollection

				  #collection: 

				   #(

				     #(#SelectionInTreeViewSpec

					#name: 'listOfClassesView'

					#layout: #(#LayoutFrame 0 0.0 23 0.0 0 1.0 -22 1.0)

					#tabable: true

					#model: #selectionOfClass

					#hasHorizontalScrollBar: true

					#hasVerticalScrollBar: true

					#miniScrollerHorizontal: true

					#showDirectoryIndicatorForRoot: false

					#showDirectoryIndicator: true

					#valueChangeSelector: #classSelected

					#hierarchicalList: #rootOfClasses

					#validateDoubleClickSelector: #validateDoubleClick:

					#contentsSelector: #treeViewContents

					#labelSelector: #treeViewLabel

					#childrenSelector: #treeViewChildren

					#iconSelector: #treeViewIcon

				    )

				     #(#InputFieldSpec

					#name: 'classNameInputField'

					#layout: #(#LayoutFrame 2 0.0 -22 1 -1 1.0 0 1)

					#tabable: true

					#model: #valueOfClassName

				    )

				     #(#LabelSpec

					#name: 'ClassHierarchyLabel'

					#layout: #(#LayoutFrame 0 0 2 0 297 0 23 0)

					#label: ' Class Hierarchy'

					#level: 1

					#adjust: #left

				    )

				  )

			      )

			  )

			   #(#ViewSpec

			      #name: 'Box2'

			      #component: 

			       #(#SpecCollection

				  #collection: 

				   #(

				     #(#DataSetSpec

					#name: 'resourcesDataSetView'

					#layout: #(#LayoutFrame 2 0.0 2 0.0 -2 1.0 -22 1.0)

					#model: #selectionOfResourceMethod

					#hasHorizontalScrollBar: true

					#hasVerticalScrollBar: true

					#miniScrollerHorizontal: true

					#rowClassName: 'ResourceSelectionBrowser::Row'

					#dataList: #listOfResourceMethods

					#useIndex: false

					#has3Dsepartors: true

					#doubleClickSelector: #resourceDoubleClicked

					#columnHolder: #resourceMethodColumns

					#valueChangeSelector: #resourceSelected

					#verticalSpacing: 1

				    )

				     #(#InputFieldSpec

					#name: 'selectorInputField'

					#layout: #(#LayoutFrame 2 0.0 -22 1 -2 1.0 0 1)

					#tabable: true

					#model: #valueOfResourceSelector

				    )

				  )

			      )

			  )

			)

		    )

		    #handles: #(#Any 0.5 1.0)

		)

		 #(#UISubSpecification

		    #name: 'windowSpecForCommitWithoutChannels'

		    #layout: #(#LayoutFrame 301 0.0 -32 1 -2 1.0 -8 1.0)

		    #majorKey: #ToolApplicationModel

		    #minorKey: #windowSpecForCommitWithoutChannels

		)

		 #(#HorizontalPanelViewSpec

		    #name: 'HorizontalPanelView'

		    #layout: #(#LayoutFrame 3 0 76 0.691429 300 0 0 0.977143)

		    #component: 

		     #(#SpecCollection

			#collection: 

			 #(

			   #(#LabelSpec

			      #name: 'Label2'

			      #label: 'Create: '

			      #adjust: #right

			      #extent: #(#Point 72 24)

			  )

			   #(#ActionButtonSpec

			      #name: 'CreateClassButton'

			      #activeHelpKey: #dss

			      #label: 'Class'

			      #model: #createClass:

			      #actionValue: 'class'

			      #extent: #(#Point 72 24)

			  )

			   #(#ActionButtonSpec

			      #name: 'CreateSubclassButton'

			      #activeHelpKey: #dss

			      #label: 'Subclass'

			      #model: #createClass:

			      #actionValue: 'subclass'

			      #extent: #(#Point 72 24)

			  )

			   #(#ActionButtonSpec

			      #name: 'CreatePrivateClassButton'

			      #activeHelpKey: #dss

			      #label: 'Private'

			      #model: #createClass:

			      #actionValue: 'private'

			      #extent: #(#Point 72 24)

			  )

			)

		    )

		    #horizontalLayout: #fit

		    #verticalLayout: #fit

		)

	      )

	  )

resourceMethodColumns

    "returns the columns for the table of the resource methods"

listOfResourceMethods

    "returns the value holder for the list of the resource methods"

    (holder := builder bindingAt:#listOfResourceMethods) isNil ifTrue:[

	builder aspectAt:#listOfResourceMethods put:(holder :=  List new).

resourceMethodColumns

    "returns the columns for the table of the resource methods as value holder"

    (holder := builder bindingAt:#resourceMethodColumns) isNil ifTrue:[

	builder aspectAt:#resourceMethodColumns put:(holder := List new).

	holder addAll: (self class resourceMethodColumns collect: [:i| i decodeAsLiteralArray]).

    ].

    ^ holder

!

rootOfClasses

    "returns the value holder for the root of the class tree list"

    |holder|

    (holder := builder bindingAt:#rootOfClasses) isNil ifTrue:[

	builder aspectAt:#rootOfClasses put: (holder := SelectionInTree new root: TreeItem new)

selectionOfClass

    "returns the value holder for the selected class of the class tree list"

    (holder := builder bindingAt:#selectionOfClass) isNil ifTrue:[

	builder aspectAt:#selectionOfClass put:(holder :=  ValueHolder new).

selectionOfResourceMethod

    "returns the value holder for the selected resource method of the resource method list"

    (holder := builder bindingAt:#selectionOfResourceMethod) isNil ifTrue:[

	builder aspectAt:#selectionOfResourceMethod put:(holder :=  '' asValue).

    "returns the value holder for the name of the class"

	builder aspectAt:#valueOfClassName put:(holder :=  '' asValue).

valueOfResourceSelector

    "returns the value holder for the name of the selector"

    (holder := builder bindingAt:#valueOfResourceSelector) isNil ifTrue:[

	builder aspectAt:#valueOfResourceSelector put:(holder :=  '' asValue).

!ResourceSelectionBrowser methodsFor:'callbacks - class list'!

    "returns the contents of the root of the class tree list"

!

validateDoubleClick: aTreeItem

    "returns whether a class may be selected"

    ^aTreeItem contents ~~ self treeViewContents

classSelected

    "after a class selection, read the allowed resource methods of the selected class"

    (mayReadResources not or: [self selectionOfClass value isNil]) ifTrue: [^nil].

        clsName := self selectionOfClass value name.

        self listOfResourceMethods contents:

             collect: [:m| (ResourceMethod new method: m)]).