equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 "{ Package: 'stx:libbasic2' }" |
12 "{ Package: 'stx:libbasic2' }" |
14 |
13 |
15 Object subclass:#UndoSupport |
14 Object subclass:#UndoSupport |
16 instanceVariableNames:'actionPerformer transaction undoList redoList |
15 instanceVariableNames:'actionPerformer transaction undoList redoList |
17 infoOfCurrentTransaction' |
16 infoOfCurrentTransaction' |
179 ]. |
178 ]. |
180 ! |
179 ! |
181 |
180 |
182 redo |
181 redo |
183 self executeActionFrom:redoList addUndoTo:undoList |
182 self executeActionFrom:redoList addUndoTo:undoList |
|
183 ! |
|
184 |
|
185 redoActionInfo |
|
186 ^ redoList last info |
184 ! |
187 ! |
185 |
188 |
186 undo |
189 undo |
187 self executeActionFrom:undoList addUndoTo:redoList |
190 self executeActionFrom:undoList addUndoTo:redoList |
188 ! |
191 ! |
245 ! ! |
248 ! ! |
246 |
249 |
247 !UndoSupport class methodsFor:'documentation'! |
250 !UndoSupport class methodsFor:'documentation'! |
248 |
251 |
249 version |
252 version |
250 ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.8 2006-01-25 10:39:26 cg Exp $' |
253 ^ '$Header: /cvs/stx/stx/libbasic2/UndoSupport.st,v 1.9 2008-03-08 10:53:23 cg Exp $' |
251 ! ! |
254 ! ! |