'From Squeak3.8gamma of ''24 November 2004'' [latest update: #6662] on 17 May 2005 at 12:44:18 am'!
"Change Set:		fixViewerBuilding
Date:			17 May 2005
Author:			Takashi Yamamiya

This is a proposal about making a viewer of CPlayer.

- The viewer is made by CPlayer >> buildTileViewer.

- You can add #viewerSpecAdditions in new CPlayer class to make new
  tiles.  #viewerSpecAdditions answers a string of XML definition of
  new category.  The new category is shown at 5th in the categories.

- If you override #viewerSpecNode, the specification would be modified
  more freely.

- If you override #buildTileViewer, you can attach any player in the
  viewer ;)
"!


!CPlayer methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 21:36'!
buildTileViewer
	"Answer a default viewer for the given player, not yet opened"
	^ (CTileDefinition readXmlFrom: self viewerSpecNode)
		newFor: self! !

!CPlayer methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:35'!
defaultViewerNode
	^ XMLDOMParser parseDocumentFrom: self defaultViewerSpec readStream! !

!CPlayer methodsFor: '*Tweak-Tiles' stamp: 'tak 5/17/2005 00:31'!
defaultViewerSpec
	"XMLDOMParser parseDocumentFrom: self basicNew defaultViewerSpec readStream"
^'
<viewer type="CPlayer">

	<category name="basic">
		<message selector="makeSound:" name="make sound:" help="Make the specified sound">
			<argument name="aSound" type="CSoundNameType" default="croak"/>
		</message>
		<message selector="forwardBy:" name="forward by:" help="Move the object forward into the direction it is heading">
			<argument name="delta" type="CNumberType" default="5"/>
		</message>
		<message selector="turnBy:" name="turn by:" help="Change the heading of the object by the specified amount">
			<argument name="delta" type="CNumberType" default="5"/>
		</message>
		<slot selector="x" name="x" type="CNumberType" help="The x coordinate"/>
		<slot selector="y" name="y" type="CNumberType" help="The y coordinate"/>
		<slot selector="angle" name="heading" type="CNumberType" help="Which direction the object is facing"/>
	</category>


	<category id="scripts" name="scripts">
		<message selector="emptyScript" name="emptyScript" help="The empty script"/>
	</category>

	<category name="variables">
	</category>

	<category name="and or not" type="CBooleanType">
		<operator selector="=" name="=" type="CBooleanType" 
				help="True if the values are equal">
			<receiver name="A" type="CBooleanType" default="true"/>
			<argument name="B" type="CBooleanType" default="true"/>
		</operator>
		<operator selector="&amp;" name="and" type="CBooleanType" 
				help="True if the values are both true">
			<receiver name="A" type="CBooleanType" default="true"/>
			<argument name="B" type="CBooleanType" default="true"/>
		</operator>
		<operator selector="|" name="or" type="CBooleanType" 
				help="True if at least one of the values is true">
			<receiver name="A" type="CBooleanType" default="true"/>
			<argument name="B" type="CBooleanType" default="false"/>
		</operator>
		<message selector="not" name="not" type="CBooleanType" 
				help="The opposite value">
			<receiver name="A" type="CBooleanType" default="true"/>
		</message>
	</category>

	<category name="color and border">
		<message selector="color:sees:" name="color:sees:" type="CBooleanType">
			<argument name="myColor" type="CColorType" default="blue"/>
			<argument name="aColor" type="CColorType" default="red"/>
		</message>
		<slot selector="color" name="color" type="CColorType"/>
		<slot selector="fillStyle" name="fillStyle" type="CFillStyleType"/>
		<slot selector="borderWidth" name="borderWidth" type="CIntegerType"/>
		<slot selector="borderColor" name="borderColor" type="CColorType"/>
		<slot selector="borderStyle" name="borderStyle" type="CBorderStyleType"/>
		<slot selector="roundCorners" name="roundedCorners" type="CBooleanType"/>
		<slot selector="dropShadowEnabled" name="shadowEnabled" type="CBooleanType"/>
		<slot selector="dropShadowColor" name="shadowColor" type="CColorType"/>
	</category>
	

	<category name="test and repeat">
		<operator selector="ifTrue:" name="if" help="control structure">
			<receiver name="Condition" type="CBooleanType" default="false"/>
			<argument name="trueBlock" type="CBlockType"/>
		</operator>
		<message selector="forEach:do:until:" name="for each:do:until:" help="control structure">
			<argument name="event" type="CEventType" default="mouseMove"/>
			<argument name="block" type="CBlockType"/>
			<argument name="stopEvent" type="CEventType" default="mouseUp"/>
		</message>
		<operator selector="timesRepeat:" name="repeat:" help="control structure">
			<receiver name="count" type="CNumberType" default="5"/>
			<argument name="block" type="CBlockType"/>
		</operator>
		<message selector="wait:" name="wait" help="wait for seconds">
			<argument name="duration" type="CNumberType" default="1.0"/>
		</message>
	</category>

	<category name="geometry">
		<slot selector="x" name="x" type="CNumberType" help="The x coordinate"/>
		<slot selector="y" name="y" type="CNumberType" help="The y coordinate"/>
		<slot selector="angle" name="heading" type="CNumberType" help="The heading"/>
		<slot selector="scale" name="scale" type="CNumberType"/>
		<slot selector="left" name="left" type="CNumberType"/>
		<slot selector="right" name="right" type="CNumberType"/>
		<slot selector="top" name="top" type="CNumberType"/>
		<slot selector="bottom" name="bottom" type="CNumberType"/>

		<slot selector="width" name="width" type="CNumberType"/>
		<slot selector="height" name="height" type="CNumberType"/>
	</category>

	<category name="math">
		<operator selector="+" name="+" type="CNumberType" help="Add two values">
			<receiver name="A" type="CNumberType" default="1"/>
			<argument name="B" type="CNumberType" default="1"/>
		</operator>
		<operator selector="-" name="-" type="CNumberType" help="Subtract two values">
			<receiver name="A" type="CNumberType" default="1"/>
			<argument name="B" type="CNumberType" default="1"/>
		</operator>
		<operator selector="*" name="*" type="CNumberType" help="Multiply two values">
			<receiver name="A" type="CNumberType" default="1"/>
			<argument name="B" type="CNumberType" default="1"/>
		</operator>
		<operator selector="/" name="/" type="CNumberType" help="Divide two values">
			<receiver name="A" type="CNumberType" default="1"/>
			<argument name="B" type="CNumberType" default="1"/>
		</operator>

		<separator/>

		<operator selector="<" name="<" type="CBooleanType" 
				help="True if the first number is less">
			<receiver name="A" type="CNumberType" default="1"/>
			<argument name="B" type="CNumberType" default="2"/>
		</operator>
		<operator selector=">" name=">" type="CBooleanType" 
				help="True if the first number is greater">
			<receiver name="A" type="CNumberType" default="2"/>
			<argument name="B" type="CNumberType" default="1"/>
		</operator>
		<operator selector="=" name="=" type="CBooleanType" 
				help="True if the numbers are equal">
			<receiver name="A" type="CNumberType" default="1"/>
			<argument name="B" type="CNumberType" default="1"/>
		</operator>

		<separator/>

		<operator selector="abs" name="absolute value" type="CNumberType" 
				help="Make into a positive number">
			<receiver name="A" type="CNumberType" default="-5"/>
		</operator>
		<operator selector="truncated" name="truncated" type="CNumberType" 
				help="The whole number part">
			<receiver name="A" type="CNumberType" default="3.6"/>
		</operator>
		<operator selector="rounded" name="rounded" type="CNumberType" 
				help="The whole number part">
			<receiver name="A" type="CNumberType" default="3.6"/>
		</operator>
		<operator selector="atRandom" name="random" type="CNumberType" 
				help="The whole number part">
			<receiver name="A" type="CIntegerType" default="180"/>
		</operator>
		<operator selector="raisedTo:" name="to the power of:" type="CNumberType" help="Raise arg1 to the power of arg2">
			<receiver name="A" type="CNumberType" default="2"/>
			<argument name="B" type="CNumberType" default="2"/>
		</operator>
	</category>

	<category name="scripting">
		<message selector="startScript:" name="start script" help="Start this script">
			<argument name="aScript" type="CScriptNameType" default="emptyScript"/>
		</message>
		<message selector="stopScript:" name="stop script" help="Stop this script">
			<argument name="aScript" type="CScriptNameType" default="emptyScript"/>
		</message>
		<message selector="pauseScript:" name="pause script" help="Pause this script">
			<argument name="aScript" type="CScriptNameType" default="emptyScript"/>
		</message>
		<message selector="resumeScript:" name="resume script" help="Resume this script">
			<argument name="aScript" type="CScriptNameType" default="emptyScript"/>
		</message>
		<message selector="startTicking:at:" name="start ticking:at:" help="Start to tick this script">
			<argument name="aScript" type="CScriptNameType" default="emptyScript"/>
			<argument name="aFrequency" type="CNumberType" default="8"/>
		</message>
	</category>

	<category name="pen">
		<slot selector="penDown" name="pen down" type="CBooleanType" />
		<slot selector="penColor" name="pen color" type="CColorType" />
		<slot selector="penWidth" name="pen down" type="CIntegerType" />
		<message selector="clearPenTrails" />
	</category>

	<category id="vectors" name="vectors">
		<slot selector="position" name="position" type="CPointType" help="The position of the object"/>
		<slot selector="heading" name="heading" type="CPointType" help="The heading of the object"/>
		<message selector="distanceTo:" name="distance to:" type="CNumberType">
			<argument name="aPlayer" type="CPlayerType"/>
		</message>
	</category>

