# Copyright (C) 2000 - Martin Strauss - under terms of GPL
##############################################################
# umlaut routine
#
proc umlaut LIST {
global FocusEditorFlag
global FocusEditor
if $FocusEditorFlag then {
 focus $FocusEditor.te.edit1
 foreach {FIND REPLACE} $LIST {
   set FIND_L [string length "$FIND"]
   if {$FIND != ""} then {
    set modifiedflag 0
    undo_switch $FocusEditor.te.edit1 Save
    set startindex [$FocusEditor.te.edit1 index insert]
    set nowindex 1.0
    while {$nowindex != ""} {
     $FocusEditor.te.edit1 mark set insert $nowindex
     set NOW [$FocusEditor.te.edit1 get insert "insert + $FIND_L chars"]
     if ![string compare $NOW $FIND] then {
      # Ersetzt
      $FocusEditor.te.edit1 delete insert "insert + $FIND_L chars"
      $FocusEditor.te.edit1 insert insert $REPLACE
      set modifiedflag 1
     }
     # Sucht
     set nowindex [$FocusEditor.te.edit1 search -- $FIND insert end]
    }
    $FocusEditor.te.edit1 mark set insert $startindex
    if $modifiedflag {
     event generate $FocusEditor.te.edit1 <<Modified>>
    }
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
   }
  }
}
}