diff options
author | Dan Gudmundsson <[email protected]> | 2011-02-24 13:29:06 +0100 |
---|---|---|
committer | Dan Gudmundsson <[email protected]> | 2011-03-02 08:16:47 +0100 |
commit | fea31e77b0bf8d8134377ff90d801504bfdb4a0a (patch) | |
tree | dd1b3cd77f5132d013a3bed64b7691ec1a4c7b19 /lib/debugger/src/dbg_wx_view.erl | |
parent | 9b3fd5946a4689f7403e1910ebe9e4a713710df7 (diff) | |
download | otp-fea31e77b0bf8d8134377ff90d801504bfdb4a0a.tar.gz otp-fea31e77b0bf8d8134377ff90d801504bfdb4a0a.tar.bz2 otp-fea31e77b0bf8d8134377ff90d801504bfdb4a0a.zip |
Fix debugger warnings
Diffstat (limited to 'lib/debugger/src/dbg_wx_view.erl')
-rw-r--r-- | lib/debugger/src/dbg_wx_view.erl | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/debugger/src/dbg_wx_view.erl b/lib/debugger/src/dbg_wx_view.erl index 8ff89a4847..6242b9d0e0 100644 --- a/lib/debugger/src/dbg_wx_view.erl +++ b/lib/debugger/src/dbg_wx_view.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2009. All Rights Reserved. +%% Copyright Ericsson AB 2008-2011. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -46,6 +46,9 @@ start(GS, Mod) -> spawn_link(fun () -> init(GS, Env, Mod, Title) end) end. +-spec stop() -> no_return(). +stop() -> + exit(normal). %%==================================================================== %% Main loop and message handling @@ -113,13 +116,13 @@ loop(State) -> end. %%--Commands from the GUI--------------------------------------------- - + gui_cmd(ignore, State) -> State; gui_cmd({win, Win}, State) -> State#state{win=Win}; gui_cmd(stopped, _State) -> - exit(normal); + stop(); gui_cmd({coords, Coords}, State) -> State#state{coords=Coords}; @@ -132,7 +135,7 @@ gui_cmd({shortcut, Key}, State) -> %% File menu gui_cmd('Close', State) -> dbg_wx_trace_win:stop(State#state.win), - gui_cmd(stopped, State); + stop(); %% Edit menu gui_cmd('Go To Line', State) -> |