--- a/DataSetBuilder.st Mon May 04 21:01:28 1998 +0200
+++ b/DataSetBuilder.st Thu May 07 14:42:54 1998 +0200
@@ -180,10 +180,11 @@
!DataSetBuilder class methodsFor:'interface specs'!
basicsEditSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:DataSetBuilder andSelector:#basicsEditSpec
@@ -198,11 +199,11 @@
#window:
#(#WindowSpec
#name: 'DataSet Basic'
- #layout: #(#LayoutFrame 299 0 234 0 587 0 489 0)
+ #layout: #(#LayoutFrame 8 0 124 0 296 0 379 0)
#label: 'DataSet Basic'
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 299 234 588 490)
+ #bounds: #(#Rectangle 8 124 297 380)
#usePreferredExtent: false
)
#component:
@@ -237,12 +238,18 @@
#model: #labelIsImage
#label: 'Label Is Image'
)
- #(#UISubSpecification
- #name: 'fontSubSpec'
- #layout: #(#LayoutFrame 60 0.0 47 0 15 1.0 75 0)
- #activeHelpKey: #basicsFont
- #majorKey: #UISpecification
- #minorKey: #fontSpec
+ #(#LabelSpec
+ #name: 'LabelFont'
+ #layout: #(#AlignmentOrigin 107 0 61 0 1 0.5)
+ #label: 'Font::'
+ #adjust: #left
+ #resizeForLabel: true
+ )
+ #(#FontMenuSpec
+ #name: 'fontMenu'
+ #layout: #(#LayoutFrame 110 0 49 0 13 1.0 71 0)
+ #activeHelpKey: #labelFont
+ #model: #style
)
#(#PopUpListSpec
#name: 'Alignment'
@@ -270,7 +277,7 @@
)
#(#FramedBoxSpec
#name: 'typesFrame'
- #layout: #(#LayoutFrame 0 0.0 145 0 0 1.0 227 0)
+ #layout: #(#LayoutFrame 0 0.0 145 0 0 1.0 253 0)
#component:
#(#SpecCollection
#collection:
@@ -306,6 +313,25 @@
#comboList: #editorTypeList
#useIndex: false
)
+ #(#LabelSpec
+ #name: 'JustificationC'
+ #layout: #(#AlignmentOrigin 107 0 82 0 1 0.5)
+ #label: 'Justification:'
+ #adjust: #left
+ #resizeForLabel: true
+ )
+ #(#PopUpListSpec
+ #name: 'AlignmentC'
+ #layout: #(#LayoutFrame 110 0 71 0 15 1.0 93 0)
+ #activeHelpKey: #basicsJustification
+ #label: 'Alignment'
+ #model: #columnAlignment
+ #menu:
+ #(#left
+ #right #center
+ )
+ #useIndex: false
+ )
)
)
#label: 'Cell Type:'
@@ -1045,16 +1071,17 @@
!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:DataSetBuilder andSelector:#windowSpec
DataSetBuilder new openInterface:#windowSpec
+ DataSetBuilder open
"
- "DataSetBuilder open"
<resource: #canvas>
@@ -1064,11 +1091,11 @@
#window:
#(#WindowSpec
#name: 'Data Set Builder'
- #layout: #(#LayoutFrame 399 0 282 0 885 0 641 0)
+ #layout: #(#LayoutFrame 662 0 70 0 1132 0 446 0)
#label: 'Data Set Builder'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 399 282 886 642)
+ #bounds: #(#Rectangle 662 70 1133 447)
#menu: #menu
#usePreferredExtent: false
)
@@ -1881,6 +1908,7 @@
labelActionSelector
labelActionArgument
labelAlignment
+ columnAlignment
) do:[:aKey|
aspects at:aKey put:(holder := ValueHolder new).
holder addDependent:self