--- 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|