From: Saba Saba Date: Thu, 9 Feb 2023 17:26:22 +0000 (-0500) Subject: Listboxes now use the expanded selection mode. X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=76e89471ee536e3cc3b2c3d7d1d426c97d3378bd;p=git-repl.git Listboxes now use the expanded selection mode. --- diff --git a/git-repl.cl b/git-repl.cl index 04a6436..7962253 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -250,10 +250,11 @@ (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) (funcall refresh-action) (ltk:configure content :padding "5 5 5 5") - (ltk:grid-columnconfigure ltk:*tk* 0 :weight 1) (ltk:grid-rowconfigure ltk:*tk* 0 :weight 1)