|
|
@ -19,8 +19,7 @@ my $mw = MainWindow->new(); |
|
|
|
$mw->withdraw(); |
|
|
|
$mw->withdraw(); |
|
|
|
$mw->OnDestroy(\&on_destroy); |
|
|
|
$mw->OnDestroy(\&on_destroy); |
|
|
|
|
|
|
|
|
|
|
|
$mw->optionAdd("*font", "-*-arial-norma-r-*-*-*-120-*-*-*-*-*-*") if nix(); |
|
|
|
$mw->optionAdd("*font", "-*-tahoma,arial-norma-r-*-*-*-120-*-*-*-*-*-*"); |
|
|
|
$mw->optionAdd("*font", "-*-tahoma-norma-r-*-*-*-120-*-*-*-*-*-*") if win32(); |
|
|
|
|
|
|
|
$mw->optionAdd("*borderWidth", 1); |
|
|
|
$mw->optionAdd("*borderWidth", 1); |
|
|
|
$mw->optionAdd("*highlightThickness", 0); |
|
|
|
$mw->optionAdd("*highlightThickness", 0); |
|
|
|
|
|
|
|
|
|
|
|