diff options
| author | Kostis Sagonas <[email protected]> | 2010-02-07 21:15:42 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2010-06-07 13:44:27 +0200 |
| commit | 9e962d71c6320e224025f86070f4f9421b51fea0 (patch) | |
| tree | 29e4814fb8df96b8ed2ae5dab63ce34ec24a1158 /lib/debugger/src/dbg_ui_win.erl | |
| parent | 3647defb6f32d471355017967bdebb83b5c6224c (diff) | |
| download | otp-9e962d71c6320e224025f86070f4f9421b51fea0.tar.gz otp-9e962d71c6320e224025f86070f4f9421b51fea0.tar.bz2 otp-9e962d71c6320e224025f86070f4f9421b51fea0.zip | |
debugger: Clean up as suggested by tidier
Diffstat (limited to 'lib/debugger/src/dbg_ui_win.erl')
| -rw-r--r-- | lib/debugger/src/dbg_ui_win.erl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/debugger/src/dbg_ui_win.erl b/lib/debugger/src/dbg_ui_win.erl index 9840aa54da..c7bb3c58ae 100644 --- a/lib/debugger/src/dbg_ui_win.erl +++ b/lib/debugger/src/dbg_ui_win.erl @@ -24,7 +24,6 @@ create_menus/2, select/2, selected/1, add_break/2, update_break/2, delete_break/1, motion/2 - ]). -record(break, {mb, smi, emi, dimi, demi}). @@ -49,11 +48,11 @@ init() -> font(Style) -> GS = init(), Style2 = if - Style==normal -> []; + Style =:= normal -> []; true -> [Style] end, case gs:read(GS, {choose_font, {screen,Style2,12}}) of - Font when element(1, Font)==screen -> + Font when element(1, Font) =:= screen -> Font; _ -> gs:read(GS, {choose_font, {courier,Style2,12}}) @@ -171,8 +170,7 @@ select(MenuItem, Bool) -> %%-------------------------------------------------------------------- selected(Menu) -> Children = gs:read(Menu, children), - Selected = lists:filter(fun(Child) -> gs:read(Child, select) end, - Children), + Selected = [gs:read(Child, select) || Child <- Children], lists:map(fun(Child) -> {text, Name} = gs:read(Child, label), list_to_atom(Name) |