USING: kernel io ui ui.gadgets.labels ui.gadgets.buttons ui.gadgets ui.gadgets.packs ui.gadgets.borders accessors ; IN: uilearn : okaywindow ( -- ) <filled-pile> { 2 2 } >>gap "Seth likes the cock. Click Okay to continue." <label> add-gadget "Okay" [ close-window ] <border-button> add-gadget "Seriously." open-window ; : create-button ( -- button ) "Do Magic" [ drop okaywindow ] <border-button> ; : main ( -- ) [ <filled-pile> { 2 2 } >>gap "Click below to do magic :>" <label> add-gadget create-button add-gadget { 30 30 } <border> "Hi Seth" open-window ] with-ui ; MAIN: main
Done