← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/tv/src/tv_info.erl

  • Committer: Bazaar Package Importer
  • Author(s): Erlang Packagers, Sergei Golovan
  • Date: 2006-12-03 17:07:44 UTC
  • mfrom: (2.1.11 feisty)
  • Revision ID: james.westby@ubuntu.com-20061203170744-rghjwupacqlzs6kv
Tags: 1:11.b.2-4
[ Sergei Golovan ]
Fixed erlang-base and erlang-base-hipe prerm scripts.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/tv/src/tv_info.erl
183
183
 
184
184
    CardIds = print_cards(TabType, TableIdCard, BasicSettingsCard, SizeCard, StorageCard),
185
185
 
186
 
    {CardId, FirstMaskXpos} = gs:read(TableIdFlap, data),
 
186
    {_CardId, FirstMaskXpos} = gs:read(TableIdFlap, data),
187
187
    Mask = gs:label(WinFrame, [{width, gs:read(TableIdFlap, width) - 2 * gs:read(TableIdFlap, bw) + 1},
188
188
                               {height, gs:read(TableIdCard, bw)},
189
189
                               {x, FirstMaskXpos},
699
699
 
700
700
 
701
701
 
702
 
create_flap(N, Text, ParentId) ->
 
702
create_flap(N, _Text, ParentId) ->
703
703
    Width       = 120,
704
704
    Height      = 40,
705
705
    Spacing     = 2,
708
708
    Ypos        = 5,
709
709
    BorderWidth = 2,
710
710
    
711
 
    FlapId = gs:frame(ParentId, [{width, Width},
712
 
                                 {height, Height},
713
 
                                 {x, Xpos},
714
 
                                 {y, Ypos},
715
 
                                 {bg, ?DEFAULT_BG_COLOR},
716
 
                                 {bw, BorderWidth},
717
 
                                 {cursor, hand},
718
 
                                 {buttonpress, true},
719
 
                                 {data, Xpos + BorderWidth}
720
 
                                ]).
 
711
    gs:frame(ParentId, [{width, Width},
 
712
                        {height, Height},
 
713
                        {x, Xpos},
 
714
                        {y, Ypos},
 
715
                        {bg, ?DEFAULT_BG_COLOR},
 
716
                        {bw, BorderWidth},
 
717
                        {cursor, hand},
 
718
                        {buttonpress, true},
 
719
                        {data, Xpos + BorderWidth}
 
720
                       ]).
721
721
                                   
722
722
 
723
723
 
785
785
        #info_quit{} ->
786
786
            exit(normal);
787
787
 
788
 
        {gs, FlapId, buttonpress, {CardId, Xpos}, [1 | _]} ->
 
788
        {gs, _FlapId, buttonpress, {CardId, Xpos}, [1 | _]} ->
789
789
            gs:config(CardId, [raise
790
790
                              ]),
791
791
            gs:config(MaskLabel, [raise,
793
793
                                 ]),
794
794
            loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType);
795
795
 
796
 
        {gs, _Id, buttonpress, {CardId, Xpos}, _Args} ->
 
796
        {gs, _Id, buttonpress, {_CardId, _Xpos}, _Args} ->
797
797
            loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType);
798
798
 
799
 
        {gs, LblId, enter, _Data, _Args} ->
 
799
        {gs, _LblId, enter, _Data, _Args} ->
800
800
            loop(CardIds, MaskLabel, Node, LocalNode, TabId, TabType);
801
801
        
802
802
        {gs, WinId, configure, _Data, _Args} ->
843
843
        {gs, _Id, destroy, _Data, _Args} ->
844
844
            exit(normal);
845
845
 
846
 
        {'EXIT', Pid, Reaon} ->
 
846
        {'EXIT', _Pid, _Reason} ->
847
847
            exit(normal);
848
848
 
849
849
        {error_msg_mode, Mode} ->