hg/stx-libview2: comparison UIBuilder.st

equal deleted inserted replaced

-:6c70d392634b
+:229eb729da57
 self halt.
 "
 !
 yDefaultable:args view:aView frame:frameView
-'defaultable ignored' printNL
+'defaultable ignored' printCR
+"Modified: 20.5.1996 / 10:29:24 / cg"
 !
 yFlags:args view:aView frame:frameView
-'flags: ' print. args print. ' for ' print. aView print. ' ignored' printNL
+'flags: ' print. args print. ' for ' print. aView print. ' ignored' printCR
 "
 32 : initially disabled
 16 : initially invisible
 8 : border
 4 : menuBar
 2 : hScroll
 1 : vScroll
 "
 "Modified: 2.9.1995 / 15:44:15 / claus"
+"Modified: 20.5.1996 / 10:29:26 / cg"
 !
 yIsDefault:args view:aView frame:frameView
 aView isReturnButton:args
 !
 yIsOpaque:args view:aView frame:frameView
-'isOpaque ignored' printNL.
+'isOpaque ignored' printCR.
+"Modified: 20.5.1996 / 10:29:29 / cg"
 !
 yIsReadOnly:args view:aView frame:frameView
 args ifTrue:[
 	aView readOnly
 yLayout:args view:aView frame:frameView
 |value r org corn orgInset cornInset what|
 value := self getArg:args.
 value isLayout ifTrue:[
-	frameView geometryLayout:value.
+frameView geometryLayout:value.
-	^ self
+^ self
 ].
 what := value at:1.
 what == #point ifTrue:[
-	Verbose ifTrue:[frameView print. ' ' print. 'origin: ' print. (value at:2) printNL].
+Verbose ifTrue:[frameView print. ' ' print. 'origin: ' print. (value at:2) printCR].
-	frameView origin:(value at:2).
+frameView origin:(value at:2).
-	^ self
+^ self
 ].
 what == #rectangle ifTrue:[
-	r := value at:2.
+r := value at:2.
-	Verbose ifTrue:[
+Verbose ifTrue:[
-	    frameView print. ' ' print. 'origin: ' print. r origin print.
+frameView print. ' ' print. 'origin: ' print. r origin print.
-			     ' corner: ' print. r corner printNL.
+' corner: ' print. r corner printCR.
-	].
+].
-	frameView origin:r origin corner:r corner.
+frameView origin:r origin corner:r corner.
-	^ self
+^ self
 ].
 what == #layoutOrigin ifTrue:[
-	"/ #layoutOrigin relOrg orgInset
+"/ #layoutOrigin relOrg orgInset
-	org := value at:2.       "/ relative origin
+org := value at:2.       "/ relative origin
-	org := org x asFloat @ org y asFloat.
+org := org x asFloat @ org y asFloat.
-	orgInset := self fixExtentFor:(value at:3).
+orgInset := self fixExtentFor:(value at:3).
-	Verbose ifTrue:[
+Verbose ifTrue:[
-	    frameView print. ' ' print. 'origin: ' print. org printNL
+frameView print. ' ' print. 'origin: ' print. org printCR
-	].
+].
-	frameView origin:org.
+frameView origin:org.
-	frameView
+frameView
-	      leftInset:orgInset x;
+leftInset:orgInset x;
-	      topInset:orgInset y.
+topInset:orgInset y.
-	^ self
+^ self
 ].
 what == #layoutFrame ifTrue:[
-	"/ #layoutFrame orgInset cornInset relOrg relCorner
+"/ #layoutFrame orgInset cornInset relOrg relCorner
-	org := value at:4.       "/ relative origin
+org := value at:4.       "/ relative origin
-	orgInset := self fixExtentFor:(value at:2).
+orgInset := self fixExtentFor:(value at:2).
-	org := org x asFloat @ org y asFloat.
+org := org x asFloat @ org y asFloat.
 "/        org = (0@0) ifTrue:[
 "/            org := value at:2    "/ absolute origin
 "/        ].
-	corn := value at:5.      "/ relative corner
+corn := value at:5.      "/ relative corner
-	cornInset := self fixExtentFor:(value at:3).
+cornInset := self fixExtentFor:(value at:3).
-	corn := corn x asFloat @ corn y asFloat.
+corn := corn x asFloat @ corn y asFloat.
 "/        corn = (0@0) ifTrue:[
 "/            corn := value at:3   "/ absolute corner
 "/        ].
-	Verbose ifTrue:[
+Verbose ifTrue:[
-	    frameView print. ' ' print. 'origin: ' print. org print.
+frameView print. ' ' print. 'origin: ' print. org print.
-			     ' corner: ' print. corn printNL.
+' corner: ' print. corn printCR.
-	].
+].
-	frameView origin:org corner:corn.
+frameView origin:org corner:corn.
-	frameView leftInset:orgInset x;
+frameView leftInset:orgInset x;
-	      topInset:orgInset y;
+topInset:orgInset y;
-	      rightInset:cornInset x negated;
+rightInset:cornInset x negated;
-	      bottomInset:cornInset y negated.
+bottomInset:cornInset y negated.
-	frameView sizeFixed:true.
+frameView sizeFixed:true.
-	^ self
+^ self
 ].
 what == #alignmentOrigin ifTrue:[
