# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1284982431 -7200
# Node ID 06bae3d05b783168fb6f901a1e03232729675332
# Parent  f589f0efbaafb721483d15483eea44f4b21b27fa
changed: #helpSpec

diff -r f589f0efbaaf -r 06bae3d05b78 MenuEditor.st
--- a/MenuEditor.st	Mon Sep 20 11:32:08 2010 +0200
+++ b/MenuEditor.st	Mon Sep 20 13:33:51 2010 +0200
@@ -382,6 +382,9 @@
 #imageImageEditor
 'Open an Image Editor on the resource method defined by retriever and selector.'
 
+#imageBrowseImageClass
+'Open a Browser on the resource retriever class.'
+
 #imageImageList
 'Currently existing image resources.'
 
@@ -408,7 +411,7 @@
 
 )
 
-    "Modified: / 16-10-2006 / 13:20:38 / cg"
+    "Modified: / 20-09-2010 / 13:24:49 / cg"
 !
 
 localFlyHelpSpecStrings
@@ -5069,120 +5072,131 @@
 
     <resource: #canvas>
 
-    ^
+    ^ 
      #(FullSpec
-	name: windowSpec
-	window:
+        name: windowSpec
+        window: 
        (WindowSpec
-	  label: 'Image Item'
-	  name: 'Image Item'
-	  min: (Point 10 10)
-	  bounds: (Rectangle 0 0 288 295)
-	)
-	component:
+          label: 'Image Item'
+          name: 'Image Item'
+          min: (Point 10 10)
+          bounds: (Rectangle 0 0 303 304)
+        )
+        component: 
        (SpecCollection
-	  collection: (
-	   (LabelSpec
-	      label: 'Retriever:'
-	      name: 'retrieverLabel'
-	      layout: (AlignmentOrigin 107 0 26 0 1 0.5)
-	      activeHelpKey: imageRetriever
-	      translateLabel: true
-	      resizeForLabel: true
-	      adjust: right
-	    )
-	   (ComboBoxSpec
-	      name: 'retrieverHolder'
-	      layout: (LayoutFrame 110 0 15 0 -20 1.0 37 0)
-	      activeHelpKey: imageRetriever
-	      tabable: true
-	      model: retrieverHolder
-	      type: symbolOrNil
-	      immediateAccept: true
-	      acceptOnReturn: false
-	      acceptOnTab: false
-	      acceptOnPointerLeave: false
-	      entryCompletionBlock: entryCompletionForRetriever
-	      comboList: retrieverList
-	      isFilenameBox: false
-	    )
-	   (LabelSpec
-	      label: 'Selector:'
-	      name: 'iconLabel'
-	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-	      activeHelpKey: imageSelector
-	      translateLabel: true
-	      resizeForLabel: true
-	      adjust: right
-	    )
-	   (InputFieldSpec
-	      name: 'selectorHolder'
-	      layout: (LayoutFrame 110 0 40 0 -42 1.0 62 0)
-	      activeHelpKey: imageSelector
-	      tabable: true
-	      model: selectorHolder
-	      group: inputGroup
-	      type: symbolOrNil
-	      immediateAccept: true
-	      acceptOnReturn: false
-	      acceptOnTab: false
-	      modifiedChannel: modifiedChannel
-	      acceptOnPointerLeave: false
-	    )
-	   (ActionButtonSpec
-	      label: '...'
-	      name: 'browseButton'
-	      layout: (LayoutFrame -40 1 40 0 -20 1 62 0)
-	      activeHelpKey: browseResource
-	      tabable: true
-	      model: doBrowseForImageResource
-	    )
-	   (HierarchicalListViewSpec
-	      name: 'imageList'
-	      layout: (LayoutFrame 20 0.0 67 0 -20 1.0 -30 1.0)
-	      activeHelpKey: imageImageList
-	      model: imageHolder
-	      menu: menuEditImage
-	      hasHorizontalScrollBar: true
-	      hasVerticalScrollBar: true
-	      miniScrollerHorizontal: true
-	      listModel: imageList
-	      useIndex: false
-	      highlightMode: label
-	      postBuildCallback: postBuildImageViewer:
-	    )
-	   (ViewSpec
-	      name: 'Box1'
-	      layout: (LayoutFrame 20 0.0 -30 1.0 -20 1.0 0 1.0)
-	      level: 0
-	      component:
-	     (SpecCollection
-		collection: (
-		 (CheckBoxSpec
-		    label: 'Image & Label'
-		    name: 'iconAndLabelCheckBox'
-		    layout: (AlignmentOrigin 0 0 0 0.5 0 0.5)
-		    activeHelpKey: imageImageAndLabel
-		    tabable: true
-		    model: iconAndLabelHolder
-		    translateLabel: true
-		  )
-		 (ActionButtonSpec
-		    label: 'Image Editor'
-		    name: 'imageEditorButton'
-		    layout: (AlignmentOrigin 0 1.0 0 0.5 1 0.5)
-		    activeHelpKey: imageImageEditor
-		    hasCharacterOrientedLabel: false
-		    tabable: true
-		    model: doEditImage
-		  )
-		 )
-
-	      )
-	    )
-	   )
-
-	)
+          collection: (
+           (LabelSpec
+              label: 'Retriever:'
+              name: 'retrieverLabel'
+              layout: (AlignmentOrigin 107 0 26 0 1 0.5)
+              activeHelpKey: imageRetriever
+              translateLabel: true
+              resizeForLabel: true
+              adjust: right
+            )
+           (ComboBoxSpec
+              name: 'retrieverHolder'
+              layout: (LayoutFrame 110 0 15 0 -20 1.0 37 0)
+              activeHelpKey: imageRetriever
+              tabable: true
+              model: retrieverHolder
+              type: symbolOrNil
+              immediateAccept: true
+              acceptOnReturn: false
+              acceptOnTab: false
+              acceptOnPointerLeave: false
+              entryCompletionBlock: entryCompletionForRetriever
+              comboList: retrieverList
+              isFilenameBox: false
+            )
+           (LabelSpec
+              label: 'Selector:'
+              name: 'iconLabel'
+              layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+              activeHelpKey: imageSelector
+              translateLabel: true
+              resizeForLabel: true
+              adjust: right
+            )
+           (InputFieldSpec
+              name: 'selectorHolder'
+              layout: (LayoutFrame 110 0 40 0 -42 1.0 62 0)
+              activeHelpKey: imageSelector
+              tabable: true
+              model: selectorHolder
+              group: inputGroup
+              type: symbolOrNil
+              immediateAccept: true
+              acceptOnReturn: false
+              acceptOnTab: false
+              modifiedChannel: modifiedChannel
+              acceptOnPointerLeave: false
+            )
+           (ActionButtonSpec
+              label: '...'
+              name: 'browseButton'
+              layout: (LayoutFrame -40 1 40 0 -20 1 62 0)
+              activeHelpKey: browseResource
+              tabable: true
+              model: doBrowseForImageResource
+            )
+           (HierarchicalListViewSpec
+              name: 'imageList'
+              layout: (LayoutFrame 20 0.0 67 0 -20 1.0 -60 1.0)
+              activeHelpKey: imageImageList
+              model: imageHolder
+              menu: menuEditImage
+              hasHorizontalScrollBar: true
+              hasVerticalScrollBar: true
+              miniScrollerHorizontal: true
+              listModel: imageList
+              useIndex: false
+              highlightMode: label
+              postBuildCallback: postBuildImageViewer:
+            )
+           (ViewSpec
+              name: 'Box1'
+              layout: (LayoutFrame 20 0.0 -60 1.0 -20 1.0 0 1.0)
+              level: 0
+              component: 
+             (SpecCollection
+                collection: (
+                 (CheckBoxSpec
+                    label: 'Image & Label'
+                    name: 'iconAndLabelCheckBox'
+                    layout: (AlignmentOrigin 0 0 17 0 0 0.5)
+                    activeHelpKey: imageImageAndLabel
+                    tabable: true
+                    model: iconAndLabelHolder
+                    translateLabel: true
+                  )
+                 (ActionButtonSpec
+                    label: 'Image Editor'
+                    name: 'imageEditorButton'
+                    layout: (AlignmentOrigin -69 1.0 17 0 0 0.5)
+                    activeHelpKey: imageImageEditor
+                    hasCharacterOrientedLabel: false
+                    foregroundColor: (Color 0.0 0.0 66.9993133440146)
+                    tabable: true
+                    model: doEditImage
+                  )
+                 (ActionButtonSpec
+                    label: 'Browse'
+                    name: 'Button1'
+                    layout: (AlignmentOrigin -69 1.0 45 0 0 0.5)
+                    activeHelpKey: imageBrowseImageClass
+                    hasCharacterOrientedLabel: false
+                    foregroundColor: (Color 0.0 0.0 66.9993133440146)
+                    tabable: true
+                    model: doBrowseImageClass
+                  )
+                 )
+               
+              )
+            )
+           )
+         
+        )
       )
 ! !
 
@@ -5263,6 +5277,25 @@
     selectorHolder  value:(classAndSelector methodSelector).
 !
 
+doBrowseImageClass
+    |cls sel|
+
+    (cls := retrieverHolder value) isNil ifTrue:[
+        Dialog warn:'No resource retriever is defined.'.
+    ] ifFalse:[
+        sel := selectorHolder value.
+
+        cls := Smalltalk classNamed:cls.
+        cls isNil ifTrue:[
+            Dialog warn:'No such resource retriever class.'.
+        ] ifFalse:[
+            UserPreferences current systemBrowserClass openInClass:cls class selector:sel
+        ]
+    ]
+
+    "Created: / 20-09-2010 / 13:27:34 / cg"
+!
+
 doEditImage
     |sel cls item|