Tk on PC/ OSX
Anthony joshua <[email protected]> Sun, 29 Jul 2007 14:58:02 -0400
| Newsgroups | gmane.comp.lang.perl.tk |
|---|---|
| Message-ID | <[email protected]> |
--===============0814009779==
Content-Type: multipart/alternative; boundary=Apple-Mail-10--877630772
--Apple-Mail-10--877630772
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
charset=US-ASCII;
delsp=yes;
format=flowed
I have a script I have working on a PC and Perl/ Activestate which
allows me to collectively highlight a number of text files for
analysis in a script. However when i run it under OSX/X11 I get the
following errors - and Im stuck. Any ideas? Is there some difference
in the way Tk works under the different systems?
Thanks
Anthony
Tk::Error: Can't use string ("Text *.txt") as an ARRAY ref while
"strict refs" in use at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/FBox.pm line 948.
Tk callback for .fbox.frame
Tk callback for .fbox.frame1
Tk callback for .fbox.frame2
Tk callback for .fbox
Tk::FBox::GetFileTypes at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/FBo
x.pm line 948
Tk::FBox::Show at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/
FBox.pm lin
e 279
Tk::DialogWrapper at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk.pm line
365
Tk::FDialog at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm
line 388
Tk::__ANON__ at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk.pm line 270
Tk::getOpenFile at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk.pm line 32
2
main::__ANON__ at qFishanalysis2.pl line 131
Tk callback for .frame1.notebook.page1.button
Tk::__ANON__ at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk.pm line 249
Tk::Button::butUp at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk/Button.p
m line 111
<ButtonRelease-1>
(command bound to event)
OR
Tk::Error: Failed to AUTOLOAD 'Tk::FBox::_get_select_Path' at
qFishanalysis2.pl line 495
Carp::croak at /System/Library/Perl/5.8.6/Carp.pm line 269
Tk::Widget::__ANON__ at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/Widget.pm line 347
Tk::FBox::Done at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/
FBox.pm line 909
Tk::FBox::VerifyFileName at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/FBox.pm line 678
Tk::FBox::ActivateEnt at /Library/Perl/5.8.6/darwin-thread-
multi-2level/Tk/FBox.pm line 647
Tk::FBox::OkCmd at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk/FBox.pm line 815
Tk callback for .fbox.frame1.button
Tk::__ANON__ at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk.pm line 249
Tk::Button::butUp at /Library/Perl/5.8.6/darwin-thread-multi-2level/
Tk/Button.pm line 111
<ButtonRelease-1>
(command bound to event)
--Apple-Mail-10--877630772
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=ISO-8859-1
<html><body style=3D"word-wrap: break-word; -webkit-nbsp-mode: space; =
-webkit-line-break: after-white-space; ">
<div style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">I have a script I have working on a PC and Perl/ =
Activestate which allows me to collectively highlight a number of text =
files for analysis in a script. However when i run it under OSX/X11 I =
get the following errors - and Im stuck. Any ideas? Is there some =
difference in the way Tk works under the different =
systems?</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">Thanks</font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; ">Anthony</div><div style=3D"margin-top: 0px; =
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal =
normal normal 12px/normal Helvetica; min-height: 14px; "><br></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">Tk::Error: Can't use string ("Text *.txt") as an ARRAY =
ref while "strict refs" in use at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBox.pm line =
948.</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk callback for =
.fbox.frame</font></div><div style=3D"margin-top: 0px; margin-right: =
0px; margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk callback for =
.fbox.frame1</font></div><div style=3D"margin-top: 0px; margin-right: =
0px; margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk callback for =
.fbox.frame2</font></div><div style=3D"margin-top: 0px; margin-right: =
0px; margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk callback for =
.fbox</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::FBox::GetFileTypes at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBo</font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">x.pm line 948</font></div><div style=3D"margin-top: =
0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font =
face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0Tk::FBox::Show at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBox.pm =
lin</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">e 279</font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">=A0Tk::DialogWrapper at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm =
line</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">365</font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">=A0Tk::FDialog at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm line =
388</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::__ANON__ at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm line =
270</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::getOpenFile at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm line =
32</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">2</font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">=A0main::__ANON__ at qFishanalysis2.pl line =
131</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk callback for =
.frame1.notebook.page1.button</font></div><div style=3D"margin-top: 0px; =
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font =
face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0Tk::__ANON__ at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm line =
249</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::Button::butUp at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/Button.p</font></div><di=
v style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">m line 111</font></div><div style=3D"margin-top: 0px; =
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font =
face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0<ButtonRelease-1></font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">=A0(command bound to event)</font></div><p =
style=3D"margin: 0.0px 0.0px 0.0px 0.0px"><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0</font></p><p =
style=3D"margin: 0.0px 0.0px 0.0px 0.0px"><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0</font></p><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">OR</font></div><p style=3D"margin: 0.0px 0.0px 0.0px =
0.0px"><font face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0</font></p><p style=3D"margin: 0.0px 0.0px 0.0px =
0.0px"><font face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0</font></p><div style=3D"margin-top: 0px; margin-right: =
0px; margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">Tk::Error: Failed to =
AUTOLOAD 'Tk::FBox::_get_select_Path' at qFishanalysis2.pl line =
495</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Carp::croak at =
/System/Library/Perl/5.8.6/Carp.pm line 269</font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">=A0Tk::Widget::__ANON__ at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/Widget.pm line =
347</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::FBox::Done at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBox.pm line =
909</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::FBox::VerifyFileName =
at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBox.pm line =
678</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::FBox::ActivateEnt at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBox.pm line =
647</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::FBox::OkCmd at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/FBox.pm line =
815</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk callback for =
.fbox.frame1.button</font></div><div style=3D"margin-top: 0px; =
margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font =
face=3D"Helvetica" size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0Tk::__ANON__ at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm line =
249</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px Helvetica">=A0Tk::Button::butUp at =
/Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/Button.pm line =
111</font></div><div style=3D"margin-top: 0px; margin-right: 0px; =
margin-bottom: 0px; margin-left: 0px; "><font face=3D"Helvetica" =
size=3D"3" style=3D"font: 12.0px =
Helvetica">=A0<ButtonRelease-1></font></div><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><font face=3D"Helvetica" size=3D"3" style=3D"font: =
12.0px Helvetica">=A0(command bound to event)</font></div> <br><br><div> =
<span class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; =
font-size: 12px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><span =
class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; =
font-size: 12px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><div =
style=3D"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; =
margin-left: 0px; "><br></div><div><br =
class=3D"khtml-block-placeholder"></div><div><br =
class=3D"khtml-block-placeholder"></div><br =
class=3D"Apple-interchange-newline"></span></span> =
</div><br></body></html>=
--Apple-Mail-10--877630772--
--===============0814009779==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
--++**==--++**==--++**==--++**==--++**==--++**==--++**==
ptk mailing list
[email protected]
https://mailman.stanford.edu/mailman/listinfo/ptk
--===============0814009779==--