Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
23
Task/Hello-world-Graphical/NewLISP/hello-world-graphical-1.l
Normal file
23
Task/Hello-world-Graphical/NewLISP/hello-world-graphical-1.l
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
; hello-gui.lsp
|
||||
; oofoe 2012-01-18
|
||||
|
||||
; Initialize GUI server.
|
||||
(load (append (env "NEWLISPDIR") "/guiserver.lsp"))
|
||||
(gs:init)
|
||||
|
||||
; Create window frame.
|
||||
(gs:frame 'Goodbye 100 100 300 200 "Goodbye!")
|
||||
(gs:set-resizable 'Goodbye nil)
|
||||
(gs:set-flow-layout 'Goodbye "center")
|
||||
|
||||
; Add final message.
|
||||
(gs:label 'Message "Goodbye, World!" "center")
|
||||
(gs:add-to 'Goodbye 'Message)
|
||||
|
||||
; Show frame.
|
||||
(gs:set-visible 'Goodbye true)
|
||||
|
||||
; Start event loop.
|
||||
(gs:listen)
|
||||
|
||||
(exit) ; NewLisp normally goes to listener after running script.
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
; Nehal-Singhal 2018-06-05
|
||||
|
||||
> (! "dialog --msgbox GoodbyeWorld! 5 20")
|
||||
; A dialog message box appears on terminal similar to yes/no box.
|
||||
Loading…
Add table
Add a link
Reference in a new issue