About: New code for about.

repository/Grafoscopio/DynamicDict.class.st

@@ -86,25 +86,6 @@ DynamicDict >> rebuildWithCodeLayoutFor: key [
 		yourself.
 	self needRebuild: false.
 	content needRebuild: true.
-	Transcript show: 'código + ', self content asString, String cr.
-	self buildWithSpecLayout: newLayout.
-]
-
-{ #category : #'as yet unclassified' }
-DynamicDict >> rebuildWithTextLayout [
-	| newLayout |
-	
-	content := self newText.
-	newLayout := SpecLayout composed
-		newRow: [:row |
-			row 
-				add: #list right: 0.7; 
-				add: #content left: 0.3];
-		yourself.
-	self needRebuild: false.
-	list needRebuild: false.
-	content needRebuild: true.
-	Transcript show: 'texto + ', self content asString, String cr..
 	self buildWithSpecLayout: newLayout.
 ]
 
@@ -122,7 +103,6 @@ DynamicDict >> rebuildWithTextLayoutFor: key [
 	self needRebuild: false.
 	list needRebuild: false.
 	content needRebuild: true.
-	Transcript show: 'texto + ', self content asString, String cr..
 	self buildWithSpecLayout: newLayout.
 ]
 

repository/Grafoscopio/GrafoscopioBrowser.class.st

@@ -86,19 +86,10 @@ GrafoscopioBrowser class >> docDownloadFor: aDocumentType [
 			temporalBackup asFileReference exists ifTrue: [ temporalBackup asFileReference delete].
 			localDoc asFileReference renameTo: aDocumentType, '.temp.ston' 
 		].
-	[: bar |
-		bar title: 'Actualizando el ', aDocumentType,'...'.
-		[client := ZnClient new.
-		 client 
-			get: remoteDoc;
-			signalProgress: true;
-			downloadTo: (rootFolder fullName, '/', (docInfo at: 'relativePath')). ]
-			on: HTTPProgress  
-			do: [ :progress |
-				progress isEmpty ifFalse: [ bar current: progress percentage ].
-				progress resume ].
-	
-	] asJob run.
+	self 
+		downloadingFrom: remoteDoc
+		withMessage: 'Actualizando el ', aDocumentType,'...' 
+		into: (rootFolder fullName, '/', (docInfo at: 'relativePath')).
 ]
 
 { #category : #'graphical interface' }
@@ -148,7 +139,8 @@ GrafoscopioBrowser class >> isDocUpdatedFor: aDocumentType [
 GrafoscopioBrowser class >> messageAbout [
 	"Shows the author, license, sponsors and main contributors to the project and point to further documentation on the web"
 
-	UIManager default alert: 
+	LongMessageDialogWindow new
+		entryText: 
 			'_.:| Grafoscopio |:._', 
 			(String with: Character cr),
 			'(c) Copyright 2014-2016 by Offray Vladimir Luna Cárdenas',
@@ -183,9 +175,9 @@ GrafoscopioBrowser class >> messageAbout [
 				'For further details and versions go to:',
 			(String with: Character cr),		
 			(String with: Character cr),		
-		'http://mutabit.com/grafoscopio'
-		
-		title: 'About Grafoscopio'.
+			'http://mutabit.com/grafoscopio';
+		title: 'About Grafoscopio';
+		open.
 ]
 
 { #category : #'graphical interface' }

repository/Grafoscopio/GrafoscopioGUI.class.st

@@ -239,6 +239,23 @@ GrafoscopioGUI >> initializePresenter [
 	]
 ]
 
+{ #category : #initialization }
+GrafoscopioGUI >> initializePresenter2 [
+	tree whenSelectedItemChanged: [:node |
+		node tag = 'código'
+			ifTrue: [  ]
+			ifFalse: [  ]
+	
+	].
+	nodeHeader acceptBlock: [ :text|
+		 tree selectedItem  
+			ifNotNil: [:x |
+				x content: text.
+				self updateTree
+			]
+	]
+]
+
 { #category : #initialization }
 GrafoscopioGUI >> initializeWidgets [
 	
@@ -409,6 +426,22 @@ GrafoscopioGUI >> updateBody [
 		]
 	
 	
+]
+
+{ #category : #update }
+GrafoscopioGUI >> updateBody2 [
+	"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 := self newText."
+			^ nodeBody text: tree selectedItem content body 
+		]
+	
+	
 ]
 
 { #category : #update }

repository/Grafoscopio/GrafoscopioNode.class.st

@@ -160,16 +160,21 @@ GrafoscopioNode >> asSton [
 
 { #category : #initialization }
 GrafoscopioNode >> becomeDefaultTestTree [
-	| node1 node2 |
+	| node1 node2 node3 |
 	self level: 0.
 	self header: 'Arbol principal'.	
 	node1 := GrafoscopioNode new
 		header: 'Markup';
-		body:  'I am just a node with markup'.
+		body:  'I am just a node with markup';
+		level: 1.
 	node2 := GrafoscopioNode new
 		header: 'Code';
 		body:  'PharoTutorial openPharoZenWorkspace';
 		tagAs: 'código'.
+	node3 := GrafoscopioNode new
+		header: 'Child';
+		body:  'Just testing'.
+	node1 addNode: node3.
 	self 
 		addNode: node1;
 		addNode: node2.