|
Revision 111, 381 bytes
(checked in by ashley, 10 months ago)
|
|
Split requestors off into %rebgui-requestors.r
Requestors and functions now appear in their respective parent objects
Added new on-resize handler
tab-panel.r and chat.r fixes
RebDOC.r enhancements
|
| Line | |
|---|
| 1 | set-texts: make function! [
|
|---|
| 2 | "Set and show text attribute of a block of widgets."
|
|---|
| 3 | faces [block!] "Widgets"
|
|---|
| 4 | text [any-type!] "Text or block of text"
|
|---|
| 5 | /no-show "Don't show"
|
|---|
| 6 | ][
|
|---|
| 7 | unless block? text [text: reduce [text]]
|
|---|
| 8 | foreach face reduce faces [
|
|---|
| 9 | set-text face first text
|
|---|
| 10 | unless 1 = length? text [text: next text]
|
|---|
| 11 | ]
|
|---|
| 12 | text: head text
|
|---|
| 13 | unless no-show [show faces]
|
|---|
| 14 | ] |
|---|
