diff -r d0724edba450 -r 1896945cf5d4 ResourceSelectionBrowser.st
--- 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'!