mockup.reb

rebol [
	file: %mockup.reb
]

if not value? 'to-text [ load-gui ]
dpi: gui-metric 'screen-dpi
gui-metric/set 'unit-size dpi / 96
scr: round/floor (gui-metric 'work-size) - gui-metric 'title-size

stylize [
	but: button [
		facets: [
			init-size: 100x48
			max-size: 260x48
			min-size: 24x34
			align: 'center
		]
	]
]
;; grab some images

icons: [
	fork http://i.stack.imgur.com/VWHTU.png?s=128&g=1&g&s=16
	graham http://i.stack.imgur.com/LBnjL.png?s=128&g=1&g&s=16
	josh http://i.stack.imgur.com/brRFc.png?s=128&g=1&g&s=16
	brain http://i.stack.imgur.com/6KbV5.jpg?s=128&g=1&g&s=32
	rebolbot http://i.stack.imgur.com/x2LdO.png?s=128&g=1&g&s=16
]

foreach [ person link ] icons [
	print [ "loading ... " person ]
	either find suffix? link %.jpg [
		set person decode 'JPEG read link
	][
		set person decode 'PNG read link
	]
]

ms: 20x20
mh: 100x100

message: [
	vpanel [
			hpanel [
				image graham options [ max-size: ms max-hint: mh ]
				hpanel [ text [ bold "Graham" ] ]
				hpanel [ text [ "8:00"] ]
			]
			text "Hmm. From the file datestamps, it is the one with the text entry bug."
			but "Reply" on-action [ alert "Todo" ]
	]
]

messages: copy []

loop 100 [ append messages copy/deep message ]

view/options compose/deep [
	scroll-panel [
			(messages)
	] options [max-hint: guie/max-pair pane-align: 'center]
][offset: 0x0 max-hint: reduce [scr/x guie/max-coord]]