From: Saba Saba Date: Thu, 9 Feb 2023 17:26:22 +0000 (-0500) Subject: Changed listbox selection mode to multiple. X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=d89495b1bcfa32ee2a2d3b2bf710a330ad8f4569;p=git-repl.git Changed listbox selection mode to multiple. --- diff --git a/git-repl.cl b/git-repl.cl index 7962253..51abdf8 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -215,8 +215,8 @@ "Executes the mergetool configured with git" (git "mergetool")) -(defparameter *skipped-files* (skipped-files)) -(defparameter *modified-files* (modified-files)) +(defparameter *skipped-files* (skipped-files) "Stores the currently skipped files for use by interactive-skip") +(defparameter *modified-files* (modified-files) "Stores the currently modified files for use by interactive-skip") (defun handle-interactive-skip (action refresh-action listbox item-type) (lambda () @@ -236,6 +236,7 @@ (ltk:listbox-append modified-file-list *modified-files*))) (defun-public interactive-skip () + "Displays a window that lets you skip and unskip files interactively" (ltk:with-ltk () (ltk:wm-title ltk:*tk* "Interactive Skipper") (let* ((content (make-instance 'ltk:frame)) @@ -250,8 +251,8 @@ (skip-button (make-instance 'ltk:button :text "← Skip" :master button-content :command (handle-interactive-skip #'skip-file refresh-action modified-file-list 'modified))) (no-skip-button (make-instance 'ltk:button :text "Unskip →" :master button-content :command (handle-interactive-skip #'no-skip-file refresh-action skipped-file-list 'skipped))) (refresh-button (make-instance 'ltk:button :text "Refresh" :command refresh-action :master button-content))) - (ltk:configure (ltk:listbox skipped-file-list) :selectmode 'expanded) - (ltk:configure (ltk:listbox modified-file-list) :selectmode 'expanded) + (ltk:configure (ltk:listbox skipped-file-list) :selectmode 'multiple) + (ltk:configure (ltk:listbox modified-file-list) :selectmode 'multiple) (funcall refresh-action) (ltk:configure content :padding "5 5 5 5")