head    1.3;
access;
symbols;
locks
       mys:1.3; strict;
comment @# @;


1.3
date    2000.04.11.21.41.24;    author mys;     state Exp;
branches;
next    1.2;

1.2
date    2000.04.11.19.09.28;    author mys;     state Exp;
branches;
next    1.1;

1.1
date    99.11.09.21.32.05;      author mys;     state Exp;
branches;
next    ;


desc
@@

1.3
log
@*** empty log message ***
@
text
@# Copyright (C) 2000 - Martin Strauss - under terms of GPL
##############################################################
# search routine
# ok !
proc InitSearch {} {
global T
if ![winfo exists .wsearch] then {
 toplevel .wsearch
 wm title .wsearch $T(wsearch-titel)

 entry .wsearch.text1 -width 20 -relief sunken -background White
 entry .wsearch.text2 -width 20 -relief sunken -background White

 global wsearch_gb
 checkbutton .wsearch.butgb -variable wsearch_gb -text $T(wsearch-case-sensitive)

 button .wsearch.but1 -text $T(wsearch-top) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set Text [.wsearch.text1 get]
   if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
   set ksp [$FocusEditor.te.edit1 search $comm $Text 1.0]
   if {$ksp != ""} then {
    $FocusEditor.te.edit1 mark set insert $ksp
    $FocusEditor.te.edit1 see insert
    $FocusEditor.te.edit1 tag remove sel 1.0 end
    $FocusEditor.te.edit1 tag add sel insert insert+[string length $Text]c
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
 }}}
 frame .wsearch.f1

 button .wsearch.f1.but2 -text $T(wsearch-down) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set Text [.wsearch.text1 get]
   if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
   set ksp [$FocusEditor.te.edit1 search $comm $Text insert+1c]
   if {$ksp != ""} then {
   $FocusEditor.te.edit1 mark set insert $ksp
    $FocusEditor.te.edit1 see insert
    $FocusEditor.te.edit1 tag remove sel 1.0 end
    $FocusEditor.te.edit1 tag add sel insert insert+[string length $Text]c
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
  }}}

 button .wsearch.f1.but3 -text $T(wsearch-up) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set Text [.wsearch.text1 get]
   if {$Text != ""} then {
    if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
    set ksp [$FocusEditor.te.edit1 search -backwards $comm $Text insert]
    if {$ksp != ""} then {
     $FocusEditor.te.edit1 mark set insert $ksp
     $FocusEditor.te.edit1 see insert
     $FocusEditor.te.edit1 tag remove sel 1.0 end
     $FocusEditor.te.edit1 tag add sel insert insert+[string length $Text]c
     event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
  }}}}

 frame .wsearch.f2

 button .wsearch.f2.but4 -text $T(wsearch-replace) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set FIND [.wsearch.text1 get]
   set FIND_L [string length $FIND]
   if {$FIND != ""} then {
    set NOW [$FocusEditor.te.edit1 get insert "insert + $FIND_L chars"]
    if ![string compare $NOW $FIND] then {
     # Ersetzt
     undo_switch $FocusEditor.te.edit1 "Save {insert \"insert + $FIND_L chars\"} Delete UndoBegin"
     set REPLACE [.wsearch.text2 get]
     $FocusEditor.te.edit1 insert insert $REPLACE
     $FocusEditor.te.edit1 see insert
     undo_switch $FocusEditor.te.edit1 {UndoEnd Save UndoMax}
     event generate $FocusEditor.te.edit1 <<Modified>>
    }
    # Sucht
    if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
    set ksp [$FocusEditor.te.edit1 search $comm $FIND insert]
    if {$ksp != ""} then {
     $FocusEditor.te.edit1 mark set insert $ksp
     $FocusEditor.te.edit1 see insert
     $FocusEditor.te.edit1 tag remove sel 1.0 end
     $FocusEditor.te.edit1 tag add sel insert insert+[string length $FIND]c
     $FocusEditor.te.edit1 mark set sel.first insert
     event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
 }}}}

 button .wsearch.f2.but5 -text $T(wsearch-all) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set FIND [.wsearch.text1 get]
   set FIND_L [string length "$FIND"]
   if {$FIND != ""} then {
    set REPLACE [.wsearch.text2 get]
    set modifiedflag 0
    if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
    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
      undo_switch $FocusEditor.te.edit1 "{insert \"insert + $FIND_L chars\"} Delete UndoBegin"
      $FocusEditor.te.edit1 insert insert $REPLACE
      undo_switch $FocusEditor.te.edit1 {UndoEnd Save}
      set startindex [$FocusEditor.te.edit1 index insert]
      set modifiedflag 1
     }
     # Sucht
     set nowindex [$FocusEditor.te.edit1 search $comm $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
   }
  }
 }

 button .wsearch.butQ -text $T(quit) -command {
  destroy .wsearch
 }
 pack  .wsearch.f1.but2 -side left
 pack .wsearch.f1.but3 -side right
 pack .wsearch.f2.but4 .wsearch.f2.but5 -side left
 pack .wsearch.text1 .wsearch.but1 .wsearch.f1 .wsearch.butgb .wsearch.text2\
