GUI: Spec migration prototype with initial tree browsing working. Next issue: making interface react to node tags and show playground when tagged as code.

repository/Grafoscopio/GrafoscopioBrowser.class.st

@@ -15,17 +15,14 @@ Class {
 		'browser',
 		'mainTree',
 		'tagsAvailable',
-		'\r\t\t\t\t\t\t\t\t\tnonVar1',
 		'cacheNode',
 		'workingFile',
-		'\r\t\t\t\t\t\t\t\t\tnonVar2',
 		'localRepository',
 		'remoteRepository',
 		'repositoryUser',
 		'repositoryPassword'
 	],
 	#classVars : [
-		'DefaultUbakyeBrowser',
 		'dockingBar',
 		'draftsLocation',
 		'fossil',

repository/Grafoscopio/GrafoscopioGUI.class.st

@@ -12,7 +12,10 @@ Class {
 	#instVars : [
 		'windowMainMenu',
 		'tree',
-		'nodeDetails'
+		'nodeHeader',
+		'nodeBody',
+		'headerRefreshProcess',
+		'selected'
 	],
 	#category : #'Grafoscopio-UI'
 }
@@ -30,17 +33,106 @@ GrafoscopioGUI class >> defaultSpec [
 					newRow: [:outlineView |
 						outlineView 
 							newColumn: [ :treePart |
-								treePart add: #tree];
+								treePart 
+									newRow: [:tree | tree add: #tree];
+									addSplitter;
+									newRow: [:nodeHeader | nodeHeader add: #nodeHeader] height: 30
+							] right: 0.7;
 							addSplitter;
 							newColumn: [ :nodePart |
-								nodePart add: #nodeDetails].
+								nodePart add: #nodeBody] left: 0.3.
 					].		
 			];
 			yourself
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #examples }
-GrafoscopioGUI >> documentSubMenu [
+GrafoscopioGUI class >> exampleBootstrapUI [
+	"Starting from an example UI from the Spec-Glamour, to customize towards the grafoscopio
+	UI and get some ideas"
+
+	|ui  lay notebook |
+	
+	ui := DynamicComposableModel new.
+	ui title: 'new | Grafoscopio'.
+	ui instantiateModels: #(
+		tree TreeModel
+		header TextModel
+		play GlamourPresentationModel).
+	notebook := GrafoscopioNode new becomeDefaultTestTree.
+	ui tree
+		roots: notebook children;
+		childrenBlock: [:node | node children];
+		displayBlock: [:node | node title ].
+			
+	lay := SpecLayout composed
+		newRow: [:row |
+		row 
+			newColumn: [:column |
+				column 
+					newRow: #tree top: 0.2;
+					addHSplitter;
+					newRow: #header bottom: 0.8] right: 0.7;
+			addVSplitter;
+			newColumn: #play];
+		yourself.
+		
+	ui openWithSpecLayout: lay.
+]
+
+{ #category : #initialization }
+GrafoscopioGUI >> initializePresenter [
+	tree.
+	nodeHeader acceptBlock: [ :text|
+		 tree selectedItem  
+			ifNotNil: [:x |
+				x content: text.
+				self updateTree
+			]
+	]
+]
+
+{ #category : #initialization }
+GrafoscopioGUI >> initializeWidgets [
+	
+	"Buils graphical interface elements"
+
+	windowMainMenu := self windowMainMenu.
+	tree := self tree.
+	nodeHeader := self newTextInput.
+	nodeBody := tree selectedItem notNil
+						ifTrue: [ self updateBody ]
+						ifFalse: [nodeBody := self newText].
+	windowMainMenu applyTo: self.
+	self focusOrder 
+		add: windowMainMenu;
+		add: tree;
+		add: nodeHeader;
+		add: nodeBody.
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> nodeBody [
+	^ nodeBody
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> nodeBody: anObject [
+	nodeBody := anObject
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> nodeHeader [
+	^ nodeHeader
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> nodeHeader: anObject [
+	nodeHeader := anObject
+]
+
+{ #category : #'ui-building' }
+GrafoscopioGUI >> notebookSubMenu [
 	
 	^ MenuModel new
 		addGroup: [ :group |
@@ -78,18 +170,115 @@ GrafoscopioGUI >> documentSubMenu [
 	
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'ui-building' }
-GrafoscopioGUI >> initializeWidgets [
+GrafoscopioGUI >> proyectSubMenu [
 	
-	"Buils graphical interface elements"
+	^ MenuModel new
+		addGroup: [ :group |
+			group addItem: [ :item |
+				item 
+					name: 'Activar repositorio remoto...';
+					icon: Smalltalk ui icons smallPushpinIcon;
+					action: [ self inform: 'Por implementar ...' ] ].
+						group addItem: [ :item |
+				item 
+					name: 'Activar repositorio local...';
+					icon: Smalltalk ui icons homeIcon;
+					action: [ self inform: 'Por implementar ...' ] ].	
+			group addItem: [ :item |
+				item 
+					name: 'Agregar archivo...';
+					icon: Smalltalk ui icons newerPackagesAvailableIcon;
+					action: [ self inform: 'Por implementar ...' ] ].
+			group addItem: [ :item |
+				item 
+					name: 'Eliminar archivo...';
+					icon: Smalltalk ui icons packageDeleteIcon;
+					action: [ self inform: 'Por implementar ...' ] ].
+			group addItem: [ :item |
+				item 
+					name: 'Enviar al histórico';
+					icon: Smalltalk ui icons smallScreenshotIcon;
+					action: [ self inform: 'Por implementar ...' ] ]. 
+			group addItem: [ :item |
+				item 
+					name: 'Acreditarse';
+					icon: Smalltalk ui icons userIcon;
+					action: [ self inform: 'Por implementar ...' ] ]	]
 	
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> selected [
+	^ selected value
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> selected: aBoolean [
+	selected value: aBoolean
+]
+
+{ #category : #api }
+GrafoscopioGUI >> title [
+	^ ' | Grafoscopio'
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> tree [
+	| notebook |
+	notebook := GrafoscopioNode new becomeDefaultTestTree.
+	tree := TreeModel new.
+	tree 
+		roots: notebook children;
+		childrenBlock: [:node | node children];
+		displayBlock: [:node | node title ].
+	tree whenHighlightedItemChanged:  
+		 [tree selectedItem notNil
+			ifTrue: [
+				self updateHeader.
+				self updateBody.
+			]
+		 ].
+	^ tree
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> tree: anObject [
+	tree := anObject
+]
+
+{ #category : #update }
+GrafoscopioGUI >> updateBody [
+	"update the displayed content associated to the body of a node"
+	
+	(tree selectedItem content tags = 'código')
+		ifTrue: [
+			^ nodeBody text: 'I should be playground because I am tagged as ', tree selectedItem content tags
+		]
+		ifFalse: [ 
+			^ nodeBody text: tree selectedItem content body 
+		]
+	
+	
+]
+
+{ #category : #update }
+GrafoscopioGUI >> updateHeader [
+	"update the displayed text associated to the header of a node"
+	
+	^ nodeHeader text: tree selectedItem content header.
+	
+]
+
+{ #category : #accessing }
+GrafoscopioGUI >> windowMainMenu [
 	windowMainMenu := MenuModel new
 		addGroup: [ :group |
 			group addItem: [ :item |
 				item 
-					name: 'Documento';
+					name: 'Cuaderno';
 					icon: Smalltalk ui icons smallObjectsIcon;
-					subMenu: self documentSubMenu ].
+					subMenu: self notebookSubMenu ].
 			group addItem: [ :item |
 				item 
 					name: 'Proyecto';
@@ -176,80 +365,6 @@ GrafoscopioGUI >> initializeWidgets [
 					description: 'Editar etiquetas...';
 					icon: FontAwesomeIcons new tagsIcon;
 					action: [ self inform: 'Por implementar...' ] ].	].
-	tree := self newTree.
-	nodeDetails := self newText.
-	windowMainMenu applyTo: self.
-	self focusOrder 
-		add: windowMainMenu;
-		add: tree;
-		add: nodeDetails.
-]
-
-{ #category : #accessing }
-GrafoscopioGUI >> nodeDetails [
-	^ nodeDetails
-]
-
-{ #category : #accessing }
-GrafoscopioGUI >> nodeDetails: anObject [
-	nodeDetails := anObject
-]
-
-{ #category : #'as yet unclassified' }
-GrafoscopioGUI >> proyectSubMenu [
-	
-	^ MenuModel new
-		addGroup: [ :group |
-			group addItem: [ :item |
-				item 
-					name: 'Activar repositorio remoto...';
-					icon: Smalltalk ui icons smallPushpinIcon;
-					action: [ self inform: 'Por implementar ...' ] ].
-						group addItem: [ :item |
-				item 
-					name: 'Activar repositorio local...';
-					icon: Smalltalk ui icons homeIcon;
-					action: [ self inform: 'Por implementar ...' ] ].	
-			group addItem: [ :item |
-				item 
-					name: 'Agregar archivo...';
-					icon: Smalltalk ui icons newerPackagesAvailableIcon;
-					action: [ self inform: 'Por implementar ...' ] ].
-			group addItem: [ :item |
-				item 
-					name: 'Eliminar archivo...';
-					icon: Smalltalk ui icons packageDeleteIcon;
-					action: [ self inform: 'Por implementar ...' ] ].
-			group addItem: [ :item |
-				item 
-					name: 'Enviar al histórico';
-					icon: Smalltalk ui icons smallScreenshotIcon;
-					action: [ self inform: 'Por implementar ...' ] ]. 
-			group addItem: [ :item |
-				item 
-					name: 'Acreditarse';
-					icon: Smalltalk ui icons userIcon;
-					action: [ self inform: 'Por implementar ...' ] ]	]
-	
-]
-
-{ #category : #'as yet unclassified' }
-GrafoscopioGUI >> title [
-	^ ' | Grafoscopio'
-]
-
-{ #category : #accessing }
-GrafoscopioGUI >> tree [
-	^ tree
-]
-
-{ #category : #accessing }
-GrafoscopioGUI >> tree: anObject [
-	tree := anObject
-]
-
-{ #category : #accessing }
-GrafoscopioGUI >> windowMainMenu [
 	^ windowMainMenu
 ]
 

repository/Grafoscopio/GrafoscopioNode.class.st

@@ -144,17 +144,45 @@ GrafoscopioNode >> asSton [
 	
 ]
 
+{ #category : #initialization }
+GrafoscopioNode >> becomeDefaultTestTree [
+	| node1 node2 node3 |
+	self level: 0.
+	self header: 'Arbol principal'.	
+	node1 := GrafoscopioNode new
+		header: 'Nodo 1';
+		body:  'Texto 1'.
+	node2 := GrafoscopioNode new
+		header: 'Nodo 2';
+		body:  'Texto 2'.
+	node3 := GrafoscopioNode new
+		header: 'Nodo 3';
+		body:  'ProfStef openPharoZenWorkspace';
+		tagAs: 'código'.		
+	self 
+		addNode: node1;
+		addNode: node2.
+	node2 addNode: node3.
+]
+
 { #category : #initialization }
 GrafoscopioNode >> becomeDefaultTree [
-	| node1    |
+	| node1 node2 node3    |
 	self level: 0.
 	self header: 'Arbol principal'.	
 	node1 := GrafoscopioNode
 		header: 'Nodo 1'
 		body:  'Texto 1'.
-		
+	node2 := GrafoscopioNode
+		header: 'Nodo 2'
+		body:  'Texto 2'.
+	node3 := GrafoscopioNode
+		header: 'Nodo 3'
+		body:  'Texto 3'.		
 	self 
-		addNode: node1.
+		addNode: node1;
+		addNode: node2.
+	node2 addNode: node3.
 ]
 
 { #category : #accessing }
@@ -234,6 +262,13 @@ GrafoscopioNode >> hasAncestorTaggedAs: aSpecialWord [
 	
 ]
 
+{ #category : #accessing }
+GrafoscopioNode >> hasChildren [
+	(self children size > 0)
+		ifTrue: [ ^true ]
+		ifFalse: [ ^false ]
+]
+
 { #category : #accessing }
 GrafoscopioNode >> header [
 	"Returns the receiver header"

repository/Grafoscopio/GrafoscopioTreeUI.class.st

@@ -1,41 +0,0 @@
-"
-Please comment me using the following template inspired by Class Responsibility Collaborator (CRC) design:
-
- I'm GrafoscopioTreeUI the Spec model wich reders grafoscopio trees.
-
-For the Responsibility part: Three sentences about my main responsibility, what I'm doing, what services do I offer.
-
-For the Collaborators Part: State my main collaborators and one line about how I interact with them. 
-
-Public API and Key Messages
-
-- message one   
-- message two 
-- what is the way to create instances is a plus.
-
-   One simple example is simply gorgeous.
- 
-Internal Representation and Key Implementation Points.
-
-    Instance Variables
-	tree:		<Object>
-
-
-    Implementation Points
-"
-Class {
-	#name : #GrafoscopioTreeUI,
-	#superclass : #ComposableModel,
-	#instVars : [
-		'tree'
-	],
-	#category : #'Grafoscopio-UI'
-}
-
-{ #category : #'as yet unclassified' }
-GrafoscopioTreeUI >> initializeWidgets [
-	
-	tree := self newTree
-
-
-]

repository/Grafoscopio/ManifestGrafoscopio.class.st

@@ -0,0 +1,13 @@
+"
+I store metadata for this package. These meta data are used by other tools such as the SmalllintManifestChecker and the critics Browser
+"
+Class {
+	#name : #ManifestGrafoscopio,
+	#superclass : #PackageManifest,
+	#category : #Grafoscopio
+}
+
+{ #category : #'code-critics' }
+ManifestGrafoscopio class >> ruleRBSentNotImplementedRuleV1FalsePositive [
+	^ #(#(#(#RGMetaclassDefinition #(#'GrafoscopioGUI class' #GrafoscopioGUI)) #'2015-12-23T10:38:16.706667-05:00') #(#(#RGClassDefinition #(#GrafoscopioGUI)) #'2016-01-06T18:53:45.844051-05:00') )
+]