Skip to content

Instantly share code, notes, and snippets.

View PeterWAWood's full-sized avatar

PeterWAWood PeterWAWood

View GitHub Profile
@PeterWAWood
PeterWAWood / quick-test.reb
Created June 22, 2018 05:17
Quick Test for Rebol
REBOL [
Title: "Simple testing framework"
Author: "Peter W A Wood"
File: %quick-test.reb
Version: 0.1.1
Rights: "Copyright (C) 2011-2016 Peter W A Wood. All rights reserved."
License: "BSD-3"
]
qt: make object! [
@PeterWAWood
PeterWAWood / quick-test.reb
Created June 22, 2018 05:17
Quick Test for Rebol
REBOL [
Title: "Simple testing framework"
Author: "Peter W A Wood"
File: %quick-test.reb
Version: 0.1.1
Rights: "Copyright (C) 2011-2016 Peter W A Wood. All rights reserved."
License: "BSD-3"
]
qt: make object! [
@PeterWAWood
PeterWAWood / calculator.red
Last active September 15, 2017 07:18
A test of Red's native look and feel
Red[
Title: "Calculator"
Author: "Peter W A Wood"
File: %calculator.red
Purpose: "A mac-like calculator to test native look and feel"
Tabs: 4
Rights: "Copyright (C) 2017 Peter W A Wood. All rights reserved."
License: {
Distributed under the Boost Software License, Version 1.0.
See https://github.com/red/red/blob/master/BSL-License.txt
@PeterWAWood
PeterWAWood / typing.red
Last active February 12, 2019 20:55
Entering text into Notepad from Red
Red []
#system [
chr: 1
handle: 0
KEYDOWN: 0
KEYUP: 2
minus-one: -1
pointer-to-minus-one: :minus-one
rs-phrase: ""
Red/System []
sphere!: alias struct! [
radius [integer!]
]
list: declare struct![
item1 [sphere!]
item2 [sphere!]
item3 [sphere!]