# HG changeset patch # User tz # Date 890418886 -3600 # Node ID c94606aecebfc776874b78a74ba2d95fa68ec077 # Parent e7362f3ab5e5ee97907430bc2f27aa931e6191f3 user defined font support diff -r e7362f3ab5e5 -r c94606aecebf UILayoutTool.st --- a/UILayoutTool.st Fri Mar 20 19:25:20 1998 +0100 +++ b/UILayoutTool.st Fri Mar 20 19:34:46 1998 +0100 @@ -106,64 +106,70 @@ !UILayoutTool class methodsFor:'help specs'! helpSpec - "return a dictionary filled with helpKey -> helptext associations. - These are used by the activeHelp tool." + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." " - UIHelpTool openOnClass:UILayoutTool + UIHelpTool openOnClass:UILayoutTool " - ^ super helpSpec addPairsFrom:#( + + + ^super helpSpec addPairsFrom:#( + +#cornerX +'Absolute corner x of the selected widget.' + +#cornerY +'Absolute corner y of the selected widget.' + +#layoutTool +'Tool to set the layout of the selected widget.' #leftAbsolute 'Offset of the left edge; positive is to the right, negative to the left.' -#originY -'Absolute origin y of the selected widget.' - -#cornerY -'Absolute corner y of the selected widget.' +#leftRelative +'Relative origin x of the selected widget.' #makeLeftAbsolute 'Computes current left offset and relative origin x to an absolute origin x.' +#makeLeftRelative +'Compute current relative origin x and offset of the left edge to a relative origin x.' + +#makeTopAbsolute +'Computes current top offset and relative origin y to an absolute origin y.' + +#makeTopRelative +'Computes current relative origin y and offset of the top edge to a relative origin y.' + +#originX +'Absolute origin x of the selected widget.' + +#originY +'Absolute origin y of the selected widget.' + #topAbsolute 'Offset of the top edge; positive is to the bottom, negative to the top.' -#makeTopRelative -'Computes current relative origin y and offset of the top edge to a relative origin y.' - -#leftRelative -'Relative origin x of the selected widget.' - -#makeLeftRelative -'Compute current relative origin x and offset of the left edge to a relative origin x.' - #topRelative 'Relative origin y of the selected widget.' -#originX -'Absolute origin x of the selected widget.' - -#cornerX -'Absolute corner x of the selected widget.' - -#layoutTool -'Tool to set the layout of the selected widget.' - -#makeTopAbsolute -'Computes current top offset and relative origin y to an absolute origin y.' - ) ! ! !UILayoutTool class methodsFor:'interface specs'! layoutOriginSpec - "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:UILayoutTool andSelector:#layoutOriginSpec @@ -177,12 +183,12 @@ #(#FullSpec #window: #(#WindowSpec - #name: 'uIPainterView' - #layout: #(#LayoutFrame 31 0 423 0 293 0 525 0) - #label: 'unnamed' + #name: 'UILayoutTool' + #layout: #(#LayoutFrame 509 0 293 0 771 0 395 0) + #label: 'UILayoutTool' #min: #(#Point 10 10) #max: #(#Point 1152 900) - #bounds: #(#Rectangle 31 423 294 526) + #bounds: #(#Rectangle 509 293 772 396) #usePreferredExtent: false ) #component: @@ -271,10 +277,11 @@ ! layoutPointSpec - "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:UILayoutTool andSelector:#layoutPointSpec @@ -288,12 +295,12 @@ #(#FullSpec #window: #(#WindowSpec - #name: 'uIPainterView' - #layout: #(#LayoutFrame 31 0 423 0 220 0 499 0) - #label: 'unnamed' + #name: 'UILayoutTool' + #layout: #(#LayoutFrame 565 0 276 0 754 0 352 0) + #label: 'UILayoutTool' #min: #(#Point 10 10) #max: #(#Point 1152 900) - #bounds: #(#Rectangle 31 423 221 500) + #bounds: #(#Rectangle 565 276 755 353) #usePreferredExtent: false ) #component: @@ -344,49 +351,48 @@ ! 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:UILayoutTool andSelector:#windowSpec UILayoutTool new openInterface:#windowSpec + UILayoutTool open " - "UILayoutTool open" ^ #(#FullSpec - #'window:' + #window: #(#WindowSpec - #'name:' 'uIPainterView' - #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - #'label:' 'unnamed canvas' - #'bounds:' #(#Rectangle 0 0 300 300) + #name: 'UILayoutTool' + #layout: #(#LayoutFrame 571 0 290 0 870 0 589 0) + #label: 'UILayoutTool' + #min: #(#Point 10 10) + #max: #(#Point 1152 900) + #bounds: #(#Rectangle 571 290 871 590) + #usePreferredExtent: false ) - #'component:' + #component: #(#SpecCollection - #'collection:' + #collection: #( #(#NoteBookViewSpec - #'name:' 'NoteBook' - #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - #'activeHelpKey:' #layoutTool - #'enableChannel:' #enableChannel - #'tabable:' true - #'menu:' #noteBookList - #'style:' - #(#FontDescription - #helvetica #medium - #roman #'10' - ) - #'model:' #noteBookModel - #'tabWidget:' #Window - #'direction:' #bottom - #'canvas:' #noteBookView + #name: 'NoteBook' + #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) + #activeHelpKey: #layoutTool + #enableChannel: #enableChannel + #tabable: true + #model: #noteBookModel + #menu: #noteBookList + #style: #(#FontDescription #helvetica #medium #roman #'10') + #direction: #bottom + #canvas: #noteBookView ) ) ) @@ -708,6 +714,7 @@ appl notNil ifTrue:[ noteBook scrolledView allViewBackground:(noteBook viewBackground). + masterApplication updateFonts ] ]. self update @@ -717,26 +724,40 @@ !UILayoutTool::AlignmentOrigin class methodsFor:'help specs'! helpSpec - "return a dictionary filled with helpKey -> helptext associations. - These are used by the activeHelp tool." + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." " - UIHelpTool openOnClass:UILayoutTool::AlignmentOrigin + UIHelpTool openOnClass:UILayoutTool::AlignmentOrigin " - ^ super helpSpec addPairsFrom:#( + + + ^super helpSpec addPairsFrom:#( + +#alignBottomCenter +'Aligns the selected widget bottomCenter to location.' + +#alignBottomLeft +'Aligns the selected widget bottomLeft to location.' + +#alignBottomRight +'Aligns the selected widget bottomRight to location.' + +#alignCenter +'Aligns the selected widget center to location.' + +#alignHorizontal +'Horizontal inset to the location point of the selected widget.' #alignLeftCenter 'Aligns the selected widget leftCenter to location.' -#alignBottomCenter -'Aligns the selected widget bottomCenter to location.' - -#alignHorizontal -'Horizontal inset to the location point of the selected widget.' - -#alignBottomRight -'Aligns the selected widget bottomRight to location.' +#alignRightCenter +'Aligns the selected widget rightCenter to location.' #alignTopCenter 'Aligns the selected widget topCenter to location.' @@ -747,34 +768,26 @@ #alignTopRight 'Aligns the selected widget topRight to location.' -#alignCenter -'Aligns the selected widget center to location.' - #alignVertical 'Vertical inset to the location point of the widget.' -#alignBottomLeft -'Aligns the selected widget bottomLeft to location.' - -#alignRightCenter -'Aligns the selected widget rightCenter to location.' - ) ! ! !UILayoutTool::AlignmentOrigin class methodsFor:'interface specs'! 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:UILayoutTool::AlignmentOrigin andSelector:#windowSpec UILayoutTool::AlignmentOrigin new openInterface:#windowSpec + UILayoutTool::AlignmentOrigin open " - "UILayoutTool::AlignmentOrigin open" @@ -783,12 +796,12 @@ #(#FullSpec #window: #(#WindowSpec - #name: 'uIPainterView' - #layout: #(#LayoutFrame 31 0 423 0 298 0 627 0) - #label: 'AlignmentOrigin' + #name: 'UILayoutTool-AlignmentOrigin' + #layout: #(#LayoutFrame 206 0 285 0 473 0 489 0) + #label: 'UILayoutTool-AlignmentOrigin' #min: #(#Point 10 10) #max: #(#Point 1152 900) - #bounds: #(#Rectangle 31 423 299 628) + #bounds: #(#Rectangle 206 285 474 490) #usePreferredExtent: false ) #component: @@ -796,25 +809,25 @@ #collection: #( #(#UISubSpecification - #name: 'subSpecification' + #name: 'subSpec' #layout: #(#LayoutOrigin 0 0 0 0) #majorKey: #UILayoutTool #minorKey: #layoutOriginSpec ) #(#LabelSpec - #name: 'label5' + #name: 'alignHLabel' #layout: #(#AlignmentOrigin 78 0 102 0 1 0) #label: 'Align H:' #adjust: #right ) #(#LabelSpec - #name: 'label6' + #name: 'alignVLabel' #layout: #(#AlignmentOrigin 78 0 128 0 1 0) #label: 'Align V:' #adjust: #right ) #(#InputFieldSpec - #name: 'editField5' + #name: 'leftAlignmentFractionField' #layout: #(#LayoutFrame 80 0 99 0 137 0 121 0) #activeHelpKey: #alignHorizontal #tabable: true @@ -822,7 +835,7 @@ #type: #numberOrNil ) #(#InputFieldSpec - #name: 'editField6' + #name: 'topAlignmentFractionField' #layout: #(#LayoutFrame 80 0 125 0 137 0 147 0) #activeHelpKey: #alignVertical #tabable: true @@ -1047,21 +1060,26 @@ !UILayoutTool::Extent class methodsFor:'help specs'! helpSpec - "return a dictionary filled with helpKey -> helptext associations. - These are used by the activeHelp tool." + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." " - UIHelpTool openOnClass:UILayoutTool::Extent + UIHelpTool openOnClass:UILayoutTool::Extent " - ^ super helpSpec addPairsFrom:#( + + + ^super helpSpec addPairsFrom:#( + +#hrzExtent +'Horizontal extent of the selected widget.' #vrtExtent 'Vertical extent of the selected widget.' -#hrzExtent -'Horizontal extent of the selected widget.' - ) ! ! @@ -1086,9 +1104,9 @@ #(#FullSpec #window: #(#WindowSpec - #name: 'uIPainterView' + #name: 'UILayoutTool-Extent' #layout: #(#LayoutFrame 31 0 423 0 256 0 508 0) - #label: 'unnamed' + #label: 'UILayoutTool-Extent' #min: #(#Point 10 10) #max: #(#Point 1152 900) #bounds: #(#Rectangle 31 423 257 509) @@ -1157,26 +1175,28 @@ !UILayoutTool::LayoutFrame class methodsFor:'help specs'! helpSpec - "return a dictionary filled with helpKey -> helptext associations. - These are used by the activeHelp tool." + "This resource specification was automatically generated + by the UIHelpTool of ST/X." + + "Do not manually edit this!! If it is corrupted, + the UIHelpTool may not be able to read the specification." " - UIHelpTool openOnClass:UILayoutTool::LayoutFrame + UIHelpTool openOnClass:UILayoutTool::LayoutFrame " - ^ super helpSpec addPairsFrom:#( + -#makeRightRelative -'Computes current relative corner x and offset of the right edge to a relative corner x.' - -#makeBottomAbsolute -'Computes current bottom offset and relative corner y to an absolute corner y.' + ^super helpSpec addPairsFrom:#( #bottomAbsolute 'Offset of the bottom edge; positive is to the bottom, negative to the top.' -#rightRelative -'Relative corner x of the selected widget.' +#bottomRelative +'Relative corner y of the selected widget.' + +#makeBottomAbsolute +'Computes current bottom offset and relative corner y to an absolute corner y.' #makeBottomRelative 'Computes current relative corner y and offset of the bottom edge to a relative corner y.' @@ -1184,12 +1204,15 @@ #makeRightAbsolute 'Computes current right offset and relative corner x to an absolute corner x.' -#bottomRelative -'Relative corner y of the selected widget.' +#makeRightRelative +'Computes current relative corner x and offset of the right edge to a relative corner x.' #rightAbsolute 'Offset of the right edge; positive is to the right, negative to the left.' +#rightRelative +'Relative corner x of the selected widget.' + ) ! ! @@ -1214,9 +1237,9 @@ #(#FullSpec #window: #(#WindowSpec - #name: 'uIPainterView' + #name: 'UILayoutTool-LayoutFrame' #layout: #(#LayoutFrame 31 0 423 0 280 0 615 0) - #label: 'unnamed' + #label: 'UILayoutTool-LayoutFrame' #min: #(#Point 10 10) #max: #(#Point 1152 900) #bounds: #(#Rectangle 31 423 281 616) @@ -1340,38 +1363,42 @@ !UILayoutTool::LayoutOrigin class methodsFor:'interface specs'! 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:UILayoutTool::LayoutOrigin andSelector:#windowSpec UILayoutTool::LayoutOrigin new openInterface:#windowSpec + UILayoutTool::LayoutOrigin open " - "UILayoutTool::LayoutOrigin open" ^ #(#FullSpec - #'window:' + #window: #(#WindowSpec - #'name:' 'uIPainterView' - #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - #'label:' 'unnamed' - #'bounds:' #(#Rectangle 0 0 258 93) + #name: 'UILayoutTool-LayoutOrigin' + #layout: #(#LayoutFrame 417 0 298 0 674 0 390 0) + #label: 'UILayoutTool-LayoutOrigin' + #min: #(#Point 10 10) + #max: #(#Point 1152 900) + #bounds: #(#Rectangle 417 298 675 391) + #usePreferredExtent: false ) - #'component:' + #component: #(#SpecCollection - #'collection:' + #collection: #( #(#UISubSpecification - #'name:' 'subSpecification' - #'layout:' #(#LayoutOrigin 0 0 0 0) - #'majorKey:' #UILayoutTool - #'minorKey:' #layoutOriginSpec + #name: 'subSpec' + #layout: #(#LayoutOrigin 0 0 0 0) + #majorKey: #UILayoutTool + #minorKey: #layoutOriginSpec ) ) ) @@ -1414,38 +1441,42 @@ !UILayoutTool::Point class methodsFor:'interface specs'! 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:UILayoutTool::Point andSelector:#windowSpec UILayoutTool::Point new openInterface:#windowSpec + UILayoutTool::Point open " - "UILayoutTool::Point open" ^ #(#FullSpec - #'window:' + #window: #(#WindowSpec - #'name:' 'uIPainterView' - #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) - #'label:' 'unnamed' - #'bounds:' #(#Rectangle 0 0 194 66) + #name: 'UILayoutTool-Point' + #layout: #(#LayoutFrame 427 0 336 0 635 0 423 0) + #label: 'UILayoutTool-Point' + #min: #(#Point 10 10) + #max: #(#Point 1152 900) + #bounds: #(#Rectangle 427 336 636 424) + #usePreferredExtent: false ) - #'component:' + #component: #(#SpecCollection - #'collection:' + #collection: #( #(#UISubSpecification - #'name:' 'subSpecification' - #'layout:' #(#LayoutOrigin 0 0 0 0) - #'majorKey:' #UILayoutTool - #'minorKey:' #layoutPointSpec + #name: 'subSpec' + #layout: #(#LayoutOrigin 0 0 0 0) + #majorKey: #UILayoutTool + #minorKey: #layoutPointSpec ) ) ) @@ -1478,16 +1509,17 @@ !UILayoutTool::Rectangle class methodsFor:'interface specs'! 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:UILayoutTool::Rectangle andSelector:#windowSpec UILayoutTool::Rectangle new openInterface:#windowSpec + UILayoutTool::Rectangle open " - "UILayoutTool::Rectangle open" @@ -1496,12 +1528,12 @@ #(#FullSpec #window: #(#WindowSpec - #name: 'uIPainterView' - #layout: #(#LayoutFrame 31 0 423 0 254 0 568 0) - #label: 'unnamed' + #name: 'UILayoutTool-Rectangle' + #layout: #(#LayoutFrame 357 0 349 0 580 0 494 0) + #label: 'UILayoutTool-Rectangle' #min: #(#Point 10 10) #max: #(#Point 1152 900) - #bounds: #(#Rectangle 31 423 255 569) + #bounds: #(#Rectangle 357 349 581 495) #usePreferredExtent: false ) #component: