# HG changeset patch # User Claus Gittinger # Date 1200051782 -3600 # Node ID cc2b26c0d7f01d5b2cfc4e93b7cca564c8173176 # Parent ac5b46f34c53567aec8ad5a2a9bb1990770eac8c browse/generate aspect methods diff -r ac5b46f34c53 -r cc2b26c0d7f0 UISelectionPanel.st --- a/UISelectionPanel.st Fri Jan 11 12:42:47 2008 +0100 +++ b/UISelectionPanel.st Fri Jan 11 12:43:02 2008 +0100 @@ -137,220 +137,7 @@ ^ UserDefinedGallery ! ! -!UISelectionPanel class methodsFor:'interface specs'! - -nameAndSelectorSpec - "This resource specification was automatically generated - by the UIPainter of ST/X." - - "Do not manually edit this!! If it is corrupted, - the UIPainter may not be able to read the specification." - - " - UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec - UISelectionPanel new openInterface:#nameAndSelectorSpec - " - - - - ^ - #(FullSpec - name: nameAndSelectorSpec - window: - (WindowSpec - label: 'Painter' - name: 'Painter' - min: (Point 10 10) - bounds: (Rectangle 14 46 329 262) - ) - component: - (SpecCollection - collection: ( - (LabelSpec - label: 'Class & selectors to access user specs:' - name: 'title' - layout: (Point 5 10) - resizeForLabel: true - adjust: left - ) - (LabelSpec - label: 'Class:' - name: 'classLabel' - layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) - resizeForLabel: true - adjust: right - ) - (InputFieldSpec - name: 'classField' - layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) - tabable: true - model: className - type: string - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Labels:' - name: 'labelsLabel' - layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) - resizeForLabel: true - adjust: right - ) - (InputFieldSpec - name: 'labelsField' - layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) - tabable: true - model: labelsKey - type: symbolOrNil - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'Specifications:' - name: 'specsLabel' - layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) - resizeForLabel: true - adjust: right - ) - (InputFieldSpec - name: 'specsField' - layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) - tabable: true - model: specsKey - type: symbolOrNil - acceptOnPointerLeave: false - ) - (HorizontalPanelViewSpec - name: 'commitPanel' - layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) - horizontalLayout: fitSpace - verticalLayout: fit - horizontalSpace: 3 - verticalSpace: 3 - reverseOrderIfOKAtLeft: true - component: - (SpecCollection - collection: ( - (ActionButtonSpec - label: 'cancel' - name: 'cancel' - tabable: true - model: cancel - extent: (Point 153 23) - ) - (ActionButtonSpec - label: 'ok' - name: 'accept' - tabable: true - model: accept - isDefault: true - extent: (Point 153 23) - ) - ) - - ) - ) - (CheckBoxSpec - label: 'Update Default Resources' - name: 'updateDefaultResources' - layout: (Point 5 133) - model: updateDefaultResources - ) - ) - - ) - ) -! - -windowSpec - "This resource specification was automatically generated - by the UIPainter of ST/X." - - "Do not manually edit this!! If it is corrupted, - the UIPainter may not be able to read the specification." - - " - UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec - UISelectionPanel new openInterface:#windowSpec - UISelectionPanel open - " - - - - ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'Widget Gallery' - name: 'Widget Gallery' - min: (Point 100 280) - bounds: (Rectangle 14 46 508 348) - ) - component: - (SpecCollection - collection: ( - (NoteBookViewSpec - name: 'NoteBook1' - layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - model: majorChannel - menu: majorList - direction: right - useIndex: true - canvas: gallery - ) - ) - - ) - ) -! ! - -!UISelectionPanel class methodsFor:'menus'! - -menuSelected - - - - ^ #(#Menu #( - #(#MenuItem - #'label:' 'copy' - #'value:' #copy - ) - #(#MenuItem - #'label:' 'cut' - #'value:' #cut - ) - ) - nil - nil - ) - - "Modified: / 29.10.1997 / 03:20:30 / cg" -! - -menuUnselected - - - ^ #(#Menu #( - #(#MenuItem - #'label:' 'paste' - #'value:' #paste - ) - ) - nil - nil - ) - - "Modified: / 29.10.1997 / 03:20:38 / cg" -! ! - -!UISelectionPanel class methodsFor:'resources'! - -classResources - "my translations are found in the UIPainter classes resources" - - ^ UIPainter classResources -! ! - -!UISelectionPanel class methodsFor:'standard specifications'! +!UISelectionPanel class methodsFor:'interface - standard specifications'! standardButtons "This resource specification was automatically generated @@ -1429,6 +1216,219 @@ ) ! ! +!UISelectionPanel class methodsFor:'interface specs'! + +nameAndSelectorSpec + "This resource specification was automatically generated + by the UIPainter of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIPainter may not be able to read the specification." + + " + UIPainter new openOnClass:UISelectionPanel andSelector:#nameAndSelectorSpec + UISelectionPanel new openInterface:#nameAndSelectorSpec + " + + + + ^ + #(FullSpec + name: nameAndSelectorSpec + window: + (WindowSpec + label: 'Painter' + name: 'Painter' + min: (Point 10 10) + bounds: (Rectangle 14 46 329 262) + ) + component: + (SpecCollection + collection: ( + (LabelSpec + label: 'Class & selectors to access user specs:' + name: 'title' + layout: (Point 5 10) + resizeForLabel: true + adjust: left + ) + (LabelSpec + label: 'Class:' + name: 'classLabel' + layout: (AlignmentOrigin 68 0.11 51 0 1 0.5) + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'classField' + layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0) + tabable: true + model: className + type: string + acceptOnPointerLeave: false + ) + (LabelSpec + label: 'Labels:' + name: 'labelsLabel' + layout: (AlignmentOrigin 68 0.11 74 0 1 0.5) + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'labelsField' + layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0) + tabable: true + model: labelsKey + type: symbolOrNil + acceptOnPointerLeave: false + ) + (LabelSpec + label: 'Specifications:' + name: 'specsLabel' + layout: (AlignmentOrigin 68 0.11 99 0 1 0.5) + resizeForLabel: true + adjust: right + ) + (InputFieldSpec + name: 'specsField' + layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0) + tabable: true + model: specsKey + type: symbolOrNil + acceptOnPointerLeave: false + ) + (HorizontalPanelViewSpec + name: 'commitPanel' + layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0) + horizontalLayout: fitSpace + verticalLayout: fit + horizontalSpace: 3 + verticalSpace: 3 + reverseOrderIfOKAtLeft: true + component: + (SpecCollection + collection: ( + (ActionButtonSpec + label: 'cancel' + name: 'cancel' + tabable: true + model: cancel + extent: (Point 153 23) + ) + (ActionButtonSpec + label: 'ok' + name: 'accept' + tabable: true + model: accept + isDefault: true + extent: (Point 153 23) + ) + ) + + ) + ) + (CheckBoxSpec + label: 'Update Default Resources' + name: 'updateDefaultResources' + layout: (Point 5 133) + model: updateDefaultResources + ) + ) + + ) + ) +! + +windowSpec + "This resource specification was automatically generated + by the UIPainter of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIPainter may not be able to read the specification." + + " + UIPainter new openOnClass:UISelectionPanel andSelector:#windowSpec + UISelectionPanel new openInterface:#windowSpec + UISelectionPanel open + " + + + + ^ + #(FullSpec + name: windowSpec + window: + (WindowSpec + label: 'Widget Gallery' + name: 'Widget Gallery' + min: (Point 100 280) + bounds: (Rectangle 14 46 508 348) + ) + component: + (SpecCollection + collection: ( + (NoteBookViewSpec + name: 'NoteBook1' + layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) + model: majorChannel + menu: majorList + direction: right + useIndex: true + canvas: gallery + ) + ) + + ) + ) +! ! + +!UISelectionPanel class methodsFor:'menus'! + +menuSelected + + + + ^ #(#Menu #( + #(#MenuItem + #'label:' 'copy' + #'value:' #copy + ) + #(#MenuItem + #'label:' 'cut' + #'value:' #cut + ) + ) + nil + nil + ) + + "Modified: / 29.10.1997 / 03:20:30 / cg" +! + +menuUnselected + + + ^ #(#Menu #( + #(#MenuItem + #'label:' 'paste' + #'value:' #paste + ) + ) + nil + nil + ) + + "Modified: / 29.10.1997 / 03:20:38 / cg" +! ! + +!UISelectionPanel class methodsFor:'resources'! + +classResources + "my translations are found in the UIPainter classes resources" + + ^ UIPainter classResources +! ! + !UISelectionPanel methodsFor:'actions'! defineClassAndSelector