PeterWAWood PeterWAWood
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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! [ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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
/ calculator.red
Last active
September 15, 2017 07:18
A test of Red's native look and feel
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Red [] | |
| #system [ | |
| chr: 1 | |
| handle: 0 | |
| KEYDOWN: 0 | |
| KEYUP: 2 | |
| minus-one: -1 | |
| pointer-to-minus-one: :minus-one | |
| rs-phrase: "" |
PeterWAWood
/ gist:4caea58080c506b7c5e26984e04828cc
Last active
October 19, 2016 09:18
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Red/System [] | |
| sphere!: alias struct! [ | |
| radius [integer!] | |
| ] | |
| list: declare struct![ | |
| item1 [sphere!] | |
| item2 [sphere!] | |
| item3 [sphere!] |