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

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

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: 		{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: 		"Word finder"
	Purpose:	{Find occurrences of words in the source files
				 of the Red toolchain and display them}
	Author:		"Rudolf W. MEIJER"
	File:		%word-finder.red
	Needs:		'View
	Rights:		"Copyright (c) 2019 Rudolf W. MEIJER"
	History:	[
					[0.0 23-Jan-2019 {Start of project}]

meijeru

Red [
	Title: 		"Red program structure checker"
	Purpose:	{Check if brackets/parens are matching in a Red file
				 and give errors with indication of line number}
	Author:		"Rudolf W. MEIJER"
	File:		%check-structure.red
	History:	[
					[0.0 04-Jan-2019 {Start of project}]
					[0.5 05-Jan-2019 {First working version}]
					[0.6 01-Feb-2019 {Added %" "}]

meijeru

Red [
	Title: 		"Case folding table converter"
	Purpose:	{Transform Unicode data file into Red/System literal array} 
	Author:		"Rudolf W. MEIJER"
	File:		%convert.red
	Version:	0.1
	Rights:		Copyright (c) 2018 Rudolf W. Meijer
	History:	[
					[0.1 2-Jul-2018 {Start of project}]
				]

meijeru

<h3>String conversions</h3> 
<table border=0 cellspacing=1 cellpadding=5 bgcolor=gray> 
<tr> 
<th>type</th> 
<th>expression</th> 
<th>to-string</th> 
<th>form</th> 
<th>mold</th> 
<th>mold/all</th> 
</tr> 

meijeru

Red [
	Title:		"String conversion explorer"
	Purpose:	{Show application of to-string, form and mold(/all) on all types}
	Author:		"Rudolf W. MEIJER"
	File:		%form-explorer.red
	Date:		8-Jun-2018
	Notes:		{Baed on earlier attempt for Rebol}
	Language:	'English
	Tabs:		4
]

meijeru

to-local-time: func [
  "adjusts a time given as UTC, or a date containing a time, to the local timezone"
  d [time! date!]
][
  either time? d
  [
    d + now/zone
  ][
    if d/timezone [
      d/timezone: now/zone