plantec / onbloc Goto Github PK

largeElement := OBlElement new
	size: 1000 asPoint;
	background: (BlRadialGradientPaint new
		stops: { 0 -> Color green . 1 -> Color red};
		center: 500 asPoint;
		radius: 500;
		yourself);
	yourself.
scrollableElement := largeElement asScrollableElement.

hBar :=
	OBlHorizontalScrollbarElement new
		constraintsDo: [ :c |
			c ignoreByLayout.
			c ignored vertical alignBottom ];
		attachTo: scrollableElement;
		yourself.

scrollPane :=
	BlElement new
		addChild: scrollableElement;
		addChild: hBar;
		constraintsDo: [ :c |
			c horizontal matchParent.
			c vertical matchParent ];
		yourself.

space := OBlSpace new.
space root
	layout: BlLinearLayout new;
	padding: (BlInsets all: 10);
	background: Color blue muchDarker;
	addChild: scrollPane.
space
	extent: 500@500;
	show.