Listboxes now use the expanded selection mode.

diff --git a/git-repl.cl b/git-repl.cl
index 04a6436..7962253 100644 (file)
--- 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)