diff options
author | Siri Hansen <siri@erlang.org> | 2011-06-30 17:36:28 +0200 |
---|---|---|
committer | Siri Hansen <siri@erlang.org> | 2011-06-30 17:36:28 +0200 |
commit | 2695e672634dfc94ff91fb5f58dd8695e9805e2c (patch) | |
tree | 8f9d34d464cb89506e2864b118d0fcdcfbe30202 | |
parent | b9d8ae5aa52774ed0ce12c9d21ad7f3670c2dca1 (diff) | |
download | otp-2695e672634dfc94ff91fb5f58dd8695e9805e2c.tar.gz otp-2695e672634dfc94ff91fb5f58dd8695e9805e2c.tar.bz2 otp-2695e672634dfc94ff91fb5f58dd8695e9805e2c.zip |
Do not add an empty radio box on the releases tab for the start_clean release
First, the radiobox is changed to a listbox, since this will allow
multiple selections. This is however for future use - for now a
selection will only cause a printout in the erlang shell.
Second, add kernel and stdlib to the list of applications in order to
make the picture complete and avoid an empty list (radio) box for the
start_clean release.
-rw-r--r-- | lib/reltool/src/reltool_sys_win.erl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lib/reltool/src/reltool_sys_win.erl b/lib/reltool/src/reltool_sys_win.erl index 76c064f1e7..ca7a5de79c 100644 --- a/lib/reltool/src/reltool_sys_win.erl +++ b/lib/reltool/src/reltool_sys_win.erl @@ -640,15 +640,15 @@ create_main_release_page(#state{book = Book} = S) -> add_release_page(Book, #rel{name = RelName, rel_apps = RelApps}) -> Panel = wxPanel:new(Book, []), Sizer = wxBoxSizer:new(?wxHORIZONTAL), - RelBox = wxRadioBox:new(Panel, - ?wxID_ANY, - "Applications included in the release " ++ RelName, - ?wxDefaultPosition, - ?wxDefaultSize, - [atom_to_list(RA#rel_app.name) || RA <- RelApps], - []), - %% wxRadioBox:setSelection(RelBox, 2), % mandatory - wxEvtHandler:connect(RelBox, command_radiobox_selected, + AppNames = [kernel, stdlib | + [RA#rel_app.name || RA <- RelApps] -- [kernel, stdlib]], + RelBox = wxListBox:new( + Panel,?wxID_ANY, + [{pos,?wxDefaultPosition}, + {size,?wxDefaultSize}, + {choices,[[atom_to_list(AppName)] || AppName <- AppNames]}, + {style,?wxLB_EXTENDED}]), + wxEvtHandler:connect(RelBox, command_listbox_selected, [{userData, {config_rel_cond, RelName}}]), RelToolTip = "Choose which applications that shall " "be included in the release resource file.", |