← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

Viewing changes to lib/debugger/src/dbg_wx_mon_win.erl

  • Committer: Bazaar Package Importer
  • Author(s): Clint Byrum
  • Date: 2011-05-05 15:48:43 UTC
  • mfrom: (3.5.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110505154843-0om6ekzg6m7ugj27
Tags: 1:14.b.2-dfsg-3ubuntu1
* Merge from debian unstable.  Remaining changes:
  - Drop libwxgtk2.8-dev build dependency. Wx isn't in main, and not
    supposed to.
  - Drop erlang-wx binary.
  - Drop erlang-wx dependency from -megaco, -common-test, and -reltool, they
    do not really need wx. Also drop it from -debugger; the GUI needs wx,
    but it apparently has CLI bits as well, and is also needed by -megaco,
    so let's keep the package for now.
  - debian/patches/series: Do what I meant, and enable build-options.patch
    instead.
* Additional changes:
  - Drop erlang-wx from -et
* Dropped Changes:
  - patches/pcre-crash.patch: CVE-2008-2371: outer level option with
    alternatives caused crash. (Applied Upstream)
  - fix for ssl certificate verification in newSSL: 
    ssl_cacertfile_fix.patch (Applied Upstream)
  - debian/patches/series: Enable native.patch again, to get stripped beam
    files and reduce the package size again. (build-options is what
    actually accomplished this)
  - Remove build-options.patch on advice from upstream and because it caused
    odd build failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/debugger/src/dbg_wx_mon_win.erl
1
1
%%
2
2
%% %CopyrightBegin%
3
 
%% 
4
 
%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
5
 
%% 
 
3
%%
 
4
%% Copyright Ericsson AB 2008-2010. All Rights Reserved.
 
5
%%
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
8
8
%% compliance with the License. You should have received a copy of the
9
9
%% Erlang Public License along with this software. If not, it can be
10
10
%% retrieved online at http://www.erlang.org/.
11
 
%% 
 
11
%%
12
12
%% Software distributed under the License is distributed on an "AS IS"
13
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
14
%% the License for the specific language governing rights and limitations
15
15
%% under the License.
16
 
%% 
 
16
%%
17
17
%% %CopyrightEnd%
18
18
%%
19
19
 
104
104
    Hlb = 200,
105
105
    Listbox = wxListBox:new(Panel, ?wxID_ANY, [{size,{?Wf,Hlb}},
106
106
                                               {style,?wxLB_SINGLE}]),
107
 
    wxSizer:add(LeftSz,Listbox,[{border, 3}]),
 
107
    wxSizer:add(LeftSz,Listbox,[{proportion,1}, {border,3}]),
108
108
    wxListBox:connect(Listbox, command_listbox_doubleclicked),
109
109
    wxListBox:connect(Listbox, right_down),
110
110
 
266
266
add_module(WinInfo, MenuName, Mod) ->
267
267
    Win = WinInfo#winInfo.window,
268
268
    Modules = WinInfo#winInfo.modules,
269
 
    case lists:keysearch(Mod, #moduleInfo.module, Modules) of
270
 
        {value, _ModInfo} -> WinInfo;
 
269
    case lists:keymember(Mod, #moduleInfo.module, Modules) of
271
270
        false ->
272
271
            %% Create a menu for the module
273
272
            Menu = get(MenuName),
284
283
            wxListBox:append(WinInfo#winInfo.listbox, atom_to_list(Mod)),
285
284
            
286
285
            ModInfo = #moduleInfo{module=Mod, menubtn={Menu,MenuBtn}},
287
 
            WinInfo#winInfo{modules=[ModInfo | Modules]}
288
 
    end.
 
286
            WinInfo#winInfo{modules=[ModInfo | Modules]};
 
287
        true -> WinInfo
 
288
   end.
289
289
    
290
290
%%--------------------------------------------------------------------
291
291
%% delete_module(WinInfo, Mod) -> WinInfo
559
559
handle_event(#wx{event=#wxList{type=command_list_item_selected,
560
560
                               itemIndex=Row}}, WinInfo) ->
561
561
    #winInfo{processes=Pids} = WinInfo,
562
 
    {value, #procInfo{pid=Pid}} = 
563
 
        lists:keysearch(Row, #procInfo.row, Pids),
 
562
    #procInfo{pid=Pid} = lists:keyfind(Row, #procInfo.row, Pids),
564
563
    {focus, Pid, WinInfo#winInfo{focus=Row}};
565
564
handle_event(#wx{event=#wxList{type=command_list_item_activated}}, 
566
565
             _WinInfo) ->