ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/cfplus
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.19 by elmex, Sat May 27 21:15:57 2006 UTC vs.
Revision 1.20 by root, Sun May 28 00:40:52 2006 UTC

… …
385 385
386sub make_gauge_window { 386sub make_gauge_window {
387 my $gh = int $HEIGHT * $CFG->{gauge_size}; 387 my $gh = int $HEIGHT * $CFG->{gauge_size};
388 388
389 my $win = new CFClient::UI::Frame ( 389 my $win = new CFClient::UI::Frame (
390 req_x => 0,
390 req_y => -1, 391 req_y => -1,
391 user_w => $WIDTH, 392 def_w => $WIDTH,
392 user_h => $gh, 393 def_h => $gh,
393 ); 394 );
394 395
395 $win->add (my $hbox = new CFClient::UI::HBox 396 $win->add (my $hbox = new CFClient::UI::HBox
396 children => [ 397 children => [
397 (new CFClient::UI::HBox expand => 1), 398 (new CFClient::UI::HBox expand => 1),
… …
833 name => "message_window", 834 name => "message_window",
834 title => "Messages", 835 title => "Messages",
835 border_bg => [1, 1, 1, 1], 836 border_bg => [1, 1, 1, 1],
836 bg => [0, 0, 0, 0.75], 837 bg => [0, 0, 0, 0.75],
837 req_x => -1, 838 req_x => -1,
839 req_y => 0,
838 user_w => int $::WIDTH / 3, 840 def_w => int $::WIDTH / 3,
839 user_h => int $::HEIGHT / 5, 841 def_h => int $::HEIGHT / 5,
840 child => (my $vbox = new CFClient::UI::VBox); 842 child => (my $vbox = new CFClient::UI::VBox);
841 843
842 $vbox->add ($LOGVIEW); 844 $vbox->add ($LOGVIEW);
843 845
844 $vbox->add (my $input = new CFClient::UI::Entry 846 $vbox->add (my $input = new CFClient::UI::Entry
… …
914 } 916 }
915} 917}
916 918
917sub make_inventory_window { 919sub make_inventory_window {
918 my $invwin = new CFClient::UI::FancyFrame 920 my $invwin = new CFClient::UI::FancyFrame
919 user_w => $WIDTH * (7/8), 921 def_w => $WIDTH * (7/8),
920 user_h => $HEIGHT * (7/8), 922 def_h => $HEIGHT * (7/8),
921 title => "Inventory", 923 title => "Inventory",
922 name => "inventory_window", 924 name => "inventory_window",
923 on_visibility_change => sub { 925 on_visibility_change => sub {
924 $_[0]->show_centered if $_[1] 926 $_[0]->show_centered if $_[1]
925 }; 927 };
926 928
927 $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); 929 $invwin->add (my $hb = new CFClient::UI::HBox expand => 1);
… …
950 $invwin 952 $invwin
951} 953}
952 954
953sub make_help_window { 955sub make_help_window {
954 my $win = new CFClient::UI::FancyFrame 956 my $win = new CFClient::UI::FancyFrame
955 user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Documentation"; 957 def_w => int $WIDTH * 7/8,
958 def_h => int $HEIGHT * 7/8,
959 title => "Documentation";
956 960
957 $win->add (my $vbox = new CFClient::UI::VBox); 961 $win->add (my $vbox = new CFClient::UI::VBox);
958 962
959 $vbox->add (my $buttons = new CFClient::UI::HBox); 963 $vbox->add (my $buttons = new CFClient::UI::HBox);
960 $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); 964 $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines