[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/deliantra

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.18 by root, Wed Dec 26 21:03:21 2007 UTC vs.
Revision 1.22 by root, Sat Dec 29 13:44:31 2007 UTC

 $EV::DIED = sub {
    DC::fatal Carp::longmess $@;
 };
 my $MAX_FPS = 60;
-my $MIN_FPS =  5; # unused as of yet
 our $META_SERVER = "http://metaserver.schmorp.de/current.json";
 our $LAST_REFRESH;
 our $NOW;
             [Cha => CS_STAT_CHA],
          ) {
             my ($name, $id) = @$_;
             $hbox->add (new DC::UI::Label
                markup     => "$conn->{stat}{$id} <span foreground='yellow'>$name</span>",
-               align      => 0,
                expand     => 1,
                can_events => 1,
                can_hover  => 1,
                tooltip    => "#stat_$name",
             );
    $vbox->add (my $table = new DC::UI::Table expand => 1, col_expand => [0, 1]);
    my $row = 0;
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "OpenGL Info");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "OpenGL Info");
-   $table->add_at (1, $row++, new DC::UI::Label valign => 0, fontsize => 0.8, text => DC::OpenGL::gl_vendor . ", " . DC::OpenGL::gl_version,
+   $table->add_at (1, $row++, new DC::UI::Label fontsize => 0.8, text => DC::OpenGL::gl_vendor . ", " . DC::OpenGL::gl_version,
                                                  can_events => 1,
                                                  tooltip => "<tt><span size='8192'>" . (DC::OpenGL::gl_extensions) . "</span></tt>");
    my $vidmode_tooltip =
       "<b>Video Mode.</b> The video mode to use for fullscreen (and the window size for windowed operation). "
     . "The format is <i>width</i> x <i>height</i> \@ <i>depth-per-channel</i> + <i>alpha-channel</i>.";
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Video Mode");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Video Mode");
    $table->add_at (1, $row++, my $hbox = new DC::UI::HBox);
    $hbox->add (my $mode_slider = new DC::UI::Slider
       force_w => $WIDTH * 0.1, expand => 1, range => [$CFG->{sdl_mode}, 0, $#SDL_MODES, 0, 1],
       tooltip => $vidmode_tooltip);
    $hbox->add (my $mode_label = new DC::UI::Label
-      align => 0, valign => 0, height => 0.8, template => "9999x9999@9+9",
+      height => 0.8, template => "9999x9999@9+9",
       can_events => 1, tooltip => $vidmode_tooltip);
    $mode_slider->connect (changed => sub {
       my ($self, $value) = @_;
       $CFG->{sdl_mode} = $self->{range}[0] = $value = int $value;
       $mode_label->set_text (sprintf '%dx%d@%d+%d', @{$SDL_MODES[$value]});
    });
    $mode_slider->emit (changed => $mode_slider->{range}[0]);
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Fullscreen");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fullscreen");
    $table->add_at (1, $row++, $FULLSCREEN_ENABLE = new DC::UI::CheckBox
       state => $CFG->{fullscreen},
       tooltip => "Bring the client into fullscreen mode.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{fullscreen} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Force OpenGL 1.1");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Force OpenGL 1.1");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{force_opengl11},
       tooltip => "Limit CFPlus to use OpenGL 1.1 features only. This will normally result in "
                . "higher memory usage and slower performance. It will, however, help tremendously on "
                . "cards that claim to support a feature but fall back to software rendering. "
                . "but cards and drivers from other vendors (ATI) are often just as bad. <b>If you "
                . "experience extremely low framerates and your card should do better, try this option.</b>",
       on_changed => sub { my ($self, $value) = @_; $CFG->{force_opengl11} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Compress Textures");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Compress Textures");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{texture_compression},
       tooltip => "Use texture compression. Normally this will not reduce visual quality noticable but "
                . "will save a lot of memory and increase performance. The compression algorithm "
                . "can differ form card to card, so your mileage may vary. This setting is ignored in "
                . "forced OpenGL 1.1 mode.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{texture_compression} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Fast & Ugly");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fast & Ugly");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{fast},
       tooltip => "Lower the visual quality considerably to speed up rendering.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{fast} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "GUI Fontsize");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "GUI Fontsize");
    $table->add_at (1, $row++, new DC::UI::Slider
       range => [$CFG->{gui_fontsize}, 0.5, 2, 0, 0.1],
       tooltip => "The base font size used by most GUI elements that do not have their own setting.",
       on_changed => sub { $CFG->{gui_fontsize} = $_[1]; 0 },
    );
    $table->add_at (1, $row++, new DC::UI::Button
-      expand => 1, align => 0, text => "Apply",
+      expand => 1, text => "Apply",
       tooltip => "Apply the video settings above.",
       on_activate => sub {
          video_shutdown ();
          video_init ();
          0
       }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Map Scale");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Map Scale");
    $table->add_at (1, $row++, new DC::UI::Slider
       range      => [(log $CFG->{map_scale}) / (log 2), -3, 1, 0, 1],
       tooltip    => "Enlarge or shrink the displayed map. Changes are instant.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{map_scale} = 2 ** $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Map Smoothing");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Map Smoothing");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{map_smoothing},
       tooltip => "<b>Map Smoothing</b> tries to make tile borders less square. "
                . "This increases load on the graphics subsystem and works only with TRT servers. "
                . "Changes take effect at next login only.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{map_smoothing} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Fog of War");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fog of War");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{fow_enable},
       tooltip => "<b>Fog-of-War</b> marks areas that cannot be seen by the player. Changes are instant.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{fow_enable} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "FoW Intensity");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "FoW Intensity");
    $table->add_at (1, $row++, new DC::UI::Slider
       range => [$CFG->{fow_intensity}, 0, 1, 0, 1 / 256],
       tooltip => "<b>Fog of War Lightness.</b> The higher the intensity, the lighter the Fog-of-War color. Changes are instant.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{fow_intensity} = $value; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Message Fontsize");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Message Fontsize");
    $table->add_at (1, $row++, new DC::UI::Slider
       range => [$CFG->{log_fontsize}, 0.5, 2, 0, 0.1],
       tooltip => "The font size used by the <b>message/server log</b> window only. Changes are instant, "
                . "but you still need to press apply to correctly re-layout the widget.",
       on_changed => sub { $MESSAGE_WINDOW->set_fontsize ($CFG->{log_fontsize} = $_[1]); 0 },
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Gauge fontsize");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Gauge fontsize");
    $table->add_at (1, $row++, new DC::UI::Slider
       range => [$CFG->{gauge_fontsize}, 0.5, 2, 0, 0.1],
       tooltip => "Adjusts the fontsize of the gauges at the bottom right. Changes are instant.",
       on_changed => sub {
          $CFG->{gauge_fontsize} = $_[1];
          &set_gauge_window_fontsize;
          0
       }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Gauge size");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Gauge size");
    $table->add_at (1, $row++, new DC::UI::Slider
       range      => [$CFG->{gauge_size}, 0.2, 0.8],
       tooltip    => "Adjust the size of the stats gauges at the bottom right. Changes are instant.",
       on_changed => sub {
          $CFG->{gauge_size} = $_[1];
    $vbox->add (my $table = new DC::UI::Table expand => 1, col_expand => [0, 0, 1]);
    my $row = 0;
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Audio Enable");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Audio Enable");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state => $CFG->{audio_enable},
       tooltip => "<b>Master Audio Enable.</b> If enabled, sound effects and music will be played. If disabled, no audio will be used and the soundcard will not be opened.",
       on_changed => sub { $CFG->{audio_enable} = $_[1]; 1 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Sound Effects");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Sound Effects");
    $table->add_at (1, $row, new DC::UI::CheckBox
       expand => 1, state => $CFG->{effects_enable},
       tooltip => "If enabled, sound effects are enabled. If disabled, no sound effects will be played.",
       on_changed => sub {
          $CFG->{effects_enable} = $_[1];
       tooltip => "The relative volume of sound effects. Best audio quality is achieved if this "
                  . "is set highest (rightmost) and you use your operating system volume setting. Changes are instant.",
       on_changed => sub { $CFG->{effects_volume} = $_[1]; 1 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Background Music");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Background Music");
    $table->add_at (1, $row, new DC::UI::CheckBox
       expand => 1, state => $CFG->{bgm_enable},
       tooltip => "If enabled, playing of background music is enabled. If disabled, no background music will be played.",
       on_changed => sub {
          $CFG->{bgm_enable} = $_[1];
       expand => 1, range => [$CFG->{bgm_volume}, 0, 1, 0, 1/128],
       tooltip => "The volume of the background music. Changes are instant.",
       on_changed => sub { $CFG->{bgm_volume} = $_[1]; audio_music_update_volume; 0 }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Frequency");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Frequency");
    $table->add_at (1, $row++, new DC::UI::Selector
       c_colspan => 2, expand => 1,
       value => $CFG->{audio_hw_frequency},
       options => [
          [    0, "default" , "Use System Default"],
          audio_tab_update;
          1
       }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Channels");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Channels");
    $table->add_at (1, $row++, new DC::UI::Selector
       c_colspan => 2, expand => 1,
       value => $CFG->{audio_hw_channels},
       options => [
          [0, "default"      , "Use System Default"],
          audio_tab_update;
          1
       }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Latency");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Latency");
    $table->add_at (1, $row++, $AUDIO_HW_CHUNKSIZE = new DC::UI::Selector
       c_colspan => 2, expand => 1,
       value => $CFG->{audio_hw_chunksize},
       tooltip => "The guarenteed latency. Lower is better, but also more cpu-intensive and might cause stuttering. If music playback "
                  . "is stuttering, increase this value. Values of 50-100ms are optimal.",
          1
       }
    );
    # should really be a slider
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Mixer Voices");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Mixer Voices");
    $table->add_at (1, $row++, new DC::UI::ValSlider
       c_colspan => 2, expand => 1,
       tooltip => "The number of simultaneous sound effects possible. Higher is better, but also more cpu-intensive and might cause stuttering.",
       range => [$::CFG->{audio_mix_channels}, 4, 32, 0, 1],
       template => ">= 99",
          1;
       }
    );
    $table->add_at (1, $row++, new DC::UI::Button
-      c_colspan => 2, expand => 1, align => 0, text => "Apply",
+      c_colspan => 2, expand => 1, text => "Apply",
       tooltip => "Apply the audio settings",
       on_activate => sub {
          audio_shutdown ();
          audio_init ();
          0
    $hb->add (my $hg = new DC::UI::Gauge type => 'hp', tooltip => "#stat_health");
    $hb->add (my $mg = new DC::UI::Gauge type => 'mana', tooltip => "#stat_mana");
    $hb->add (my $gg = new DC::UI::Gauge type => 'grace', tooltip => "#stat_grace");
    $hb->add (my $fg = new DC::UI::Gauge type => 'food', tooltip => "#stat_food");
-   $vbox->add (my $exp    = new DC::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");
+   $vbox->add (my $exp    = new DC::UI::Label align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_exp");
    $vbox->add (my $prg    = new DC::UI::ExperienceProgress);
    $vbox->add (my $sklprg = new DC::UI::ExperienceProgress);
-   $vbox->add (my $rng    = new DC::UI::Label valign => 0, align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
+   $vbox->add (my $rng    = new DC::UI::Label align => 1, can_hover => 1, can_events => 1, tooltip => "#stat_ranged");
    $GAUGES = {
       exp => $exp, prg => $prg, sklprg => $sklprg,
       win => $win, range => $rng,
       hp => $hg, mana => $mg, grace => $gg, food => $fg,
    $table->add_at (1, 2, new DC::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 4; 0 });
    $table->add_at (0, 3, new DC::UI::Label text => "Suppress Tooltips");
    $table->add_at (1, 3, new DC::UI::CheckBox on_changed => sub { $ENV{CFPLUS_DEBUG} ^= 8; 0 });
    $table->add_at (0, 4, new DC::UI::Button text => "die on click(tm)", on_activate => sub { &DC::debug() } );
-   $table->add_at (0, 5, new DC::UI::TextEdit text => "line1\0152\0153");#d#
+   $table->add_at (0, 5, new DC::UI::TextEdit text => "line1\0152\0153\nµikachu\nづx゙つ゛");#d#
    $table->add_at (7,7, my $t = new DC::UI::Table expand => 0);
-   $t->add_at (0,0, new DC::UI::Label text => "a a a a", c_rowspan => 1, c_colspan => 2);
+   $t->add_at (0,0, new DC::UI::Label text => "a a", c_rowspan => 1, c_colspan => 2);
-   $t->add_at (2,0, new DC::UI::Label text => "b\nb", c_rowspan => 2, c_colspan => 1);
+   $t->add_at (2,0, new DC::UI::Label text => "b\nb", c_rowspan => 2, c_colspan => 1, ellipsise => 0 );
-   $t->add_at (1,2, new DC::UI::Label text => "c c c c", c_rowspan => 1, c_colspan => 2);
+   $t->add_at (1,2, new DC::UI::Label text => "c c", c_rowspan => 1, c_colspan => 2);
-   $t->add_at (0,1, new DC::UI::Label text => "d\nd", c_rowspan => 2, c_colspan => 1);
+   $t->add_at (0,1, new DC::UI::Label text => "d\nd", c_rowspan => 2, c_colspan => 1, ellipsise => 0 );
    $t->add_at (1,1, new DC::UI::Label text => "e");
    $table->add_at (7, 6, my $c = new DC::UI::Canvas);
    $c->add_items ({
    $vb->add (new DC::UI::FancyFrame
       label => "Player",
       child => (my $pi = new DC::UI::VBox),
    );
-   $pi->add ($STATWIDS->{title} = new DC::UI::Label valign => 0, align => -1, text => "Title:", expand => 1,
+   $pi->add ($STATWIDS->{title} = new DC::UI::Label text => "Title:", expand => 1, align => 0,
       can_hover => 1, can_events => 1,
       tooltip => "Your name and title. You can change your title by using the <b>title</b> command, if supported by the server.");
-   $pi->add ($STATWIDS->{map} = new DC::UI::Label valign => 0, align => -1, text => "Map:", expand => 1,
+   $pi->add ($STATWIDS->{map} = new DC::UI::Label align => 0, text => "Map:", expand => 1,
       can_hover => 1, can_events => 1,
       tooltip => "The map you are currently on (if supported by the server).");
    $pi->add (my $hb0 = new DC::UI::HBox);
-   $hb0->add ($STATWIDS->{weight} = new DC::UI::Label valign => 0, align => -1, text => "Weight:", expand => 1,
+   $hb0->add ($STATWIDS->{weight} = new DC::UI::Label text => "Weight:", expand => 1, align => 0,
       can_hover => 1, can_events => 1,
       tooltip => "The weight of the player including all inventory items.");
-   $hb0->add ($STATWIDS->{m_weight} = new DC::UI::Label valign => 0, align => -1, text => "Max weight:", expand => 1,
+   $hb0->add ($STATWIDS->{m_weight} = new DC::UI::Label align => 0, text => "Max weight:", expand => 1,
       can_hover => 1, can_events => 1,
       tooltip => "The weight limit: you cannot carry more than this.");
    $vb->add (new DC::UI::FancyFrame
       label => "Primary/Secondary Statistics",
       [2, 5, st_wspd => "WSp", 10.54],
    ) {
       my ($col, $row, $id, $label, $template) = @$_;
       $tbl->add_at ($col    , $row, $STATWIDS->{$id} = new DC::UI::Label
-         font => $FONT_FIXED, can_hover => 1, can_events => 1, valign => 0,
+         font => $FONT_FIXED, can_hover => 1, can_events => 1,
-         align => +1, template => $template, tooltip => "#stat_$label");
+         align => 1, template => $template, tooltip => "#stat_$label");
       $tbl->add_at ($col + 1, $row, $STATWIDS->{"$id\_lbl"} = new DC::UI::Label
-         font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2, valign => 0,
+         font => $FONT_FIXED, can_hover => 1, can_events => 1, fg => $color2,
-         align => -1, text => $label, tooltip => "#stat_$label");
+         align => 0, text => $label, tooltip => "#stat_$label");
    }
    $vb->add (new DC::UI::FancyFrame
       label => "Resistancies",
-      child => (my $tbl2 = new DC::UI::Table expand => 1),
+      child => (my $tbl2 = new DC::UI::Table expand => 1, col_expand => [1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0]),
    );
    my $row = 0;
    my $col = 0;
    for (qw/slow holyw conf fire depl magic
            drain acid pois para deat phys
            blind fear tund elec cold ghit/)
    {
-      $tbl2->add_at ($col, $row,
+      $tbl2->add_at ($col + 2, $row,
          $STATWIDS->{"res_$_"} =
             new DC::UI::Label
                font       => $FONT_FIXED,
                template   => "-100%",
-               align      => +1,
+               align      => 1,
-               valign     => 0,
                can_events => 1,
                can_hover  => 1,
                tooltip    => $resist_names{$_}->[1],
       );
       $tbl2->add_at ($col + 1, $row, new DC::UI::Image
          can_hover  => 1,
          can_events => 1,
          path       => "ui/resist/resist_$_.png",
          tooltip    => $resist_names{$_}->[1],
       );
-      $tbl2->add_at ($col + 2, $row, new DC::UI::Label
+      $tbl2->add_at ($col + 0, $row, new DC::UI::Label
          text       => $resist_names{$_}->[0],
          font       => $FONT_FIXED,
+         align      => 1,
          can_hover  => 1,
          can_events => 1,
          tooltip    => $resist_names{$_}->[1],
       );
       $row++;
       if ($row % 6 == 0) {
-         $col += 3;
+         $col += 4;
          $row = 0;
       }
    }
    #update_stats_window ({});
             "The time this server has been running without being restarted.",
             "Short information about this server provided by its admins.",
          );
          my @col = qw(#Users Host Uptime Version Description);
          $table->add_at ($_, 0, new DC::UI::Label
-            can_hover => 1, can_events => 1,
+            can_hover => 1, can_events => 1, fg => [1, 1, 0],
-            align => 0, fg => [1, 1, 0],
             text => $col[$_], tooltip => $tip[$_])
                for 0 .. $#col;
-         my @align = qw(1 0 1 1 -1);
+         my @align = qw(1 0.5 1 1 0);
          my $y = 0;
          for my $m (@{ $msg->{servers} }) {
             my ($ip, $last, $host, $users, $version, $desc, $ibytes, $obytes, $uptime, $highlight) =
                @$m{qw(ip age hostname users version description ibytes obytes uptime highlight)};
    $vbox->add (new DC::UI::FancyFrame
       label => "Login Settings",
       child => (my $table = new DC::UI::Table expand => 1, col_expand => [0, 1]),
    );
-   $table->add_at (0, 4, new DC::UI::Label valign => 0, align => 1, text => "Username");
+   $table->add_at (0, 4, new DC::UI::Label align => 1, text => "Username");
    $table->add_at (1, 4, new DC::UI::Entry
       text => $CFG->{profile}{default}{user},
       tooltip => "The name of your character on the server.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{user} = $value; 1 }
    );
-   $table->add_at (0, 5, new DC::UI::Label valign => 0, align => 1, text => "Password");
+   $table->add_at (0, 5, new DC::UI::Label align => 1, text => "Password");
    $table->add_at (1, 5, new DC::UI::Entry
       text => $CFG->{profile}{default}{password},
       hidden => 1,
       tooltip => "The password for your character.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{profile}{default}{password} = $value; 1 }
    );
    $table->add_at (1, 11, $LOGIN_BUTTON = new DC::UI::Button
       expand => 1,
-      align => 0,
       text => "Login / Register",
       tooltip => "This button will either login to the account configured above or register a new account.",
       on_activate => sub {
          $CONN ? stop_game
                : start_game;
    );
    $vbox->add (new DC::UI::FancyFrame
       label => "Registering",
       min_h => 200,
-      child => (new DC::UI::Label valign => -1, ellipsise => 0,
+      child => (new DC::UI::Label valign => 0, ellipsise => 0,
                     markup =>
                        "To register a new account, choose a username that hasn't been taken yet and "
                      . "try to log-in. Follow the instructions in the Log tab in the message window.",
                ),
    );
       child => (my $table = new DC::UI::Table expand => 1, col_expand => [0, 1]),
    );
    my $row = 0;
-   $table->add_at (0, ++$row, new DC::UI::Label valign => 0, align => 1, text => "Host:Port");
+   $table->add_at (0, ++$row, new DC::UI::Label align => 1, text => "Host:Port");
    {
       $table->add_at (1, $row, my $vbox = new DC::UI::VBox);
       $vbox->add (
          $HOST_ENTRY = new DC::UI::Entry
          on_visibility_change => sub { $METASERVER->hide unless $_[1]; 1 },
       );
       }#d#
    }
-   $table->add_at (0, ++$row, new DC::UI::Label valign => 0, align => 1, text => "Map Size");
+   $table->add_at (0, ++$row, new DC::UI::Label align => 1, text => "Map Size");
    $table->add_at (1, $row, new DC::UI::Slider
       force_w => 100,
       range => [$CFG->{mapsize}, 10, 100, 0, 1],
       tooltip => "This is the size of the portion of the map update the server sends you. "
                . "If you set this to a high value you will be able to see further, "
                . "but you also increase bandwidth requirements and latency. "
                . "This option is only used once at log-in.",
       on_changed => sub { my ($self, $value) = @_; $CFG->{mapsize} = $self->{range}[0] = $value = int $value; 1 },
    );
-   $table->add_at (0, ++$row, new DC::UI::Label valign => 0, align => 1, text => "Output-Rate");
+   $table->add_at (0, ++$row, new DC::UI::Label align => 1, text => "Output-Rate");
    $table->add_at (1, $row, new DC::UI::Entry
       text => $CFG->{output_rate},
       tooltip => "The maximum bandwidth in bytes per second that the server should not exceed "
                . "when sending data. When 0 or unset, the server "
                . "default will be used, which is usually around 100kb/s. Most servers will "
 sub client_setup {
    my $table = new DC::UI::Table expand => 1, col_expand => [0, 1];
    my $row = 0;
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Tip of the day");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Tip of the day");
    $table->add_at (1, $row++, new DC::UI::CheckBox
       state   => $CFG->{show_tips},
       tooltip => "Show the <b>Tip of the day</b> window at startup?",
       on_changed => sub {
          my ($self, $value) = @_;
          $CFG->{show_tips} = $value;
          0
       }
    );
-   $table->add_at (0, $row, new DC::UI::Label valign => 0, align => 1, text => "Messages Window Size");
+   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Messages Window Size");
    $table->add_at (1, $row++, my $saycmd = new DC::UI::Entry
       text    => $CFG->{logview_max_par},
       tooltip => "This is maximum number of messages remembered in the <b>Messages</b> window. If the server "
                . "sends more messages than this number, older messages get removed to save memory and "
                . "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
 sub inventory_widget {
    my $hb = new DC::UI::HBox homogeneous => 1;
    $hb->add (my $vb1 = new DC::UI::VBox);
-   $vb1->add (new DC::UI::Label align => 0, text => "Player");
+   $vb1->add (new DC::UI::Label text => "Player");
    $vb1->add (my $hb1 = new DC::UI::HBox);
    use sort 'stable';
          $INV->set_sort_order ($SORT_ORDER{$_[1]});
       },
    );
    $hb1->add (new DC::UI::Label text => "Weight: ", align => 1, expand => 1);
    #TODO# update to weigh/maxweight
-   $hb1->add ($STATWIDS->{i_weight} = new DC::UI::Label align => -1);
+   $hb1->add ($STATWIDS->{i_weight} = new DC::UI::Label align => 0);
    $vb1->add (my $sw1 = new DC::UI::ScrolledWindow expand => 1, scroll_y => 1);
    $sw1->add ($INV = new DC::UI::Inventory);
    $INV->set_sort_order ($SORT_ORDER{$::CFG->{inv_sort}});
    $DC::UI::ROOT->draw;
    DC::SDL_GL_SwapBuffers;
    $LAST_REFRESH = $NOW;
 }
-my $want_refresh = EV::idle_ns \&force_refresh;
+my $want_refresh = EV::prepare_ns \&force_refresh;
-my $input = EV::periodic 0, 1/60, undef, sub {
+my $input = EV::periodic 0, 1 / $MAX_FPS, undef, sub {
-   $NOW = time;
+   $NOW = EV::now;
    ($SDL_CB{$_->{type}} || sub { warn "unhandled event $_->{type}" })->($_)
       for DC::poll_events;
    if (%animate_object) {

Diff Legend

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

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents): Revision 1.18 by root, Wed Dec 26 21:03:21 2007 UTC vs. Revision 1.22 by root, Sat Dec 29 13:44:31 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/bin/deliantra (file contents):
Revision 1.18 by root, Wed Dec 26 21:03:21 2007 UTC vs.
Revision 1.22 by root, Sat Dec 29 13:44:31 2007 UTC