From 76e89471ee536e3cc3b2c3d7d1d426c97d3378bd Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:22 -0500 Subject: [PATCH] Listboxes now use the expanded selection mode. --- git-repl.cl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.20.1