newlispfanclub.alh.net

Hi Lutz,

There is someting strange with the Key-binding in your example,
it does not run under linux, when i delete the key-binding line
it works but doe sno exit from newlisp.. Im unable to track the problem..

This works for me (but newlisp does not exit pressing destroy [X] )->

(define (app-example )
(tk "toplevel .appex")
(tk "button .appex.bExit -text Exit -command exit")
(tk "pack .appex.bExit -side top -padx 60 -pady 30"))

This works !
somehow you have to destroy the Main . wm and not the child..
Im unable to do an exit on a key-binding directly, via a seperate procedure
it might perhpas work.

(context 'App)

(define (app-example )
(tk "toplevel .appex")
(tk "bind .appex <Control-c> exit")
(tk "bind .appex <Destroy> {destroy .}")
(tk "button .appex.button -text EXIT -command exit")
(tk "pack .appex.button -side top -padx 60 -pady 30"))

(context 'MAIN)

(tk "wm withdraw .")

(App:app-example)