… | |
… | |
2481 | |
2481 | |
2482 | DC::UI::Toplevel->new ( |
2482 | DC::UI::Toplevel->new ( |
2483 | title => "Minimap", |
2483 | title => "Minimap", |
2484 | name => "mapmap", |
2484 | name => "mapmap", |
2485 | x => 0, |
2485 | x => 0, |
2486 | y => $FONTSIZE + 8, |
2486 | y => $::FONTSIZE + 8,#d# hack to move messages window below the menubar |
2487 | border_bg => [1, 1, 1, 192/255], |
2487 | border_bg => [1, 1, 1, 192/255], |
2488 | bg => [1, 1, 1, 0], |
2488 | bg => [1, 1, 1, 0], |
2489 | child => ($MAPMAP = new DC::MapWidget::MapMap |
2489 | child => ($MAPMAP = new DC::MapWidget::MapMap |
2490 | tooltip => "<b>Minimap</b>. This will display an overview of the surrounding areas.", |
2490 | tooltip => "<b>Minimap</b>. This will display an overview of the surrounding areas.", |
2491 | ), |
2491 | ), |
… | |
… | |
2520 | $METASERVER = metaserver_dialog; |
2520 | $METASERVER = metaserver_dialog; |
2521 | # the name is changed to not conflict with the older name as users could have hidden it |
2521 | # the name is changed to not conflict with the older name as users could have hidden it |
2522 | $MESSAGE_WINDOW = new DC::UI::Dockbar |
2522 | $MESSAGE_WINDOW = new DC::UI::Dockbar |
2523 | name => "message_window2", |
2523 | name => "message_window2", |
2524 | title => 'Messages', |
2524 | title => 'Messages', |
|
|
2525 | y => $::FONTSIZE + 8,#d# hack to move messages window below the menubar |
2525 | force_w => $::WIDTH * 0.6, |
2526 | force_w => $::WIDTH * 0.6, |
2526 | force_h => $::HEIGHT * 0.25, |
2527 | force_h => $::HEIGHT * 0.25, |
2527 | ; |
2528 | ; |
2528 | |
2529 | |
2529 | $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW; |
2530 | $MESSAGE_DIST = new DC::MessageDistributor dockbar => $MESSAGE_WINDOW; |
… | |
… | |
2730 | default => "profile", # default profile |
2731 | default => "profile", # default profile |
2731 | show_tips => 1, |
2732 | show_tips => 1, |
2732 | logview_max_par => 1000, |
2733 | logview_max_par => 1000, |
2733 | shift_fire_stop => 0, |
2734 | shift_fire_stop => 0, |
2734 | uitheme => "wood", |
2735 | uitheme => "wood", |
|
|
2736 | map_shift_x => -24, # arbitrary |
|
|
2737 | map_shift_y => +24, # arbitrary |
2735 | ); |
2738 | ); |
2736 | |
2739 | |
2737 | while (my ($k, $v) = each %DEF_CFG) { |
2740 | while (my ($k, $v) = each %DEF_CFG) { |
2738 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
2741 | $CFG->{$k} = $v unless exists $CFG->{$k}; |
2739 | } |
2742 | } |