Karl Ramberg uploaded a new version of Etoys to project Etoys: http://source.squeak.org/etoys/Etoys-kfr.52.mcz
==================== Summary ====================
Name: Etoys-kfr.52 Author: kfr Time: 15 May 2011, 8:05:24 pm UUID: 0d0637ec-78a2-d749-91af-9ed61030d8e9 Ancestors: Etoys-kfr.51
Insert characters at end of text. Fix SQ-809
=============== Diff against Etoys-kfr.51 ===============
Item was changed: ----- Method: TextMorph class>>additionsToViewerCategories (in category '*eToys-scripting') ----- additionsToViewerCategories "Answer a list of (<categoryName> <list of category specs>) pairs that characterize the phrases this kind of morph wishes to add to various Viewer categories."
^ #(
(#'color' ( (slot color 'The color of the text' Color readWrite Player getTextColor Player setTextColor:) (slot backgroundColor 'The color of the background behind the text' Color readWrite Player getBackgroundColor Player setBackgroundColor:) ))
(text ( (slot characters 'The characters in my contents' String readWrite Player getCharacters Player setCharacters:)
(slot cursor 'The position among my characters that replacement text would go' Number readWrite Player getTextCursor Player setCursor:) (slot characterAtCursor 'The character at the my cursor position' String readWrite Player getCharacterAtCursor Player setCharacterAtCursor:) (slot count 'How many characters I have' Number readOnly Player getCount unused unused)
(slot firstCharacter 'The first character in my contents' String readWrite Player getFirstCharacter Player setFirstCharacter:)
(slot lastCharacter 'The last character in my contents' String readWrite Player getLastCharacter Player setLastCharacter:) (slot allButFirst 'All my characters except the first one' String readWrite Player getAllButFirstCharacter Player setAllButFirstCharacter:) (command insertCharacters: 'insert the given string at my cursor position' String) + (command insertCharactersAtEnd: 'insert the given string at end of string' String) (command insertContentsOf: 'insert the characters from another object at my cursor position' Player) (slot numericValue 'The number represented by my contents' Number readWrite Player getNumericValue Player setNumericValue:)))
(basic ( + (slot characters 'The characters in my contents' String readWrite Player getCharacters Player setCharacters:)))) - (slot characters 'The characters in my contents' String readWrite Player getCharacters Player setCharacters:))))
!
etoys-dev@lists.squeakfoundation.org