equal
deleted
inserted
replaced
2479 |
2479 |
2480 searchNextTextReachEnd |
2480 searchNextTextReachEnd |
2481 |message| |
2481 |message| |
2482 message := 'End of list reached, starting from the beginning'. |
2482 message := 'End of list reached, starting from the beginning'. |
2483 self searchTextRestarted: message. |
2483 self searchTextRestarted: message. |
|
2484 Smalltalk beep. |
2484 self searchNextTextFromBeginning. |
2485 self searchNextTextFromBeginning. |
2485 |
2486 |
2486 "Created: / 16-06-2007 / 11:00:59 / Administrador" |
2487 "Created: / 16-06-2007 / 11:00:59 / Administrador" |
2487 ! |
2488 ! |
2488 |
2489 |
2543 |
2544 |
2544 searchPreviousTextReachBeginning |
2545 searchPreviousTextReachBeginning |
2545 |message| |
2546 |message| |
2546 message := 'Beginning of list reached, starting from the end'. |
2547 message := 'Beginning of list reached, starting from the end'. |
2547 self searchTextRestarted: message. |
2548 self searchTextRestarted: message. |
|
2549 Smalltalk beep. |
2548 self searchPreviousTextFromEnd. |
2550 self searchPreviousTextFromEnd. |
2549 |
2551 |
2550 "Created: / 16-06-2007 / 11:01:23 / Administrador" |
2552 "Created: / 16-06-2007 / 11:01:23 / Administrador" |
2551 ! |
2553 ! |
2552 |
2554 |