| Johan Meskens CS3 jmcs3 2006-04-25, 7:05 pm |
|
Intrah onat Diria .. Tue, 25 Apr 2006 13:55:44 -0700
, ****** wrote "Revera y":
> of "unsubscribe ptk" to majordomo@lists.stanford.edu
> If you wish to unsubscribe from this mailing list, send the message body
> This message was posted through the Stanford campus mailing list server.
> ++**=3D=3D
> -++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D--++**=3D=3D--=
>
>
>
>
> ,=20
> , _________________
> , |---|
> , |
> , lead
> , ::::::opthe
> , oo,loent,uaha
> , },
> , |2
> , ||
> , particular
> , Bottom:
> --a-=3D-t-g-i-
> --------the following could be unreadable @ 1145988711 :::=20
>
>
>
>
>
>
>
>
> jmcs3
> kind regards
>
> this ..
> - i probably could use the canvas for the color-thing .. as i write
>
> any suggestions to solutions and widgets for the above problems ?
>
> windows
> would become 'links' and by clicking them i would open up different
> also i would like to be able to detect certain sentences or words that
>
> take different background colors according to certain parameters
> for example i would like certain lines of text within the textwidget to
>
> - ?
> supported by the plain text widget itself
> add some functionalities that at first and second sight are not directly
> i have an application with a couple of text widgets but i would like to
>
>
> hello
>
>
> Subject: text in a widget, text-widget
> To: ptk@lists.stanford.edu
> Sent: Tuesday, April 25, 2006 11:12 AM
> On Behalf Of Johan Meskens CS3 jmcs3
> From: owner-ptk@lists.stanford.edu [mailto:owner-ptk@lists.stanford.edu]
> -----Original Message-----
>
> MainLoop();
>
>
> background",['BLUE','RED']);
> $scrolled->insert('end',"Here is a blue text with red
> $scrolled->insert('end',"Here is a blue link\n",['BLUE','LINK']);
> $scrolled->insert('end',"Here is a green text\n",['GREEN']);
>
>
> );
>
> -fill =3D> 'x',
> -expand =3D> 1,
> $frame->pack(
>
> );
>
> -anchor =3D> 'n',
> -side =3D> 'left',
> )->pack(
>
> -command =3D> sub { exit 0},
> -width =3D> 5,
> -text =3D> 'EXIT',
> my $exitB =3D $frame->Button(
>
> 3,);
> my $frame =3D $mainWindow->Frame( -relief =3D> 'ridge',-borderwidth =3D> =
>
> "Hey you pushed the link")->Show()});
> =3D>
> $scrolled->tagBind('LINK',"<Button-1>",sub { $scrolled->Dialog(-text =
> $scrolled->tagConfigure('RED',-background =3D> 'red');
> $scrolled->tagConfigure('LINK',-underline =3D> 1);=20
> $scrolled->tagConfigure('BLUE',-foreground =3D> 'blue');=20
> #lets set up some color tags for text
>
> );
>
> -expand =3D> '0',
> -fill =3D> 'both',
> )->pack(
>
>
> -height =3D> $sc_height,
> -width =3D> $sc_width,
> -wrap =3D> 'none',
> -background =3D> 'white',
> -scrollbars =3D> 'se',
> "Text",
> my $scrolled =3D $mainWindow->Scrolled(
>
> my $sc_height =3D 15;
> my $sc_width =3D 100;
>
> my $mainWindow =3D MainWindow->new(-title =3D> "Test Tags");
>
> use Tk::Dialog;
> use Tk;
> use strict;
>
> Mike
>
> HTH=20
>
> well as some other tags.
> Here this will give you an idea how to create a link in a text widget as
>
> Johan,
that's fantastic mike !!
thank you
reverse jmcs3
--------the following could be unreadable @ 1145998973 :::
Aanmantucumanman
, ,
, dark
, in
, f(lrdg
, SPOKEN
, SSU
, df
, w
, }
, }
, {
,
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@lists.stanford.edu
|