Skip to content

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.

Copy link
Owner Author

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
You can’t perform that action at this time.