MenuItem.st
changeset 1202 1cc76ca8e500
parent 1196 27897663fc97
child 1203 35445f3530a4
equal deleted inserted replaced
1201:d8c4b4f52e7e 1202:1cc76ca8e500
   451 !MenuItem methodsFor:'converting'!
   451 !MenuItem methodsFor:'converting'!
   452 
   452 
   453 fromLiteralArrayEncoding:aLiteralEncodedArray
   453 fromLiteralArrayEncoding:aLiteralEncodedArray
   454     "read my contents from a aLiteralEncodedArray"
   454     "read my contents from a aLiteralEncodedArray"
   455 
   455 
       
   456     |selector value|
       
   457 
   456     2 to:aLiteralEncodedArray size by:2 do:[:i |
   458     2 to:aLiteralEncodedArray size by:2 do:[:i |
   457         |selector value|
       
   458 
       
   459         selector := aLiteralEncodedArray at:i.
   459         selector := aLiteralEncodedArray at:i.
   460         value    := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray.
   460         value    := (aLiteralEncodedArray at:i+1) decodeAsLiteralArray.
   461         self perform:selector with:value
   461         self perform:selector with:value
   462     ].
   462     ].
   463 
   463 
   824 ! !
   824 ! !
   825 
   825 
   826 !MenuItem class methodsFor:'documentation'!
   826 !MenuItem class methodsFor:'documentation'!
   827 
   827 
   828 version
   828 version
   829     ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.27 1999-07-06 16:49:48 cg Exp $'
   829     ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.28 1999-07-13 15:42:43 cg Exp $'
   830 ! !
   830 ! !