… | |
… | |
120 | use DC::UI::Canvas; |
120 | use DC::UI::Canvas; |
121 | use DC::UI::Inventory; |
121 | use DC::UI::Inventory; |
122 | use DC::UI::SpellList; |
122 | use DC::UI::SpellList; |
123 | use DC::UI::Dockable; |
123 | use DC::UI::Dockable; |
124 | use DC::UI::Dockbar; |
124 | use DC::UI::Dockbar; |
125 | use DC::UI::MessageWindow; |
|
|
126 | use DC::UI::ChatView; |
125 | use DC::UI::ChatView; |
127 | use DC::MessageDistributor; |
126 | use DC::MessageDistributor; |
128 | use DC::Pod; |
127 | use DC::Pod; |
129 | use DC::MapWidget; |
128 | use DC::MapWidget; |
130 | use DC::Macro; |
129 | use DC::Macro; |
… | |
… | |
836 | |
835 | |
837 | my $row = 0; |
836 | my $row = 0; |
838 | |
837 | |
839 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "OpenGL Info"); |
838 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "OpenGL Info"); |
840 | $table->add_at (1, $row++, new DC::UI::Label fontsize => 0.8, text => DC::OpenGL::gl_vendor . ", " . DC::OpenGL::gl_version, |
839 | $table->add_at (1, $row++, new DC::UI::Label fontsize => 0.8, text => DC::OpenGL::gl_vendor . ", " . DC::OpenGL::gl_version, |
841 | can_events => 1, |
840 | can_events => 1, |
842 | tooltip => "<tt><span size='8192'>" . (DC::OpenGL::gl_extensions) . "</span></tt>"); |
841 | tooltip => "<tt><span size='8192'>" . (DC::OpenGL::gl_extensions) . "</span></tt>"); |
843 | |
842 | |
844 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Caveats"); |
843 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Caveats"); |
845 | $table->add_at (1, $row++, $CAVEAT_LABEL = new DC::UI::Label fontsize => 0.8, |
844 | $table->add_at (1, $row++, $CAVEAT_LABEL = new DC::UI::Label fontsize => 0.8, |
846 | can_events => 1, |
845 | can_events => 1, |
847 | tooltip => "This field shows any known issues with your config or driver, such as " |
846 | tooltip => "This field shows any known issues with your config or driver, such as " |
… | |
… | |
910 | |
909 | |
911 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Compress Textures"); |
910 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Compress Textures"); |
912 | $table->add_at (1, $row++, new DC::UI::CheckBox |
911 | $table->add_at (1, $row++, new DC::UI::CheckBox |
913 | state => $CFG->{texture_compression}, |
912 | state => $CFG->{texture_compression}, |
914 | tooltip => "Use texture compression. Normally this will not reduce visual quality noticable but " |
913 | tooltip => "Use texture compression. Normally this will not reduce visual quality noticable but " |
915 | . "will save a lot of memory and increase performance. The compression algorithm " |
914 | . "will save a lot of memory and increase performance (and also fall prey to the ever-buggy Mac OS X software renderer). " |
916 | . "can differ form card to card, so your mileage may vary. This setting is ignored in " |
915 | . "The compression algorithm can differ form card to card, so your mileage may vary. This setting is ignored in " |
917 | . "forced OpenGL 1.1 mode.", |
916 | . "forced OpenGL 1.1 mode and when using the Apple renderer.", |
918 | on_changed => sub { my ($self, $value) = @_; $CFG->{texture_compression} = $value; 0 } |
917 | on_changed => sub { my ($self, $value) = @_; $CFG->{texture_compression} = $value; 0 } |
919 | ); |
918 | ); |
920 | |
919 | |
921 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fast & Ugly"); |
920 | $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Fast & Ugly"); |
922 | $table->add_at (1, $row++, new DC::UI::CheckBox |
921 | $table->add_at (1, $row++, new DC::UI::CheckBox |
… | |
… | |
1597 | }, |
1596 | }, |
1598 | ); |
1597 | ); |
1599 | |
1598 | |
1600 | $vbox->add (new DC::UI::FancyFrame |
1599 | $vbox->add (new DC::UI::FancyFrame |
1601 | label => "How to Play", |
1600 | label => "How to Play", |
1602 | min_h => 200, |
1601 | min_h => 240, |
1603 | child => (new DC::UI::Label valign => 0, ellipsise => 0, |
1602 | child => (new DC::UI::Label valign => 0, ellipsise => 0, |
1604 | markup => |
1603 | markup => |
1605 | "First select a suitable video resolution in the <b>Graphics</b> tab, above.\n\n" |
1604 | "First select a suitable video resolution in the <b>Graphics</b> tab, above.\n\n" |
1606 | . "Then register a new account (or use an existing one if you have one). " |
1605 | . "Then register a new account (or use an existing one if you have one). " |
1607 | . "To register an account, choose a username that hasn't been taken yet (just guess) and " |
1606 | . "To register an account, choose a username that hasn't been taken yet (just guess) and " |