meijeru

Red [
	Title: 		{Request a date}
	Purpose:	{To enter a date using a calendar display}
	Author:		"Rudolf W. MEIJER"
	File:		%request-date.red
	Notes:		{Inspired by the corresponding Rebgui facility}
	Language:	'English
	Tabs:		4
] ; end prologue

meijeru

Red [
	Title: 		{Update checker}
	Purpose:	{Check for update to Red executable}
	Author:		"Rudolf W. MEIJER"
	File:		%check-update.red
	Rights:		"Copyright (c) 2019 Rudolf W. MEIJER"
	Language:	'English
	Tabs:		4
]

meijeru

Red [
	Title:		"Barcode generator"
	Purpose:	{To generate and display EAN-8 and -13, as well as UPC-A barcodes}
	Author:		"Rudolf W. MEIJER"
	File:		%barcode.red
	Version:	0.1.0
	Date:		1-Oct-2017
	Rights:		"Copyright (c) Rudolf W. MEIJER"
	Needs:		'View
	History:	[

meijeru

make-scroller: func [
	{makes a pane with a scroller of given length;
   based on original work by @toomasv}
	len [integer!]
	/local sc
][
	sc: first layout/only compose/deep [
		panel (as-pair 17 len) [
			origin 0x0 space 0x-1
			below