← Back to branch summary

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

« back to all changes in this revision

Viewing changes to lib/debugger/src/dbg_ui_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_ui_win.erl
1
1
%%
2
2
%% %CopyrightBegin%
3
 
%% 
4
 
%% Copyright Ericsson AB 2002-2009. All Rights Reserved.
5
 
%% 
 
3
%%
 
4
%% Copyright Ericsson AB 2002-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
-module(dbg_ui_win).
24
24
         create_menus/2, select/2, selected/1,
25
25
         add_break/2, update_break/2, delete_break/1,
26
26
         motion/2
27
 
         
28
27
        ]).
29
28
 
30
29
-record(break, {mb, smi, emi, dimi, demi}).
49
48
font(Style) ->
50
49
    GS = init(),
51
50
    Style2 = if
52
 
                 Style==normal -> [];
 
51
                 Style =:= normal -> [];
53
52
                 true -> [Style]
54
53
             end,
55
54
    case gs:read(GS, {choose_font, {screen,Style2,12}}) of
56
 
        Font when element(1, Font)==screen ->
 
55
        Font when element(1, Font) =:= screen ->
57
56
            Font;
58
57
        _ ->
59
58
            gs:read(GS, {choose_font, {courier,Style2,12}})
76
75
 
77
76
min_size(GS, Font, [String|Strings], MinW, MinH) ->
78
77
    {W, H} = gs:read(GS, {font_wh, {Font, String}}),
79
 
    min_size(GS, Font, Strings, max(MinW, W), max(MinH, H));
 
78
    min_size(GS, Font, Strings, erlang:max(MinW, W), erlang:max(MinH, H));
80
79
min_size(_GS, _Font, [], W, H) ->
81
80
    {W, H}.
82
81
 
83
 
max(X, Y) when X>Y -> X;
84
 
max(_X, Y) -> Y.
85
 
 
86
82
%%--------------------------------------------------------------------
87
83
%% create_menus(MenuBar, [Menu])
88
84
%%   MenuBar = gsobj()
171
167
%%--------------------------------------------------------------------
172
168
selected(Menu) ->
173
169
    Children = gs:read(Menu, children),
174
 
    Selected = lists:filter(fun(Child) -> gs:read(Child, select) end,
175
 
                            Children),
 
170
    Selected = [gs:read(Child, select) || Child <- Children],
176
171
    lists:map(fun(Child) ->
177
172
                      {text, Name} = gs:read(Child, label),
178
173
                      list_to_atom(Name)