in reply to Tk: Make lines disappear in a Text widget?
use strict ; use Tk ; use Tk::Text ; my($mw) = new MainWindow ; my($txt) = $mw->Scrolled('Text', -background => 'white', -foreground => 'black')->pack(-expand => 1, - +fill => 'both') ; $txt->tagConfigure('myHidden', -foreground => 'white', -background => +'white') ; $txt->insert('end', "line1\n", 'default') ; $txt->insert('end', "line2\n", 'myHidden') ; $txt->insert('end', "line3 (what happened to line2??)\n", 'default') ; MainLoop ;
|
|---|