Etoys: Etoys-kfr.120.mcz

Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.120.mcz

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

Name: Etoys-kfr.120
Author: kfr
Time: 8 March 2012, 9:36:59 pm
UUID: b10d089d-50b4-fc4c-a672-2991f4266557
Ancestors: Etoys-kfr.119

Show simpler properties panel initially

=============== Diff against Etoys-kfr.119 ===============

Item was changed:
  GenericPropertiesMorph subclass: #ObjectPropertiesMorph
+ instanceVariableNames: 'simplePanel'
- instanceVariableNames: ''
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Etoys-Experimental'!

Item was changed:
  ----- Method: ObjectPropertiesMorph>>initialize (in category 'initialization') -----
  initialize
  "initialize the state of the receiver"
  super initialize.
  ""
+ simplePanel := true.
  myTarget
  ifNil: [myTarget _ RectangleMorph new openInWorld].
  self rebuild!

Item was changed:
  ----- Method: ObjectPropertiesMorph>>paneForMainColorPicker (in category 'panes') -----
  paneForMainColorPicker
 
  ^self
  inAColumn: {
  self
  colorPickerFor: self
  getter: #numberOneColor
  setter: #numberOneColor:.
+ self lockedString: 'Color' translated},
+ (simplePanel
+ ifFalse:[{(self paneForSolidFillToggle)  hResizing: #shrinkWrap}]
+ ifTrue:[{}])
- self lockedString: 'Color' translated.
- (self paneForSolidFillToggle)  hResizing: #shrinkWrap.
- }
  named: #pickerForColor.
 
  !

Item was added:
+ ----- Method: ObjectPropertiesMorph>>toggleSimplePanel (in category 'as yet unclassified') -----
+ toggleSimplePanel
+
+ simplePanel := simplePanel not.
+ self rebuild!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev