• part of tklib.
• a megawidget that is built upon the Tk text widget. It provides syntax highlighting, and can be used to highlight a variety of languages. It provides a simple API and more radical changes (other than color) can be made by modifying the tag attributes. By default matching pairs of characters are flashed on the screen, like the popular Emacs and Lisp editors can do.
• licensed like Tcl (BSDish), but copyrighted

 What: custom text widget
 Where: http://tcllib.sf.net/ (within the tklib module)
 Description: Fast syntax highlighting text megawidget.
        Provides a way to control the highlighting colors for classes
        of keywords.  Latest version has electric braces/quotes/brackets
        and a new edit modified instance command.
        Has been tested with Tcl/Tk 8.3.2 and 8.4b1.
 Updated: 05/2004
 Contact: tklib maintainers

    # Calculate the pixel offset of the first line of text
    set off [lindex [$win._t dlineinfo @0,0] 1]
    # Adjust the offset
    set off [expr {abs($off-3)}]
    # Yscroll the text widget by the number of pixels calculated
    $win.l yview scroll $off pixels

 package require ctext
 ctext .t -undo 1
 pack .t
 .t insert 1.0 "This is a sentence."
 .t edit undo
 if {[.t edit modified]==1} then {
     puts "Ctext Failed"
 } else {
     puts "Ctext Pass"
 }
 destroy .t

 return [uplevel 1 [linsert $args 0 $self._t $cmd]]

 set result [uplevel 1 [linsert $args 0 $self._t $cmd]]
 set ar(modified) [$self._t edit modified]
 return $result

                        if {"modified" == $subCmd} {
                                if {$argsLength == 1} {
                                        return $ar(modified)
                                } elseif {$argsLength == 2} {
                                        set value [lindex $args 1]
                                        set ar(modified) $value
                                        $self._t edit modified $value
                                } else {
                                        return -code error "invalid arg(s) to $self edit modified: $args"
                                }
                        }  else {
                                #Tk 8.4 has other edit subcommands that I don't want to emulate.
                                #return [uplevel 1 [linsert $args 0 $self._t $cmd]]
                                set result [uplevel 1 [linsert $args 0 $self._t $cmd]]
                                set ar(modified) [$self._t edit modified]
                                return $result
                        }

    proc patchCtext {} {
      # fixes problem with modified notification in ctext widget v3.1

      if { [catch {package require -exact ctext 3.1}] } {
        return "patch only works for ctext 3.1"
      }
      set b [info body ctext::instanceCmd]

      set pat1    {set ar\(modified\) \$value}
      set rep1    {set ar(modified) $value}
      append rep1 {\n$self._t edit modified $value}
      append rep1 {\nevent generate $self <<Modified>>}
      append rep1 {\nputs "instance 1: $value"}
      set rep1    [subst -novariables $rep1]
      set b1 [regsub $pat1 $b $rep1]

      set pat2    {return \[uplevel 1 \[linsert \$args 0 \$self._t \$cmd]]}
      set rep2    {set result [uplevel 1 [linsert $args 0 $self._t $cmd]]}
      append rep2 {\nset ar(modified) [$self._t edit modified]}
      append rep2 {\nevent generate $self <<Modified>>}
      append rep2 {\nputs "instance 2: $ar(modified)"}
      append rep2 {\nreturn $result}
      set rep2    [subst -nocommands -novariables $rep2]
      set b2 [regsub $pat2 $b1 $rep2]

      proc boo { self cmd args } $b2
      rename ::ctext::instanceCmd {}
      rename boo ::ctext::instanceCmd
    }

  bind ${module1_path} <KeyPress> {
    if {%k == 45} {
      set insertMode [expr {!$insertMode}]
    }
    if {$insertMode} {
      ${module1_path}.info tag remove sel 0.0 end
      set curIndex [${module1_path}.info index insert]
      catch {${module1_path}.info tag add \
        sel $curIndex [lindex [split $curIndex .] 0].[expr {[lindex [split $curIndex .] 1] + 1}]}
    }
  }

  # .ct is the pathName of the ctext widget.
  # pressing the Insert key toggles overwrite/insert mode
  set ::overwriteMode 0
  bind .ct <KeyPress> {
    if {%k == 45} {set overwriteMode [expr {!$overwriteMode}]}
    if {$overwriteMode} {
      .ct tag remove sel 0.0 end
      set curIndex [.ct index insert]
      catch {.ct tag add sel $curIndex [lindex [split $curIndex .] 0].[expr {[lindex [split $curIndex .] 1] + 1}]}
    }
  }

• Home
• Recent changes
• Help
• WhoAmI/Logout
• Create new page
• Random page
• Previous page
• Next page
• 
  
• Add comments
• Edit
• History
• Edit summary
• References