This repository is private.
All pages are served over SSL and all pushing and pulling is done over SSH.
No one may fork, clone, or view it unless they are added as a member.
Every repository with this icon (
) is private.
Every repository with this icon (
) is private.
This repository is public.
Anyone may fork, clone, or view it.
Every repository with this icon () is public.
Every repository with this icon (
) is public.
Bryan Kang (author)
Sun Feb 08 18:55:02 -0800 2009
| 3b8e0bf0 » | Bryan Kang | 2008-08-27 | 1 | USING: ui ui.gadgets ui.gadgets.labels ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs accessors ; | |
| 2 | IN: hello | ||||
| 3 | |||||
| 4 | : open-label-window ( -- ) | ||||
| 5 | <pile> 1 >>fill | ||||
| fa49fa7a » | Bryan Kang | 2008-09-16 | 6 | "Factor Gadget" <label> 20 <border> add-gadget | |
| 3b8e0bf0 » | Bryan Kang | 2008-08-27 | 7 | "OK" [ close-window ] <bevel-button> add-gadget | |
| 8 | "Alert" open-window ; | ||||
| 9 | |||||
| 10 | : open-hello-window ( -- ) | ||||
| 11 | "Hello!" [ open-label-window ] <bevel-button> | ||||
| 12 | "Factor" open-window ; | ||||
| 13 | |||||
| 14 | : hello ( -- ) | ||||
| 15 | [ open-hello-window ] with-ui ; | ||||
| 16 | |||||
| 17 | hello | ||||
