Version 1 of Creating Rollover Effects for Text Tags in GtkTexView Widgets with Gnocl

Updated 2008-10-18 10:46:35 by WJG

This is an empty page.

Enter page contents here or click cancel to leave it empty.

---

 # tagRollover.tcl

 #!/bin/sh
 # the next line restarts using tclsh \
 exec tclsh "$0" "$@"

 package require Gnocl

 set text [gnocl::text ]

 set _tag_rollOver(baseClr) blue
 set _tag_rollOver(highlight) red

 $text tag create _tag_default \
        -onEvent {
                set t %t
                set w %w
                if { $t == "motionNotify" } {
                        $w tag configure _tag_rollOver -foreground $_tag_rollover(baseClr)
                }
        }

 $text tag create _tag_rollOver \
        -fontWeight bold \
        -foreground $_tag_rollover(baseClr) \
        -onEvent {
                set t %t
                set w %w
                if { $t == "motionNotify" } {
                        $w tag configure _tag_rollOver -foreground $_tag_rollOver(highlight)
                }
        }

 $text configure -onKeyPress {
        $text tag apply {0 0} end -tags _tag_default
 }

 $text insert end "This is " -tags _tag_default
 $text insert end "Gnocl" -tags _tag_rollOver
 $text insert end "!\n" -tags _tag_default

 gnocl::window -title "Text TagRollover Effext" -child $text
 gnocl::mainLoop

---