🚀 go-pugleaf

Tu prawdobodobnie chodzi o "separator"
Z Dokumentacji widget text

THE UNDO MECHANISM
The text widget has an unlimited undo and redo mechanism (when the
-undo widget option is true) which records every insert and delete
action on a stack.
Boundaries (called "separators") are inserted between edit actions. The
purpose of these separators is to group inserts, deletes and replaces
into one compound edit action. When undoing a change everything between
two separators will be undone. The undone changes are then moved to the
redo stack, so that an undone edit can be redone again. The redo stack
is cleared whenever new edit actions are recorded on the undo stack.
The undo and redo stacks can be cleared to keep their depth under
control.

Separators are inserted automatically when the -autoseparators widget
option is true. You can insert separators programmatically as well. If
a separator is already present at the top of the undo stack no other
will be inserted. That means that two separators on the undo stack are
always separated by at least one insert or delete action.

The undo mechanism is also linked to the modified flag. This means that
undoing or redoing changes can take a modified text widget back to the
unmodified state or vice versa. The modified flag will be set
automatically to the appropriate state. This automatic coupling does
not work when the modified flag has been set by the user, until the
flag has been reset again.

See below for the edit widget command that controls the undo mechanism.

Zobacz takze
$window undo seperator
i opcja
-autoseparators


> Witajcie,
>
> Mam problem z prostym skryptem Tcl/Tk. Zaimplementowałem w nim
> mechanizm obsługujący polecenia Edit->Copy, Edit->Paste, Edit->Undo.
>
> Po wykonaniu poleceń Edit->Copy, Edit->Paste, Edit->Undo w polu entry
> pojawia się nie tylko poprzednia zawartość, ale i dane położone
> wcześniej do schowka.
>
> Czy spotkaliście się z takim problemem?  Nie jest to wina błędnego
> kopiowana danych lub ściągania danych ze schowka przez mój skrypt.
> 
> System operacyjny: Windows XP Home PL
> 
> Jacek

Tylko, ze widget entry nie ma tej opcji.  Ale spróbuje z
1-linijkowym widgetem text zamiast entry.

Hmm. Tez nie dziala tak jak powinno...

Sorry. Nie doczytalem.
Entry nie posiada wbudowanego mechanizmu undo tak jak Text-Widget
(Control-z).
Wszystko zalezy jak sie zimplementowalo Edit->Undo i co to wogóle w
tym
kontekscia ma znaczyc.

entry .e
pack .e
set undoBuf "value 1"
.e insert 0 $undoBuf
bind .e <Control-KeyPress-z> {
    .e delete 0 end
    .e inser 0 $undoBuf
}

Nie szkodzi. Dziekuje za podpowiedzi.

Pomoglo cos zupelne innego. Trzeba bylo wylaczyc obsluge
niektórych zdarzen wirtualnych:

event delete <<Undo>>
event delete <<Copy>>
event delete <<Paste>>
event delete <<Redo>

i podpiac pod <Control-Key-z>, <Control-Key-c>, <Control-Key-v>,
<Control-Key-y> wlasne procedurki (podpiecie i procedurki mialem
zrobione juz wczesniej).

Teraz dziala bez zarzutu. Najwyrazniej natrafilem na
nieudokumentowany konflikt obslugi zdarzen.

Jacek