wsearch.f2 .wsearch.butQ
 wm minsize . 1 1
 bind .wsearch <<Help>> {Help tcltexed_hlp $T(wsearch-Help)}
 bind .wsearch <Control-c> {
  destroy .wsearch
 }
 wm resizable .wsearch 0 0
 COLOR .wsearch
 .wsearch.text1 configure -background White
 .wsearch.text2 configure -background White
 menu .wsearch.text1.pop_menu
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Cut) -command "event generate .wsearch.text1 <<Cut>>"
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Copy) -command "event generate wsearch.text1 <<Copy>>"
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Paste) -command "event generate .wsearch.text1 <<Paste>>"
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Clear) -command "event generate .wsearch.text1 <<Clear>>"
 menu .wsearch.text2.pop_menu
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Cut) -command "event generate .wsearch.text2 <<Cut>>"
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Copy) -command "event generate .wsearch.text2 <<Copy>>"
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Paste) -command "event generate .wsearch.text2 <<Paste>>"
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Clear) -command "event generate .wsearch.text2 <<Clear>>"

 bind .wsearch.text1 <Button-3> "tk_popup .wsearch.text1.pop_menu \[winfo pointerx .wsearch\] \[winfo pointery .wsearch\]"
 bind .wsearch.text2 <Button-3> "tk_popup .wsearch.text2.pop_menu \[winfo pointerx .wsearch\] \[winfo pointery .wsearch\]"

} else {focus .wsearch}
}
@


