|
Revision 111, 424 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 | clear-text: make function! [
|
|---|
| 2 | "Clear text attribute of a widget or block of widgets."
|
|---|
| 3 | face [object! block!]
|
|---|
| 4 | /no-show "Don't show"
|
|---|
| 5 | /focus
|
|---|
| 6 | ][
|
|---|
| 7 | foreach f reduce either object? face [[face]] [face] [
|
|---|
| 8 | if string? f/text [
|
|---|
| 9 | clear f/text
|
|---|
| 10 | all [f/type = 'area f/para/scroll: 0x0 f/pane/data: 0]
|
|---|
| 11 | f/line-list: none
|
|---|
| 12 | ]
|
|---|
| 13 | ]
|
|---|
| 14 | unless no-show [
|
|---|
| 15 | either all [focus object? face] [set-focus face] [show face]
|
|---|
| 16 | ]
|
|---|
| 17 | ] |
|---|
