;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;  Author        : $Author$
;  Created By    : Dr. Detlef Groth
;  Created       : Mon Apr 8 11:46:14 2002
;  Last Modified : <030529.0609>
;
;  Description
;
;  Notes
;
;  History
;
;  Copyright (c) 2002 MPIG Berlin, Germany.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
buffer-abbrev-file "tcl.eaf" 
hilight .hilight.tcl 2    "^package"          .scheme.prepro
hilight .hilight.tcl 2    "^source"          .scheme.prepro
; some missing keyword
hilight .hilight.tcl 1    "array"   .scheme.keyword
hilight .hilight.tcl 1    "variable"   .scheme.keyword
hilight .hilight.tcl 1    "info"   .scheme.keyword
hilight .hilight.tcl 1    "file"   .scheme.keyword
hilight .hilight.tcl 1    "update"   .scheme.keyword
hilight .hilight.tcl 1    "idletasks"   .scheme.keyword
hilight .hilight.tcl 1    "pwd"   .scheme.keyword
; some missing options
hilight .hilight.tcl 1    "-cursor"   .scheme.variable
hilight .hilight.tcl 1    "-nonewline"   .scheme.variable
hilight .hilight.tcl 4    "\\$" "\\}\\W" ""   .scheme.variable
; some operators
hilight   .hilight.tcl 1 "eq"                 .scheme.operator
hilight   .hilight.tcl 1 "ne"                 .scheme.operator
hilight   .hilight.tcl 1 "&&"                 .scheme.operator
hilight   .hilight.tcl 1 "||"                 .scheme.operator
hilight   .hilight.tcl 1 "=="                 .scheme.operator
hilight   .hilight.tcl 1 "!="                 .scheme.operator
hilight   .hilight.tcl 1 "<="                 .scheme.operator
hilight   .hilight.tcl 1 ">="                 .scheme.operator
hilight   .hilight.tcl 1 ">"                 .scheme.operator
hilight   .hilight.tcl 1 "<"                 .scheme.operator
hilight   .hilight.tcl 1 "%"                 .scheme.operator
hilight   .hilight.tcl 1 "+"                 .scheme.operator
hilight   .hilight.tcl 1 "-"                 .scheme.operator
; end of line comment
hilight .hilight.tcl 2    ";#"                .scheme.comment
; new tcl8.4 widgets
hilight .hilight.tcl 1    "spinbox"                .scheme.keyword
hilight .hilight.tcl 1    "-from"                .scheme.type
hilight .hilight.tcl 1    "-to"                .scheme.type
hilight .hilight.tcl 1    "-increment"                .scheme.type
hilight   .hilight.tcl 1 "-buttonbackground"        .scheme.type
hilight   .hilight.tcl 1 "-buttoncursor"        .scheme.type
hilight   .hilight.tcl 1 "-buttondownrelief"        .scheme.type
hilight   .hilight.tcl 1 "-buttonuprelief"        .scheme.type
hilight   .hilight.tcl 1 "-disabledbackground"        .scheme.type
hilight   .hilight.tcl 1 "-disabledforeground"        .scheme.type
hilight   .hilight.tcl 1 "-format"        .scheme.type
hilight   .hilight.tcl 1 "-invalidcommand or -invcmd"        .scheme.type
hilight   .hilight.tcl 1 "-invcmd"        .scheme.type
hilight   .hilight.tcl 1 "-readonlybackground"        .scheme.type
hilight   .hilight.tcl 1 "-validate"        .scheme.type
hilight   .hilight.tcl 1 "-validatecommand"        .scheme.type
hilight   .hilight.tcl 1 "-vcmd"        .scheme.type
hilight   .hilight.tcl 1 "-values"        .scheme.type
hilight .hilight.tcl 1    "panedwindow"                .scheme.keyword
hilight   .hilight.tcl 1 "-handlepad"        .scheme.type
hilight   .hilight.tcl 1 "-handlesize"        .scheme.type
hilight   .hilight.tcl 1 "-opaqueresize"        .scheme.type
hilight   .hilight.tcl 1 "-sashcursor"        .scheme.type
hilight   .hilight.tcl 1 "-sashpad"        .scheme.type
hilight   .hilight.tcl 1 "-sashrelief"        .scheme.type
hilight   .hilight.tcl 1 "-sashwidth"        .scheme.type
hilight   .hilight.tcl 1 "-showhandle"        .scheme.type
hilight .hilight.tcl 1    "-orient"                .scheme.type
hilight .hilight.tcl 1    "labelframe" .scheme.keyword
hilight .hilight.tcl 1    "-background" .scheme.type
hilight .hilight.tcl 1    "-class"      .scheme.type
hilight .hilight.tcl 1    "-colormap"   .scheme.type
hilight .hilight.tcl 1    "-container"  .scheme.type
hilight .hilight.tcl 1    "-labelanchor"      .scheme.type
hilight   .hilight.tcl 1    "-labelwidget"   .scheme.type
; some more tixWidgets
hilight .hilight.tcl 1    "tixDirList" .scheme.keyword
hilight .hilight.tcl 1    "tixDirTree" .scheme.keyword
hilight .hilight.tcl 1    "tixDisplayStyle" .scheme.keyword
hilight .hilight.tcl 1    "tixMeter" .scheme.keyword
hilight .hilight.tcl 1    "tixOptionMenu" .scheme.keyword
hilight .hilight.tcl 1    "tixPopupMenu" .scheme.keyword
hilight .hilight.tcl 1    "tixTList" .scheme.keyword
hilight .hilight.tcl 1    "tixTree" .scheme.keyword
define-macro abbrev-refresh
    0 buffer-abbrev-file "tcl.eaf"    
!emacro
define-macro tcl-help
    mark-word
    copy-region
    set-variable #l0 @y
    -1 yank
    shell-command &cat &cat "winhlp32 -k " #l0 " \"D:/Program Files/TclPro1.4/doc/help/tcl83.hlp\""
!emacro

define-macro dg-indent
 
 indent .hilight.tcl n "["  4
 indent .hilight.tcl o "]" -4

!emacro


set-variable .fhook-tcl.item-list-s1 "^\\s *proc\\s +\\(\\w[1-9A-Z:a-z_']*\\)\\s *{"
set-variable .fhook-tcl.item-list-r1 "Proc \ecB\\1\ecA"
set-variable .fhook-tcl.item-list-s2 "^\\s *class\\s +\\(\\w[1-9A-Za-z_']*\\)\\s *{"
set-variable .fhook-tcl.item-list-r2 "Class \ecB\\1\ecA"
set-variable .fhook-tcl.item-list-s3 "^\\s *body\\s +\\(\\w[1-9A-Za-z_']*\\)\\s *{"
set-variable .fhook-tcl.item-list-r3 "body \ecB\\1\ecA"
set-variable .fhook-tcl.item-list-s4 "^\\s *method\\s +\\(\\w[1-9A-Za-z_']*\\)\\s *{"
set-variable .fhook-tcl.item-list-r4 "   method \ecB\\1\ecA"
set-variable .fhook-tcl.item-list-s5 "^\\s *destructor\\s *{"
set-variable .fhook-tcl.item-list-r5 "   destructor "
set-variable .fhook-tcl.item-list-s6 "^\\s *constructor\\s *\{\\(.+\\)\}"
set-variable .fhook-tcl.item-list-r6 "   constructor \ecB\\1\ecA"