commit 9ae604a96c48d4769cc14e91a5b5427cf66aa90e parent d047fc4128debedff05244059a235a3d7d5f479e Author: Yuval Langer <yuval.langer@gmail.com> Date: Sat, 15 Jun 2024 16:02:26 +0300 Define the names at the end and not in the middle. Diffstat:
| M | pstk.scm | | | 215 | ++++++++++++++++++++++++++++++++++++++++--------------------------------------- |
1 file changed, 108 insertions(+), 107 deletions(-)
diff --git a/pstk.scm b/pstk.scm @@ -172,60 +172,61 @@ (string=? "text" (symbol->string 'text:)) (string=? "text" (symbol->string ':text)))) -(define tk #f) -(define tk-dispatch-event #f) -(define tk-end #f) -(define tk-eval #f) -(define tk-event-loop #f) -(define tk-get-var #f) -(define tk-id->widget #f) -(define tk-set-var! #f) -(define tk-start #f) -(define tk-var #f) -(define tk-wait-for-window #f) -(define tk-wait-until-visible #f) -(define tk-with-lock #f) -(define tk/after #f) -(define tk/appname #f) -(define tk/bell #f) -(define tk/bgerror #f) -(define tk/bind #f) -(define tk/bindtags #f) -(define tk/caret #f) -(define tk/choose-color #f) -(define tk/choose-directory #f) -(define tk/clipboard #f) -(define tk/destroy #f) -(define tk/dialog #f) -(define tk/event #f) -(define tk/focus #f) -(define tk/focus-follows-mouse #f) -(define tk/focus-next #f) -(define tk/focus-prev #f) -(define tk/get-open-file #f) -(define tk/get-save-file #f) -(define tk/grab #f) -(define tk/grid #f) -(define tk/image #f) -(define tk/lower #f) -(define tk/message-box #f) -(define tk/option #f) -(define tk/pack #f) -(define tk/place #f) -(define tk/popup #f) -(define tk/raise #f) -(define tk/scaling #f) -(define tk/selection #f) -(define tk/update #f) -(define tk/useinputmethods #f) -(define tk/wait #f) -(define tk/windowingsystem #f) -(define tk/winfo #f) -(define tk/wm #f) -(define ttk-map-widgets #f) -(define ttk/available-themes #f) -(define ttk/set-theme #f) -(define ttk/style #f) +;; XXX: Commenting out because we are going to define them at the end. +;; (define tk #f) +;; (define tk-dispatch-event #f) +;; (define tk-end #f) +;; (define tk-eval #f) +;; (define tk-event-loop #f) +;; (define tk-get-var #f) +;; (define tk-id->widget #f) +;; (define tk-set-var! #f) +;; (define tk-start #f) +;; (define tk-var #f) +;; (define tk-wait-for-window #f) +;; (define tk-wait-until-visible #f) +;; (define tk-with-lock #f) +;; (define tk/after #f) +;; (define tk/appname #f) +;; (define tk/bell #f) +;; (define tk/bgerror #f) +;; (define tk/bind #f) +;; (define tk/bindtags #f) +;; (define tk/caret #f) +;; (define tk/choose-color #f) +;; (define tk/choose-directory #f) +;; (define tk/clipboard #f) +;; (define tk/destroy #f) +;; (define tk/dialog #f) +;; (define tk/event #f) +;; (define tk/focus #f) +;; (define tk/focus-follows-mouse #f) +;; (define tk/focus-next #f) +;; (define tk/focus-prev #f) +;; (define tk/get-open-file #f) +;; (define tk/get-save-file #f) +;; (define tk/grab #f) +;; (define tk/grid #f) +;; (define tk/image #f) +;; (define tk/lower #f) +;; (define tk/message-box #f) +;; (define tk/option #f) +;; (define tk/pack #f) +;; (define tk/place #f) +;; (define tk/popup #f) +;; (define tk/raise #f) +;; (define tk/scaling #f) +;; (define tk/selection #f) +;; (define tk/update #f) +;; (define tk/useinputmethods #f) +;; (define tk/wait #f) +;; (define tk/windowingsystem #f) +;; (define tk/winfo #f) +;; (define tk/wm #f) +;; (define ttk-map-widgets #f) +;; (define ttk/available-themes #f) +;; (define ttk/set-theme #f) +;; (define ttk/style #f) (define tk-throw (let ((enabled #f)) @@ -847,58 +848,58 @@ ;;; Start weird letrec body: -(set! tk-eval eval-wish) -(set! tk-id->widget id->widget) -(set! tk-var var) -(set! tk-get-var get-var) -(set! tk-set-var! set-var!) -(set! tk-start start) -(set! tk-end end-tk) -(set! tk-dispatch-event dispatch-event) -(set! tk-event-loop event-loop) -(set! tk-wait-for-window wait-for-window) -(set! tk-wait-until-visible wait-until-visible) -(set! tk-with-lock with-lock) -(set! tk/after (make-wish-func 'after)) -(set! tk/bell (make-wish-func 'bell)) -(set! tk/update (make-wish-func 'update)) -(set! tk/clipboard (make-wish-func 'clipboard)) -(set! tk/bgerror (make-wish-func 'bgerror)) -(set! tk/bind (make-wish-func 'bind)) -(set! tk/bindtags (make-wish-func 'bindtags)) -(set! tk/destroy (make-wish-func 'destroy)) -(set! tk/event (make-wish-func 'event)) -(set! tk/focus (make-wish-func 'focus)) -(set! tk/grab (make-wish-func 'grab)) -(set! tk/grid (make-wish-func 'grid)) -(set! tk/image (make-wish-func 'image)) -(set! tk/lower (make-wish-func 'lower)) -(set! tk/option (make-wish-func 'option)) -(set! tk/pack (make-wish-func 'pack)) -(set! tk/place (make-wish-func 'place)) -(set! tk/raise (make-wish-func 'raise)) -(set! tk/selection (make-wish-func 'selection)) -(set! tk/winfo (make-wish-func 'winfo)) -(set! tk/wm (make-wish-func 'wm)) -(set! tk/choose-color (make-wish-func "tk_chooseColor")) -(set! tk/choose-directory (make-wish-func "tk_chooseDirectory")) -(set! tk/dialog (make-wish-func "tk_dialog")) -(set! tk/get-open-file (make-wish-func "tk_getOpenFile")) -(set! tk/get-save-file (make-wish-func "tk_getSaveFile")) -(set! tk/message-box (make-wish-func "tk_messageBox")) -(set! tk/focus-follows-mouse (make-wish-func "tk_focusFollowsMouse")) -(set! tk/focus-next (make-wish-func "tk_focusNext")) -(set! tk/focus-prev (make-wish-func "tk_focusPrev")) -(set! tk/popup (make-wish-func "tk_popup")) -(set! tk/wait (lambda args (make-wish-func 'tkwait))) -(set! tk/appname (make-wish-func "tk appname")) -(set! tk/caret (make-wish-func "tk caret")) -(set! tk/scaling (make-wish-func "tk scaling")) -(set! tk/useinputmethods (make-wish-func "tk useinputmethods")) -(set! tk/windowingsystem (make-wish-func "tk windowingsystem")) -(set! ttk/available-themes ttk-available-themes) -(set! ttk/set-theme (make-wish-func "ttk::style theme use")) -(set! ttk/style (make-wish-func "ttk::style")) -(set! ttk-map-widgets map-ttk-widgets) +(define tk-eval eval-wish) +(define tk-id->widget id->widget) +(define tk-var var) +(define tk-get-var get-var) +(define tk-set-var! set-var!) +(define tk-start start) +(define tk-end end-tk) +(define tk-dispatch-event dispatch-event) +(define tk-event-loop event-loop) +(define tk-wait-for-window wait-for-window) +(define tk-wait-until-visible wait-until-visible) +(define tk-with-lock with-lock) +(define tk/after (make-wish-func 'after)) +(define tk/bell (make-wish-func 'bell)) +(define tk/update (make-wish-func 'update)) +(define tk/clipboard (make-wish-func 'clipboard)) +(define tk/bgerror (make-wish-func 'bgerror)) +(define tk/bind (make-wish-func 'bind)) +(define tk/bindtags (make-wish-func 'bindtags)) +(define tk/destroy (make-wish-func 'destroy)) +(define tk/event (make-wish-func 'event)) +(define tk/focus (make-wish-func 'focus)) +(define tk/grab (make-wish-func 'grab)) +(define tk/grid (make-wish-func 'grid)) +(define tk/image (make-wish-func 'image)) +(define tk/lower (make-wish-func 'lower)) +(define tk/option (make-wish-func 'option)) +(define tk/pack (make-wish-func 'pack)) +(define tk/place (make-wish-func 'place)) +(define tk/raise (make-wish-func 'raise)) +(define tk/selection (make-wish-func 'selection)) +(define tk/winfo (make-wish-func 'winfo)) +(define tk/wm (make-wish-func 'wm)) +(define tk/choose-color (make-wish-func "tk_chooseColor")) +(define tk/choose-directory (make-wish-func "tk_chooseDirectory")) +(define tk/dialog (make-wish-func "tk_dialog")) +(define tk/get-open-file (make-wish-func "tk_getOpenFile")) +(define tk/get-save-file (make-wish-func "tk_getSaveFile")) +(define tk/message-box (make-wish-func "tk_messageBox")) +(define tk/focus-follows-mouse (make-wish-func "tk_focusFollowsMouse")) +(define tk/focus-next (make-wish-func "tk_focusNext")) +(define tk/focus-prev (make-wish-func "tk_focusPrev")) +(define tk/popup (make-wish-func "tk_popup")) +(define tk/wait (lambda args (make-wish-func 'tkwait))) +(define tk/appname (make-wish-func "tk appname")) +(define tk/caret (make-wish-func "tk caret")) +(define tk/scaling (make-wish-func "tk scaling")) +(define tk/useinputmethods (make-wish-func "tk useinputmethods")) +(define tk/windowingsystem (make-wish-func "tk windowingsystem")) +(define ttk/available-themes ttk-available-themes) +(define ttk/set-theme (make-wish-func "ttk::style theme use")) +(define ttk/style (make-wish-func "ttk::style")) +(define ttk-map-widgets map-ttk-widgets) ;;; End weird letrec body.