Skip to content

Instantly share code, notes, and snippets.

@rgchris

rgchris/parrot-field.r

Created September 24, 2017 21:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rgchris/369ee490f200fd1f1640da92663fdc46 to your computer and use it in GitHub Desktop.
Save rgchris/369ee490f200fd1f1640da92663fdc46 to your computer and use it in GitHub Desktop.
Download ZIP
Parrot Field
Raw
parrot-field.r
#!/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
Copy link
Author

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