The Trunk: MorphicExtras-nice.144.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: MorphicExtras-nice.144.mcz

commits-2
Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.144.mcz

==================== Summary ====================

Name: MorphicExtras-nice.144
Author: nice
Time: 16 December 2013, 4:04:28.929 pm
UUID: ecc96cd1-e279-4c8e-b230-7021ed2dcc83
Ancestors: MorphicExtras-nice.143

Use non logging Compiler protocol rather than providing a logged: false argument.
Note: I have the impression to stammer, many bytes seem identical, many bytes seem identical,...

=============== Diff against MorphicExtras-nice.143 ===============

Item was changed:
  ----- Method: SimpleSliderMorph>>setArguments (in category 'menu') -----
  setArguments
 
  | s newArgs newArgsArray |
  s := WriteStream on: ''.
  arguments do: [:arg | arg printOn: s. s nextPutAll: '. '].
  newArgs := UIManager default
  request:
  'Please type the arguments to be sent to the target
  when this button is pressed separated by periods' translated
  initialAnswer: s contents.
  newArgs isEmpty ifFalse: [
+ newArgsArray := Compiler evaluate: '{', newArgs, '}' for: self.
- newArgsArray := Compiler evaluate: '{', newArgs, '}' for: self logged: false.
  self arguments: newArgsArray].
  !

Item was changed:
  ----- Method: StringButtonMorph>>setArguments (in category 'menu') -----
  setArguments
 
  | s newArgs newArgsArray |
  s := WriteStream on: ''.
  arguments do: [:arg | arg printOn: s. s nextPutAll: '. '].
  newArgs := UIManager default
  request:
  'Please type the arguments to be sent to the target
  when this button is pressed separated by periods' translated
  initialAnswer: s contents.
  newArgs isEmpty ifFalse: [
+ newArgsArray := Compiler evaluate: '{', newArgs, '}' for: self.
- newArgsArray := Compiler evaluate: '{', newArgs, '}' for: self logged: false.
  self arguments: newArgsArray].
  !