</viewer>
'! !

!CPlayer methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:39'!
viewerSpecAdditions
	^ nil! !

!CPlayer methodsFor: '*Tweak-Tiles' stamp: 'tak 5/17/2005 00:32'!
viewerSpecNode
	"Answer XML node of viewer definition"
	"self basicNew viewerSpecNode"
	| node additionalSpec additionalNode |
	node _ self defaultViewerNode.
	additionalSpec _ self viewerSpecAdditions.
	additionalSpec
		ifNotNil: [additionalNode _ XMLDOMParser parseDocumentFrom: additionalSpec readStream.
			additionalNode elements
				reverseDo: [:each | (node firstTagNamed: #viewer) elements add: each afterIndex: 4]].
	^ node! !


!CButton methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:39'!
viewerSpecAdditions
	^ '
	<category name="button" type="CButton">
		<slot selector="label" type="CStringType" help="The button label"/>
		<slot selector="image" type="CImageResourceType" help="The button image"/>
		<slot selector="state" type="CButtonStateType" help="The button state"/>
		<slot selector="selected" type="CBooleanType" help="The selection state"/>
		<slot selector="value" type="CBooleanType" help="The button label"/>
		<message selector="select"/>
		<message selector="deselect"/>
		<message selector="fire" help="fire the button"/>
		<message selector="enable"/>
		<message selector="disable"/>
	</category>
'! !


!CImageButton methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:47'!
viewerSpecAdditions
	^ super viewerSpecAdditions,
'
	<category name="images" type="CImageButton">
		<slot selector="normalImage" type="CImageResourceType"/>
		<slot selector="overImage" type="CImageResourceType"/>
		<slot selector="pressedImage" type="CImageResourceType"/>
		<slot selector="disabledImage" type="CImageResourceType"/>
		<slot selector="selectedImage" type="CImageResourceType"/>
	</category>
'! !


!CLabel methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:51'!
viewerSpecAdditions
	^ '
	<category name="label" type="CLabel">
		<slot selector="value" type="CStringType" help="The label text"/>
	</category>
'! !


!CList methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:52'!
viewerSpecAdditions
	^ '
	<category name="list" type="CList">
		<slot selector="cursor" type="CNumberType"/>
		<message selector="next"/>
		<message selector="prev"/>
	</category>
'! !


!CMagnifier methodsFor: '*Tweak-EToys' stamp: 'tak 5/16/2005 23:55'!
viewerSpecAdditions
	^ '
	<category name="magnifier" type="CMagnifier">
		<slot selector="scale" name="scale" type="CNumberType"/>
		<slot selector="trackPointer" type="CBooleanType" />
		<slot selector="showPointer" type="CBooleanType" />
	</category>
'! !


!CProjectBuilder methodsFor: 'halo' stamp: 'tak 5/16/2005 21:14'!
onHaloViewer: aHandle
	"The user has clicked on the open-viewer halo handle of an object"

	| haloTarget viewer viewerTarget |
	<on: haloViewer>
	haloTarget := self halo target.
	viewerTarget := haloTarget player ifNil: [haloTarget].
	hand shiftPressed
		ifTrue:
			[viewer := CTileInspector open.
			viewer target: viewerTarget]
		ifFalse:
			[Preferences viewersInFlaps
				ifTrue:
					[CViewerFlap openForTarget: viewerTarget inWorld: self]
				ifFalse:
					[viewerTarget buildTileViewer open]]! !


!CSlider methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:53'!
viewerSpecAdditions
	^ '
	<category name="slider" type="CSlider">
		<slot selector="value" type="CNumberType" help="The current value"/>
		<slot selector="min" type="CIntegerType" help="The minimum value"/>
		<slot selector="max" type="CIntegerType" help="The maximum value"/>
		<slot selector="step" type="CIntegerType" help="The step value"/>
		<message selector="next"/>
		<message selector="prev"/>
	</category>
'! !


!CTextEditor methodsFor: '*Tweak-Tiles' stamp: 'tak 5/16/2005 23:50'!
viewerSpecAdditions
	^ '
	<category name="text editor" type="CTextEditor">
		<slot selector="selectionStart" type="CIntegerType"/>
		<slot selector="selectionStop" type="CIntegerType"/>
		<slot selector="selection" type="CStringType"/>
		<slot selector="allowEditing" type="CBooleanType"/>
		<slot selector="hScrollable" type="CBooleanType"/>
		<slot selector="vScrollable" type="CBooleanType"/>
		<message selector="findText:" name="find text" help="find a portion of text">
			<argument name="aString" type="CStringType" default=""/>
		</message>
		<message selector="append:" name="append text" help="append the text">
			<argument name="aString" type="CStringType" default=""/>
		</message>
		<message selector="enter" name="enter" help="simulate the enter key"/>
		<message selector="undo" name="undo" help="undo last editing"/>
		<message selector="redo" name="redo" help="redo last editing"/>
	</category>
'! !


!CTileDefinition class methodsFor: 'reading' stamp: 'tak 5/16/2005 21:35'!
readXmlFrom: xmlDocument 
	^ self xmlFrom: xmlDocument elements first! !


!CViewerFlap methodsFor: 'private' stamp: 'tak 5/16/2005 21:10'!
assureThatCategoryShows: aCategoryName
	"Assure that the category of the given name is showing"

	| aViewer |
	(holder elements asArray detect: [:aCategoryViewer | aCategoryViewer header label = aCategoryName] ifNone: [nil]) ifNil:
		[aViewer _ target buildTileViewer.
		aViewer rebuildVariablesPage.
		aViewer pointToCategoryNamed: aCategoryName.
		holder addFirst: aViewer]! !

!CViewerFlap methodsFor: 'initialization' stamp: 'tak 5/16/2005 21:11'!
setupCostume
	"Initialization: set up the costume of the receiver"

	| aCategoryViewer bottommost otherTabs worldHeight |
	super setupCostume.

	self hResizing: #shrinkWrap;
		 vResizing: #spaceFill.
	self layout: CTableLayout new.
	self layout listDirection: #topToBottom.
	self color: (Color white alpha: 0.3).
	sticky := true.

	header layout: CTableLayout new.
	header layout listDirection: #leftToRight.
	header hResizing: #spaceFill; vResizing: #shrinkWrap.
	header color: Color white.
	header borderStyle: #simple.
	header borderColor: CWidgetLibrary default frameColor.
	header borderWidth: 1.
	header extent: 1@1.

	closeButton roundCorners: true.
	closeButton normalBorderColor: self borderColor.
	closeButton label: 'x'.
	closeButton normalTextColor: Color gray.
 	closeButton startScript: [self close	"bad news if header bar is moved out of viewer"
		] when: {closeButton. #mouseUp}.
	closeButton balloonHelp: 'remove'.
	header add: closeButton.

	header add: (CPlayer new extent: 8@0; yourself).  "spacer"
	addCategoryViewerButton roundCorners: true.
	addCategoryViewerButton normalBorderColor: self borderColor.
	addCategoryViewerButton label: '+'.
	addCategoryViewerButton normalTextColor: Color gray.
	addCategoryViewerButton balloonHelp: 'add a category-viewer'.
	header add: addCategoryViewerButton.

	"header add: (CPlayer new extent: 6@0; yourself). 
	menuButton  roundCorners: true.
	menuButton normalBorderColor: header borderColor.
	menuButton label: 'o'.
	menuButton normalTextColor: Color gray.
	menuButton balloonHelp: 'menu'.
	header add: menuButton."

	header add: (CPlayer new extent: 8@0; yourself). 
	addVariableButton  roundCorners: false.
	addVariableButton normalBorderColor: header borderColor.
	addVariableButton label: 'v'.
	addVariableButton normalTextColor: Color gray.
	addVariableButton balloonHelp: 'add a variable.'.
	header add: addVariableButton.

	header add: (CPlayer new extent: 4@0; yourself).
	namePane borderWidth: 0.
	header add: namePane.
	self add: header..

	self holder layout: CTableLayout new.
	holder layout listDirection: #topToBottom.
	holder hResizing: #shrinkWrap;
		 vResizing: #shrinkWrap.

	self add: holder.

	aCategoryViewer _ self target buildTileViewer.
	aCategoryViewer pointToCategoryNamed: 'basic'.
	holder add: aCategoryViewer.

	aCategoryViewer _ self target buildTileViewer.
	aCategoryViewer pointToCategoryNamed: 'color and border'.
	holder add: aCategoryViewer.

	flapTab borderStyle: #simple; borderWidth: 1;
		borderColor: CWidgetLibrary default frameColor; fillStyle: #solid;
		extent: (self tabWidth @ self tabWidth).
	flapTab propertyValueAt: #isViewerFlapTab put: true.
	flapTab visible: false.
	flapTab open.  "So we can converse with the container"
	self waitTick.

	otherTabs _ flapTab container elements asArray select: [:e | ((e propertyValueAt: #isViewerFlapTab) == true) and: [e ~~ flapTab]].
	bottommost _ otherTabs size > 0
		ifTrue:
			[(otherTabs collect: [:t | t bottom]) max]
		ifFalse:
			[26].  "CMenuBar's height"
	worldHeight _ flapTab container height.
	flapTab top _ bottommost min: (worldHeight - self tabWidth).
	flapTab right _ flapTab container right - self width.
	flapTab visible: true.
	self height: worldHeight - self tabWidth! !

!CViewerFlap methodsFor: 'events' stamp: 'tak 5/16/2005 21:10'!
onAddCategoryViewer
	"The user submitted contents to the searchField by hitting the Search button; trigger a search"

	<on: addCategoryViewer in: header>
	holder add: target buildTileViewer
! !

!CViewerFlap methodsFor: 'events' stamp: 'tak 5/16/2005 21:10'!
onFireInAddCategoryViewerButton
	"The button for adding a category viewer was pressed -- respond accordingly"

	| aCategoryViewer |
	<on: fire in: addCategoryViewerButton>
	aCategoryViewer _ target buildTileViewer.
	aCategoryViewer rebuildVariablesPage.
	holder add: aCategoryViewer! !

CTileDefinition class removeSelector: #defaultViewerOn:!
CTileDefinition class removeSelector: #defaultViewerSpec!
CTileDefinition class removeSelector: #openDefaultViewerOn:!

!CTextEditor reorganize!
('accessing' allowEditing allowEditing: caseSensitiveSearch caseSensitiveSearch: contents contents: editor emphasis font font: hideTypeInCursor modified modified: mouseCursor mouseCursor: searchText searchText: showCaret showCaret: target target: value:)
('operations' append: enter paste: paste:select: redo revert save undo)
('text menu' copySelection cutSelection deleteSelection editMenu pasteSelection)
('initialize' defaultCostume defaultTarget initialize)
('text search' findNext findText findText: findText:wrapping: findText:wrapping:caseSensitive:)
('moving' moveCursorLeft moveCursorRight moveLineDown moveLineEnd moveLineStart moveLineUp movePageDown movePageUp moveTextEnd moveTextStart moveWordLeft moveWordRight selectCursorLeft selectCursorRight selectLineDown selectLineEnd selectLineStart selectLineUp selectTextEnd selectTextStart selectWordLeft selectWordRight)
('events' onAccept onAllowEditingChanged onContextMenu onKeyboardFocusEnter onKeyboardFocusLeave onKeyDown: onKeyStroke: onMouseDown: onMouseEnter onMouseLeave onMouseMoved: onMouseMove: onMouseUp: onTextModified onTextSelectionChanged openTextUrl: setTextCursor)
('converting' printValue: readValue:)
('selecting' selectAll selectAt: selectFrom:to: selection selectionStart selectionStart: selectionStop selectionStop: selection:)
('*Tweak-DevTools-ParseBackedText' expressionReplace:with: hideDropZones showDropZones:)
('*Tweak-Tiles' viewerSpecAdditions)
!


!CSlider reorganize!
('private' adoptValue:)
('streaming' atEnd atStart next peek prev)
('initialize' defaultCostume initialize)
('accessing' fraction max max: min min: orientation orientation: pageStep pageStep: range step step: visibleFraction visibleFraction:)
('*Tweak-Tiles' viewerSpecAdditions)
!


!CMagnifier reorganize!
('initialize' initialize setupCostume)
('accessing' showPointer showPointer: sourcePlayer sourcePlayer: trackPointer trackPointer:)
('magnifying' sourceForm sourceRectFrom:)
('updating' updateGraphics updatePosition updateTick)
('*Tweak-EToys' viewerSpecAdditions)
!


!CList reorganize!
('accessing' allowDeselect allowDeselect: collection contents contents: itemMaker itemMaker: items items:)
('initialize' defaultCostume initialize)
('events' onCursorChanged: onElementsChanged:from:to:event: onWrapCursorChanged:)
('private' drawAction)
('*Tweak-Tiles' viewerSpecAdditions)
!


!CLabel reorganize!
('initialize' defaultCostume initialize)
('accessing' label label:)
('*Tweak-Tiles' viewerSpecAdditions)
!


!CImageButton reorganize!
('initialize' defaultCostume)
('accessing' disabledImage disabledImage: normalImage normalImage: overImage overImage: pressedImage pressedImage: selectedImage selectedImage:)
('events' onButtonStateChanged onNormalImageChanged onSelectedChanged)
('*Tweak-Tiles' viewerSpecAdditions)
!


!CButton reorganize!
('initialize' defaultCostume defaultGroup initialize)
('selecting' deselect disable disabled enable select)
('accessing' group group: image image: label label: selected selected: state state:)
('*Tweak-Tiles' viewerSpecAdditions)
!