|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrew Ustinchik 2:450/142.10 13 Feb 2002 23:05:24
To : All
Subject : опять по Тк вопрос.
--------------------------------------------------------------------------------
ну, добрался я до "screenheigh и screenwidth", тока опять трабла:
> perl Main.pl
Failed to AUTOLOAD 'MainWindow::screenheigh' at Main.pl line 25
ничего не пойму, почему так... в других скриптах, попроще, работает вроде... :-(
------------ Main.pl -----------------
#!d:/perl/bin/perl.exe -w
use strict;
require "AddDogovor.pl"; require "AddPerson.pl"; require "AddDogKr.pl";
require "AddDogPr.pl";
require "AddDogZm.pl"; require "AddDogSt.pl"; require "AddDogZl.pl";
require "Print.pl";
use DataBase;
use Tk;
my $mw = MainWindow->new( -height => 500, -width => 550 );
$mw->focusForce;
$mw->update;
my $h = ( $mw->screenheigh - 240)/2; #> line 25
my $w = ( $mw->screenwidth - 60)/2; #> line 26
#------------- ListBox
my $Listbox = $mw->Scrolled( 'Listbox', -scrollbars => 'e', -relief => "sunken"
);
$Listbox->place( -x => 8, -y => 80, -height => 412, -width => 332 );
$Listbox->insert( 'end', sort &People_FIO_InBase() );
....
и далее по тексту
....
$mw->geometry("550x500+$h+$w");
MainLoop;
--------------------------------------
update стоит для тесту... видать, как оно апдейтицца, а потом сразу на
$mw->screenheigh вылетает с вышепирведённым варнингом :-( де прибор для
расчёсывания травы?
с одинаковым варнингом вылетает на WinXP + ActivePerl-5.6.1.630-MSWin32-x86.msi
+ "Tk" VERSION="800,022,0,0" на работе
и на Linux 2.4.17gcc3 + perl v5.6.0 + perl-Tk-800.022-5mdk дома...
ЗЫЖ чем отличается "my $mw = MainWindow->new()" от "my $mw = tkinit" ?
С уважением - Дядюшка AU.
np: Dark Tranquility - Tidal Tantrum
... One man and his NoteBook, registered Linux user #256924
--- Выписан под наблюдение pайонного паталогоанатома - GoldED+/LNX 1.1.4.7
* Origin: Кто бухал мою водку и всю выбухал? (2:450/142.10)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