1.2
log
@*** empty log message ***
@
text
@d1 158
a158 159
# Copyright (C) 1999 - Martin Strauss - under terms of GPL
##############################################################
# search routine
# ok !
proc InitSearch {} {
global T
if ![winfo exists .wsearch] then {
 toplevel .wsearch
 wm title .wsearch $T(wsearch-titel)

 entry .wsearch.text1 -width 20 -relief sunken -background White
 entry .wsearch.text2 -width 20 -relief sunken -background White

 global wsearch_gb
 checkbutton .wsearch.butgb -variable wsearch_gb -text $T(wsearch-case-sensitive)

 button .wsearch.but1 -text $T(wsearch-top) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set Text [.wsearch.text1 get]
   if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
   set ksp [$FocusEditor.te.edit1 search $comm $Text 1.0]
   if {$ksp != ""} then {
    $FocusEditor.te.edit1 mark set insert $ksp
    $FocusEditor.te.edit1 see insert
    $FocusEditor.te.edit1 tag remove sel 1.0 end
    $FocusEditor.te.edit1 tag add sel insert insert+[string length $Text]c
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
 }}}
 frame .wsearch.f1

 button .wsearch.f1.but2 -text $T(wsearch-down) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set Text [.wsearch.text1 get]
   if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
   set ksp [$FocusEditor.te.edit1 search $comm $Text insert+1c]
   if {$ksp != ""} then {
   $FocusEditor.te.edit1 mark set insert $ksp
    $FocusEditor.te.edit1 see insert
    $FocusEditor.te.edit1 tag remove sel 1.0 end
    $FocusEditor.te.edit1 tag add sel insert insert+[string length $Text]c
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
  }}}

 button .wsearch.f1.but3 -text $T(wsearch-up) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set Text [.wsearch.text1 get]
   if {$Text != ""} then {
    if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
    set ksp [$FocusEditor.te.edit1 search -backwards $comm $Text insert]
    if {$ksp != ""} then {
     $FocusEditor.te.edit1 mark set insert $ksp
     $FocusEditor.te.edit1 see insert
     $FocusEditor.te.edit1 tag remove sel 1.0 end
     $FocusEditor.te.edit1 tag add sel insert insert+[string length $Text]c
     event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
  }}}}

 frame .wsearch.f2

 button .wsearch.f2.but4 -text $T(wsearch-replace) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set FIND [.wsearch.text1 get]
   set FIND_L [string length $FIND]
   if {$FIND != ""} then {
    set NOW [$FocusEditor.te.edit1 get insert "insert + $FIND_L chars"]
    if ![string compare $NOW $FIND] then {
     # Ersetzt
     undo_switch $FocusEditor.te.edit1 "Save {insert \"insert + $FIND_L chars\"} Delete UndoBegin"
     set REPLACE [.wsearch.text2 get]
     $FocusEditor.te.edit1 insert insert $REPLACE
     $FocusEditor.te.edit1 see insert
     undo_switch $FocusEditor.te.edit1 {UndoEnd Save UndoMax}
     event generate $FocusEditor.te.edit1 <<Modified>>
    }
    # Sucht
    if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
    set ksp [$FocusEditor.te.edit1 search $comm $FIND insert]
    if {$ksp != ""} then {
     $FocusEditor.te.edit1 mark set insert $ksp
     $FocusEditor.te.edit1 see insert
     $FocusEditor.te.edit1 tag remove sel 1.0 end
     $FocusEditor.te.edit1 tag add sel insert insert+[string length $FIND]c
     $FocusEditor.te.edit1 mark set sel.first insert
     event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
 }}}}

 button .wsearch.f2.but5 -text $T(wsearch-all) -command {
  if $FocusEditorFlag then {
   focus $FocusEditor.te.edit1
   set FIND [.wsearch.text1 get]
   set FIND_L [string length "$FIND"]
   if {$FIND != ""} then {
    set REPLACE [.wsearch.text2 get]
    set modifiedflag 0
    if !$wsearch_gb then {set comm "-nocase --"} else {set comm "--"}
    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
      undo_switch $FocusEditor.te.edit1 "{insert \"insert + $FIND_L chars\"} Delete UndoBegin"
      $FocusEditor.te.edit1 insert insert $REPLACE
      undo_switch $FocusEditor.te.edit1 {UndoEnd Save}
      set startindex [$FocusEditor.te.edit1 index insert]
      set modifiedflag 1
     }
     # Sucht
     set nowindex [$FocusEditor.te.edit1 search $comm $FIND insert end]
    }
    $FocusEditor.te.edit1 mark set insert $startindex
    if $modifiedflag {
     undo_switch $FocusEditor.te.edit1 Save
     event generate $FocusEditor.te.edit1 <<Modified>>
    }
    event generate $FocusEditor.te.edit1 <<Position_tail>> -when tail
   }
  }
 }

 button .wsearch.butQ -text $T(quit) -command {
  destroy .wsearch
 }
 pack  .wsearch.f1.but2 -side left
 pack .wsearch.f1.but3 -side right
 pack .wsearch.f2.but4 .wsearch.f2.but5 -side left
 pack .wsearch.text1 .wsearch.but1 .wsearch.f1 .wsearch.butgb .wsearch.text2\
wsearch.f2 .wsearch.butQ
 wm minsize . 1 1
 bind .wsearch <<Help>> {Help tcltexed_hlp $T(wsearch-Help)}
 bind .wsearch <Control-c> {
  destroy .wsearch
 }
 wm resizable .wsearch 0 0
 COLOR .wsearch
 .wsearch.text1 configure -background White
 .wsearch.text2 configure -background White
 menu .wsearch.text1.pop_menu
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Cut) -command "event generate .wsearch.text1 <<Cut>>"
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Copy) -command "event generate wsearch.text1 <<Copy>>"
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Paste) -command "event generate .wsearch.text1 <<Paste>>"
 .wsearch.text1.pop_menu add command -label $T(pop_menu-Clear) -command "event generate .wsearch.text1 <<Clear>>"
 menu .wsearch.text2.pop_menu
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Cut) -command "event generate .wsearch.text2 <<Cut>>"
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Copy) -command "event generate .wsearch.text2 <<Copy>>"
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Paste) -command "event generate .wsearch.text2 <<Paste>>"
 .wsearch.text2.pop_menu add command -label $T(pop_menu-Clear) -command "event generate .wsearch.text2 <<Clear>>"

 bind .wsearch.text1 <Button-3> "tk_popup .wsearch.text1.pop_menu \[winfo pointerx .wsearch\] \[winfo pointery .wsearch\]"
 bind .wsearch.text2 <Button-3> "tk_popup .wsearch.text2.pop_menu \[winfo pointerx .wsearch\] \[winfo pointery .wsearch\]"

} else {focus .wsearch}
}
@


1.1
log
@Initial revision
@
text
@d110 2
a111 1
      undo_switch $FocusEditor.te.edit1 UndoEnd
@

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.