suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/gui gtk: drop initial selection of list-box item

Browse Source 
Make behavior on Gtk more consistent with other platforms.
This commit is contained in:
Matthew Flatt 2013-09-12 18:36:24 -06:00
parent 9035e5d1ed
commit 2ea55efeec
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/gui-pkgs/gui-lib/mred/private/wx/gtk/list-box.rkt
View File

@ -137,9 +137,12 @@
(maybe-init-select))
(define/private (maybe-init-select)
(when (and (= (get-selection) -1)
(pair? data))
(set-selection 0)))
;; For consistency with other platforms,
;; don't try to select an item initially.
(when #f
(when (and (= (get-selection) -1)
(pair? data))
(set-selection 0))))
(define gtk (as-gtk-allocation (gtk_scrolled_window_new #f #f)))
(gtk_scrolled_window_set_policy gtk GTK_POLICY_AUTOMATIC GTK_POLICY_ALWAYS)