[etoys-dev] Etoys: Etoys-kfr.120.mcz

[commits at source.squeak.org]

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!