Notebook

--===============0470771957==
Content-Type: multipart/alternative;
boundary="----=_Part_34430_5488108.1168027703665"

------=_Part_34430_5488108.1168027703665
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

hi I have some questions:

1-How can I get in a variable the full path of the current diretory in a
simple script?
Are the anything like "getdir" or or something like that?

2-In perl/Tk I can

------=_Part_34430_5488108.1168027703665
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

hi I have some questions:

1-How can I get in a variable the full path of the current diretory in a simple script?
Are the anything like "getdir" or or something like that?

2-In perl/Tk I can




------=_Part_34430_5488108.1168027703665--

--===============0470771957==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0470771957==--

RE: Notebook

This is a multi-part message in MIME format.

--===============1162109614==
content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C73105.D38FC153"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C73105.D38FC153
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

I do:
=20
use Cwd;
.....
=20
my $MyCurrLoc =3D cwd;

If you have any problems or questions, please let me know.=20

Thanks.=20

Wags ;)=20
David R Wagner=20
Senior Programmer Analyst=20
FedEx Freight=20
1.408.323.4225x2224 TEL=20
1.408.323.4449 FAX=20
http://fedex.com/us=20

=20

_____ =20

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of
Ricardo Ferreira
Sent: Friday, January 05, 2007 12:08
To: activeperl@listserv.activestate.com
Subject: Notebook


hi I have some questions:

1-How can I get in a variable the full path of the current diretory in a
simple script?
Are the anything like "getdir" or or something like that?

2-In perl/Tk I can=20



************************************************************ **********
This message contains information that is confidential and proprietary to F=
edEx Freight or its affiliates. It is intended only for the recipient name=
d and for the express purpose(s) described therein. Any other use is proh=
ibited.
************************************************************ **********


------_=_NextPart_001_01C73105.D38FC153
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Re: Notebook

--===============1564984946==
Content-Type: multipart/alternative;
boundary="----=_Part_35122_29235676.1168029874264"

------=_Part_35122_29235676.1168029874264
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

hi I have some questions:

1-How can I get in a variable the full path of the current diretory in a
simple script?
Are the anything like "getdir" or or something like that?

2-In perl/Tk are how can i open a window that shows where folder i want to
work to rename all files in this folder for example.
i know how to show a window to open or save a file but i don't know how
to show a windows that only get the dir variable.

3-I have a script in Perl/tk and there is a notebook tab, but I can't
charge da background color:

............................................................ ............................................................ ..............

use Tk;

