Instantly share code, notes, and snippets.

Embed
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"
Link: http://rebolforum.com/index.cgi?f=printtopic&permalink=OneArb2-Jan-2017/11:14:53-8:00&archiveflag=archive
Notes: http://www.rebol.com/docs/view-face-events.html
]
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
]
event
]
]
text 200 "Test" black white
parrot-field 200
parrot-field 200
]
@rgchris

This comment has been minimized.

Show comment
Hide comment
@rgchris

rgchris Sep 24, 2017

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

Owner

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