hg/stx-libtool2: comparison MenuEditor.st

equal deleted inserted replaced

-:f589f0efbaaf
+:06bae3d05b78
 'Toggle display of both image and textual label.'
 #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.'
 #imageRetriever
 'Class implementing the image resource method. If unspecified, the application class is taken.'
 #triggerOnDown
 'If on, the items action is performed on mouse-button press (default is: on button-release).'
 )
-"Modified: / 16-10-2006 / 13:20:38 / cg"
+"Modified: / 20-09-2010 / 13:24:49 / cg"
 !
 localFlyHelpSpecStrings
 "This resource specification was automatically generated
 by the UIHelpTool of ST/X."
 MenuEditor::ResourceEditor open
 "
 <resource: #canvas>
 ^
 #(FullSpec
-	name: windowSpec
+name: windowSpec
-	window:
+window:
 (WindowSpec
-	  label: 'Image Item'
+label: 'Image Item'
-	  name: 'Image Item'
+name: 'Image Item'
-	  min: (Point 10 10)
+min: (Point 10 10)
-	  bounds: (Rectangle 0 0 288 295)
+bounds: (Rectangle 0 0 303 304)
-	)
+)
-	component:
+component:
 (SpecCollection
-	  collection: (
+collection: (
-	   (LabelSpec
+(LabelSpec
-	      label: 'Retriever:'
+label: 'Retriever:'
-	      name: 'retrieverLabel'
+name: 'retrieverLabel'
-	      layout: (AlignmentOrigin 107 0 26 0 1 0.5)
+layout: (AlignmentOrigin 107 0 26 0 1 0.5)
-	      activeHelpKey: imageRetriever
+activeHelpKey: imageRetriever
-	      translateLabel: true
+translateLabel: true
-	      resizeForLabel: true
+resizeForLabel: true
-	      adjust: right
+adjust: right
-	    )
+)
-	   (ComboBoxSpec
+(ComboBoxSpec
-	      name: 'retrieverHolder'
+name: 'retrieverHolder'
-	      layout: (LayoutFrame 110 0 15 0 -20 1.0 37 0)
+layout: (LayoutFrame 110 0 15 0 -20 1.0 37 0)
-	      activeHelpKey: imageRetriever
+activeHelpKey: imageRetriever
-	      tabable: true
+tabable: true
-	      model: retrieverHolder
+model: retrieverHolder
-	      type: symbolOrNil
+type: symbolOrNil
-	      immediateAccept: true
+immediateAccept: true
-	      acceptOnReturn: false
+acceptOnReturn: false
-	      acceptOnTab: false
+acceptOnTab: false
-	      acceptOnPointerLeave: false
+acceptOnPointerLeave: false
-	      entryCompletionBlock: entryCompletionForRetriever
+entryCompletionBlock: entryCompletionForRetriever
-	      comboList: retrieverList
+comboList: retrieverList
-	      isFilenameBox: false
+isFilenameBox: false
-	    )
+)
-	   (LabelSpec
+(LabelSpec
-	      label: 'Selector:'
+label: 'Selector:'
-	      name: 'iconLabel'
+name: 'iconLabel'
-	      layout: (AlignmentOrigin 107 0 51 0 1 0.5)
+layout: (AlignmentOrigin 107 0 51 0 1 0.5)
-	      activeHelpKey: imageSelector
+activeHelpKey: imageSelector
-	      translateLabel: true
+translateLabel: true
-	      resizeForLabel: true
+resizeForLabel: true
-	      adjust: right
+adjust: right
-	    )
+)
-	   (InputFieldSpec
+(InputFieldSpec
-	      name: 'selectorHolder'
+name: 'selectorHolder'
-	      layout: (LayoutFrame 110 0 40 0 -42 1.0 62 0)
+layout: (LayoutFrame 110 0 40 0 -42 1.0 62 0)
-	      activeHelpKey: imageSelector
+activeHelpKey: imageSelector
-	      tabable: true
+tabable: true
-	      model: selectorHolder
+model: selectorHolder
-	      group: inputGroup
+group: inputGroup
-	      type: symbolOrNil
+type: symbolOrNil
-	      immediateAccept: true
+immediateAccept: true
-	      acceptOnReturn: false
+acceptOnReturn: false
-	      acceptOnTab: false
+acceptOnTab: false
-	      modifiedChannel: modifiedChannel
+modifiedChannel: modifiedChannel
-	      acceptOnPointerLeave: false
+acceptOnPointerLeave: false
-	    )
+)
-	   (ActionButtonSpec
+(ActionButtonSpec
-	      label: '...'
+label: '...'
-	      name: 'browseButton'
+name: 'browseButton'
-	      layout: (LayoutFrame -40 1 40 0 -20 1 62 0)
+layout: (LayoutFrame -40 1 40 0 -20 1 62 0)
-	      activeHelpKey: browseResource
+activeHelpKey: browseResource
-	      tabable: true
+tabable: true
-	      model: doBrowseForImageResource
+model: doBrowseForImageResource
-	    )
+)
-	   (HierarchicalListViewSpec
+(HierarchicalListViewSpec
-	      name: 'imageList'
+name: 'imageList'
-	      layout: (LayoutFrame 20 0.0 67 0 -20 1.0 -30 1.0)
+layout: (LayoutFrame 20 0.0 67 0 -20 1.0 -60 1.0)
-	      activeHelpKey: imageImageList
+activeHelpKey: imageImageList
-	      model: imageHolder
+model: imageHolder
-	      menu: menuEditImage
+menu: menuEditImage
-	      hasHorizontalScrollBar: true
+hasHorizontalScrollBar: true
-	      hasVerticalScrollBar: true
+hasVerticalScrollBar: true
-	      miniScrollerHorizontal: true
+miniScrollerHorizontal: true
-	      listModel: imageList
+listModel: imageList
-	      useIndex: false
+useIndex: false
-	      highlightMode: label
+highlightMode: label
-	      postBuildCallback: postBuildImageViewer:
+postBuildCallback: postBuildImageViewer:
-	    )
+)
-	   (ViewSpec
+(ViewSpec
-	      name: 'Box1'
+name: 'Box1'
-	      layout: (LayoutFrame 20 0.0 -30 1.0 -20 1.0 0 1.0)
+layout: (LayoutFrame 20 0.0 -60 1.0 -20 1.0 0 1.0)
-	      level: 0
+level: 0
-	      component:
+component:
-	     (SpecCollection
+(SpecCollection
-		collection: (
+collection: (
-		 (CheckBoxSpec
+(CheckBoxSpec
-		    label: 'Image & Label'
+label: 'Image & Label'
-		    name: 'iconAndLabelCheckBox'
+name: 'iconAndLabelCheckBox'
-		    layout: (AlignmentOrigin 0 0 0 0.5 0 0.5)
+layout: (AlignmentOrigin 0 0 17 0 0 0.5)
-		    activeHelpKey: imageImageAndLabel
+activeHelpKey: imageImageAndLabel
-		    tabable: true
+tabable: true
-		    model: iconAndLabelHolder
+model: iconAndLabelHolder
-		    translateLabel: true
+translateLabel: true
-		  )
+)
-		 (ActionButtonSpec
+(ActionButtonSpec
-		    label: 'Image Editor'
+label: 'Image Editor'
-		    name: 'imageEditorButton'
+name: 'imageEditorButton'
-		    layout: (AlignmentOrigin 0 1.0 0 0.5 1 0.5)
+layout: (AlignmentOrigin -69 1.0 17 0 0 0.5)
-		    activeHelpKey: imageImageEditor
+activeHelpKey: imageImageEditor
-		    hasCharacterOrientedLabel: false
+hasCharacterOrientedLabel: false
-		    tabable: true
+foregroundColor: (Color 0.0 0.0 66.9993133440146)
-		    model: doEditImage
+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
+)
+)
+)
+)
+)
+)
 )
 ! !
 !MenuEditor::ResourceEditor methodsFor:'accessing'!
 classAndSelector isNil ifTrue:[ ^ self ].
 retrieverHolder value:(classAndSelector methodClass) name.
 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|

changeset 2797	06bae3d05b78
parent 2729	b21105a0a38c
child 2798	dac473a7fcdf