Tools__InternationalLanguageTranslationEditor.st
changeset 2330 58ace5744c59
parent 2329 a9d39ef2c8aa
child 2410 a3b53393dcf3
equal deleted inserted replaced
2329:a9d39ef2c8aa 2330:58ace5744c59
  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