--- a/ResourceSelectionBrowser.st Wed Feb 18 21:33:53 1998 +0100
+++ b/ResourceSelectionBrowser.st Wed Feb 18 22:24:45 1998 +0100
@@ -55,10 +55,11 @@
!ResourceSelectionBrowser class methodsFor:'instance creation'!
-request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: aResourceTypes
+request: aTitle onSuperclass: aSuperclass andClass: aClass andSelector: aSelector withResourceTypes: resourceTypes
- "self
- request: 'Select A Resource Selector'
+ "
+ ResourceSelectionBrowser
+ request: 'Select a Resource Selector'
onSuperclass: #ApplicationModel
andClass: #ToolApplicationModel
andSelector: #saveIcon
@@ -70,7 +71,7 @@
openOnSuperclass: aSuperclass
andClass: aClass
andSelector: aSelector
- withResourceTypes: aResourceTypes
+ withResourceTypes: resourceTypes
! !
!ResourceSelectionBrowser class methodsFor:'callbacks - default'!
@@ -239,12 +240,14 @@
#canSelect: false
)
#(#DataSetColumnSpec
- #label: 'Selector'
+ #label: ' Selector'
+ #'labelAlignment:' #left
#model: #selector
#canSelect: false
)
(#DataSetColumnSpec
- #label: 'Resource'
+ #label: ' Resource Type'
+ #'labelAlignment:' #left
#model: #resourceType
#canSelect: false
))
@@ -421,7 +424,8 @@
resourceSelected
resourceMethod := self selectionOfResource value.
- self valueOfSelector value: self selectionOfResource value selector
+ self selectionOfResource value notNil
+ ifTrue: [self valueOfSelector value: self selectionOfResource value selector]
! !
!ResourceSelectionBrowser methodsFor:'instance creation'!