Re: text in a widget, text-widget @ 1145998849
Johan Meskens CS3 jmcs3 <[email protected]> Tue, 25 Apr 2006 23:02:55 +0200
| Newsgroups | gmane.comp.lang.perl.tk |
|---|---|
| Message-ID | <[email protected]> |
Intrah onat Diria .. Tue, 25 Apr 2006 13:55:44 -0700 , ****** wrote "Revera y": > of "unsubscribe ptk" to [email protected] > 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: [email protected] > Sent: Tuesday, April 25, 2006 11:12 AM > On Behalf Of Johan Meskens CS3 jmcs3 > From: [email protected] [mailto:[email protected]] > -----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 [email protected]