-	org := value at:3.       "/ relative origin
+org := value at:3.       "/ relative origin
-	org = (0@0) ifTrue:[
+org = (0@0) ifTrue:[
-	    org := value at:2    "/ absolute origin
+org := value at:2    "/ absolute origin
-	].
+].
-	Verbose ifTrue:[frameView print. ' ' print. 'origin: ' print. org printNL].
+Verbose ifTrue:[frameView print. ' ' print. 'origin: ' print. org printCR].
-	frameView origin:org.
+frameView origin:org.
-	^ self
+^ self
 ].
 self halt:'unimplemented'.
+"Modified: 20.5.1996 / 10:29:35 / cg"
 !
 yMax:args view:aView frame:frameView
 |value|
 yName:args view:aView frame:frameView
 self componentAt:args put:aView
 !
 yOrientation:args view:aView frame:frameView
-'orientation ignored' printNL.
+'orientation ignored' printCR.
+"Modified: 20.5.1996 / 10:29:37 / cg"
 !
 ySelectionStyle:args view:aView frame:frameView
-'selectionStyle ignored' printNL.
+'selectionStyle ignored' printCR.
+"Modified: 20.5.1996 / 10:29:41 / cg"
 !
 yStart:args view:aView frame:frameView
 (aView isKindOf:Scroller) ifTrue:[
-	aView start:args.
+aView start:args.
-	^ self
+^ self
 ].
-'start ignored' printNL.
+'start ignored' printCR.
+"Modified: 20.5.1996 / 10:29:42 / cg"
 !
 yStep:args view:aView frame:frameView
-'step ignored' printNL.
+'step ignored' printCR.
+"Modified: 20.5.1996 / 10:29:44 / cg"
 !
 yStop:args view:aView frame:frameView
 (aView isKindOf:Scroller) ifTrue:[
-	aView stop:args.
+aView stop:args.
-	^ self
+^ self
 ].
-'stop ignored' printNL.
+'stop ignored' printCR.
+"Modified: 20.5.1996 / 10:29:46 / cg"
 !
 yStyle:args view:aView frame:frameView
-'name ignored' printNL.
+'name ignored' printCR.
+"Modified: 20.5.1996 / 10:29:48 / cg"
 !
 ySubmenu:aSpec view:menu frame:frameView
 |items lines selectors labels|
 "Modified: 9.12.1995 / 23:08:15 / cg"
 !
 yTabable:args view:aView frame:frameView
 args == true ifTrue:[
-	focusSequence isNil ifTrue:[
+focusSequence isNil ifTrue:[
-	    focusSequence := OrderedCollection new.
+focusSequence := OrderedCollection new.
-	].
+].
-	focusSequence add:aView.
+focusSequence add:aView.
-	'tabable element added' printNL.
+'tabable element added' printCR.
 ]
+"Modified: 20.5.1996 / 10:29:53 / cg"
 !
 yType:args view:aView frame:frameView
 (aView isMemberOf:EditField) ifTrue:[
-	args == #number ifTrue:[
+args == #number ifTrue:[
-	    aView converter:(PrintConverter new initForNumber).
+aView converter:(PrintConverter new initForNumber).
-	    ^ self
+^ self
-	]
+]
 ].
-'type ignored' printNL.
+'type ignored' printCR.
+"Modified: 20.5.1996 / 10:29:55 / cg"
 !
 yWindow:args view:aView frame:frameView
 self readSpec:args view:aView frame:frameView.
 ! !
 !
 xTableViewSpec:aSpec view:aView
 |l|
-'tableView ignored' printNL.
+'tableView ignored' printCR.
 l := Label label:'TableView' in:aView.
 l level:-1.
 self doSpec:aSpec for:l
+"Modified: 20.5.1996 / 10:29:20 / cg"
 !
 xVerticalPanelViewSpec:aSpec view:aView
 |v|
 self readSpec:aSpec
 !
 doSingleSpec:selector args:args for:aView frame:frame
 Verbose ifTrue:[
-	'doSingle (' print. aView print. ' -> ' print. selector print.
+'doSingle (' print. aView print. ' -> ' print. selector print.
-	' ' print. args printString printNL.
+' ' print. args printString printCR.
 ].
 self perform:('y' , selector asString asUppercaseFirst , 'view:frame:') asSymbol
-	    with:args
+with:args
-	    with:aView
+with:aView
-	    with:frame.
+with:frame.
+"Modified: 20.5.1996 / 10:29:17 / cg"
 !
 doSpec:aSpec for:aView
 ^ self doSpec:aSpec for:aView frame:aView
 !
 ! !
 !UIBuilder class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.13 1996-04-25 16:43:47 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview2/UIBuilder.st,v 1.14 1996-05-20 08:40:29 cg Exp $'
 ! !
 UIBuilder initialize!

changeset 270	229eb729da57
parent 223	b65dc250db8d
child 344	42ae71c13eef