--- a/ImageEditor.st Mon Feb 16 15:25:21 2004 +0100
+++ b/ImageEditor.st Tue Feb 17 13:08:25 2004 +0100
@@ -1182,17 +1182,122 @@
!
uncropDialogSpec
- <resource: #canvas>
"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:ImageEditor andSelector:#ungropDialogSpec
- ImageEditor new openInterface:#ungropDialogSpec
+ UIPainter new openOnClass:ImageEditor andSelector:#uncropDialogSpec
+ ImageEditor new openInterface:#uncropDialogSpec
"
-
- ^ #(#FullSpec #name: #ungropDialogSpec #window: #(#WindowSpec #label: 'Add Border(s)' #name: 'Add Borders' #min: #(#Point 10 10) #max: #(#Point 800 478) #bounds: #(#Rectangle 16 46 261 229)) #component: #(#SpecCollection #collection: #(#(#LabelSpec #label: 'Left:' #name: 'Label1' #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField1' #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0) #model: #left #type: #number #acceptOnPointerLeave: false) #(#LabelSpec #label: 'Right:' #name: 'Label2' #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField2' #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0) #model: #right #type: #number #acceptOnPointerLeave: false) #(#LabelSpec #label: 'Top:' #name: 'Label3' #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField3' #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0) #model: #top #type: #number #acceptOnPointerLeave: false) #(#LabelSpec #label: 'Bottom:' #name: 'Label4' #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField4' #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0) #model: #bottom #type: #number #acceptOnPointerLeave: false) #(#HorizontalPanelViewSpec #name: 'HorizontalPanel1' #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1) #horizontalLayout: #fitSpace #verticalLayout: #center #horizontalSpace: 3 #verticalSpace: 3 #reverseOrderIfOKAtLeft: true #component: #(#SpecCollection #collection: #(#(#ActionButtonSpec #label: 'Cancel' #name: 'Button1' #translateLabel: true #model: #cancel #extent: #(#Point 118 22)) #(#ActionButtonSpec #label: 'OK' #name: 'Button2' #translateLabel: true #model: #accept #extent: #(#Point 118 22))))))))
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: uncropDialogSpec
+ window:
+ (WindowSpec
+ label: 'Add Border(s)'
+ name: 'Add Border(s)'
+ min: (Point 10 10)
+ max: (Point 800 478)
+ bounds: (Rectangle 0 0 261 228)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Left:'
+ name: 'Label1'
+ layout: (LayoutFrame 14 0 21 0 90 0 43 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 95 0 21 0 132 0 43 0)
+ model: left
+ type: number
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Right:'
+ name: 'Label2'
+ layout: (LayoutFrame 14 0 51 0 90 0 73 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 95 0 51 0 132 0 73 0)
+ model: right
+ type: number
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Top:'
+ name: 'Label3'
+ layout: (LayoutFrame 14 0 81 0 90 0 103 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField3'
+ layout: (LayoutFrame 95 0 81 0 132 0 103 0)
+ model: top
+ type: number
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Bottom:'
+ name: 'Label4'
+ layout: (LayoutFrame 14 0 111 0 90 0 133 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField4'
+ layout: (LayoutFrame 95 0 111 0 132 0 133 0)
+ model: bottom
+ type: number
+ acceptOnPointerLeave: false
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button1'
+ translateLabel: true
+ model: cancel
+ extent: (Point 118 22)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'Button2'
+ translateLabel: true
+ model: accept
+ extent: (Point 118 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
!
windowSpec