my $mw = MainWindow -> new(-title => 'UPLA.', -bg =>'blue' ); # BG function
don't work
$mw->maxsize(362,435);
$mw->minsize(362,435);
$pogtab = $mw->NoteBook(-background => 'black', -foreground => 'white',
-borderwidth => 2 , -inactivebackground => '#2415AE', -font => 'arial 9
bold', -relief => 'suken')->pack(-expand=>1,-fill=>'both');

$pogna1 = $pogtab->add('page1', -label=>'page1');

$pogna2 = $pogtab->add('page2', -label => 'page2');

MainLoop;

............................................................ ............................................................ ........................

my $mw = MainWindow -> new(-title => 'UPLA.', -bg =>'blue' ); # BG function
work very well
$mw->maxsize(362,435);
$mw->minsize(362,435);


MainLoop;

............................................................ ............................................................ .........................

how can i fix it?


---------------------------------
------------------------------------------------------------ -------

sorry my very very freaking poor beggar english, but with babelfish it will
become so much worst...
sorry too for my first mail that i sant incomplete...

thanks for all!

.......................

Ricardo.

------=_Part_35122_29235676.1168029874264
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
Content-Disposition: inline



hi I have some questions:

1-How can I get in a variable the full path of the current diretory in a simple script?
Are the anything like "getdir" or or something like that?


2-In perl/Tk are how can i open a window that shows where folder i want to work to rename all files in this folder for example.
i know how to show a window to  open or save a file but i don't know  how  to show a  windows  that only  get the dir variable.


3-I have a script in Perl/tk and there is a notebook tab, but I can't  charge da background color:

............................................................ ............................................................ .............


use Tk;

my $mw = MainWindow -> new(-title => 'UPLA.', -bg =>'blue' ); # BG function don't work
$mw->maxsize(362,435);
$mw->minsize(362,435);
$pogtab = $mw->NoteBook(-background => 'black', -foreground => 'white', -borderwidth => 2 , -inactivebackground => '#2415AE', -font => 'arial 9 bold', -relief => 'suken')->pack(-expand=>1,-fill=>'both');


$pogna1 = $pogtab->add('page1', -label=>'page1');

$pogna2 = $pogtab->add('page2', -label => 'page2');

MainLoop;

............................................................ ............................................................ .......................


my $mw = MainWindow -> new(-title => 'UPLA.', -bg =>'blue' ); # BG function work very well
$mw->maxsize(362,435);
$mw->minsize(362,435);


MainLoop;

............................................................ ............................................................ ........................


how can i fix it?


---------------------------------
------------------------------------------------------------ -------

sorry my very very freaking poor beggar english, but with babelfish it will become so much worst...

sorry too for my first mail that i sant incomplete...

thanks for all!

......................

Ricardo.



------=_Part_35122_29235676.1168029874264--

--===============1564984946==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============1564984946==--

Re: Notebook

--===============1804684882==
Content-Type: multipart/alternative;
boundary="-----------------------------1168167700"


-------------------------------1168167700
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit


hi ricardo --

In a message dated 1/5/2007 3:45:34 P.M. Eastern Standard Time,
ricardo85x@gmail.com writes:

> hi I have some questions:
>
> [...]
>
> 3-I have a script in Perl/tk and there is a notebook tab, but I can't
> charge da background color:
>
> ............................................................ ...........
>
> use Tk;
>
> my $mw = MainWindow -> new(-title => 'UPLA.', -bg =>'blue' ); # BG
function don't work
> $mw->maxsize(362,435);
> $mw->minsize(362,435);
> $pogtab = $mw->NoteBook(-background => 'black', -foreground => 'white',
-borderwidth => 2 , -inactivebackground => '#2415AE', -font => 'arial 9 bold',
-relief => 'suken')->pack(-expand=>1,-fill=>'both');
>
> $pogna1 = $pogtab->add('page1', -label=>'page1');
>
> $pogna2 = $pogtab->add('page2', -label => 'page2');
>
> MainLoop;
>
> [...]
>
> thanks for all! Ricardo.


the following may address some of your questions.

---------------------- code begins ---------------------------
use warnings; ### always use these
use strict; ### always use these


use Tk;
use Tk::NoteBook; # better to use this explicitly


my $mw = MainWindow -> new(-title => 'UPLA.', -bg =>'green',); # BG function
don't work
$mw->maxsize(362,435);
$mw->minsize(362,435);


my $pogtab = $mw->NoteBook(
-background => 'blue',
# -background => 'black', # black font invisible on top of this
color
# -foreground => 'yellow', # non-functional
-borderwidth => 2,
-inactivebackground => "#2415AE",
-font => 'arial 9 bold',
-relief => 'sunken',
)->pack(
-expand => 1,
-fill => 'both',
);

# still can't control color *behind* the tabs of notebook, but
# the notebook tabs and pages can be controlled.

# the add() method returns a Frame reference, and each Frame has its own
# individual and independent attributes. these attributes can be changed
# with the configure() method.

my $pogna1 = $pogtab->add('page1', -label =>'page1');
$pogna1->configure(-bg => 'blue');

my $pogna2 = $pogtab->add('page2', -label => 'page2')->configure(-bg =>
'green');

my $pogna3 = $pogtab->add('page3', -label => 'page3');
$pogtab->pageconfigure('page3', -label => 'xxx');


MainLoop;
---------------------- code ends ---------------------------

hth -- bill walters



-------------------------------1168167700
Content-Type: text/html; charset="US-ASCII"
Content-Transfer-Encoding: quoted-printable





Arial"=20
bottomMargin=3D7 leftMargin=3D7 topMargin=3D7 rightMargin=3D7> e_document=20
face=3DArial color=3D#000000 size=3D2>

RE: Notebook

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of
Ricardo Ferreira
Sent: 05 January 2007 20:45
To: activeperl@listserv.activestate.com
Subject: Re: Notebook

> hi I have some questions:

....

> 2-In perl/Tk are how can i open a window that shows where folder i
want to work to rename all files in this
> folder for example.
> i know how to show a window to open or save a file but i don't know
how to show a windows that only get
> the dir variable.

Your other questions seems to have been answered, so I will have a go at
this one, assuming I understand you, that is.

See 'perldoc Tk::chooseDirectory'. Also, the demo program (widget) has a
demo for this dialog.

HTH

--
Brian Raven

_________________________________________

The information contained in this e-mail is confidential and solely
for the intended addressee(s). Unauthorised reproduction, disclosure,
modification, and/or distribution of this email may be unlawful. If you
have received this email in error, please notify the sender immediately
and delete it from your system. The views expressed in this message
do not necessarily reflect those of Atos Euronext Market Solutions.
_________________________________________



=================================
Atos Euronext Market Solutions Disclaimer
=================================
The information contained in this e-mail is confidential and solely for the intended addressee(s). Unauthorised reproduction, disclosure, modification, and/or distribution of this email may be unlawful.
If you have received this email in error, please notify the sender immediately and delete it from your system. The views expressed in this message do not necessarily reflect those of Atos Euronext Market Solutions.

L'information contenue dans cet e-mail est confidentielle et uniquement destinee a la (aux) personnes a laquelle (auxquelle(s)) elle est adressee. Toute copie, publication ou diffusion de cet email est interdite. Si cet e-mail vous parvient par erreur, nous vous prions de bien vouloir prevenir l'expediteur immediatement et d'effacer le e-mail et annexes jointes de votre systeme. Le contenu de ce message electronique ne represente pas necessairement la position ou le point de vue d'Atos Euronext Market Solutions.

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs