Skip to content

Instantly share code, notes, and snippets.

Avatar

PeterWAWood PeterWAWood

View GitHub Profile
@PeterWAWood
PeterWAWood / quick-test.reb
Created Jun 22, 2018
Quick Test for Rebol
View quick-test.reb
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 Jun 22, 2018
Quick Test for Rebol
View quick-test.reb
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 Sep 15, 2017
A test of Red's native look and feel
View calculator.red
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 Feb 12, 2019
Entering text into Notepad from Red
View typing.red
Red []
#system [
chr: 1
handle: 0
KEYDOWN: 0
KEYUP: 2
minus-one: -1
pointer-to-minus-one: :minus-one
rs-phrase: ""
View gist:4caea58080c506b7c5e26984e04828cc
Red/System []
sphere!: alias struct! [
radius [integer!]
]
list: declare struct![
item1 [sphere!]
item2 [sphere!]
item3 [sphere!]