Instantly share code, notes, and snippets.

What would you like to do?
Parrot Field
#!/usr/local/bin/rebview -iqvs
Rebol [
Title: "Parrot Field"
Date: 2-Jan-2017
Author: "Christopher Ross-Gill"
view layout [
style parrot-field field feel make ctx-text/edit [
engage: func [face action event] compose [
(:engage) face action event
if event/type = 'key [
set-face first back find face/parent-face/pane face get-face face
text 200 "Test" black white
parrot-field 200
parrot-field 200

This comment has been minimized.

Copy link

rgchris commented Sep 24, 2017

Is for Rebol/View 2.7.8. Based on an answer to this question.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment