About: New code for about.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2016-04-12 10:47:06 +00:00
parent 4185ae05bd
commit db72fe731c
4 changed files with 83 additions and 73 deletions

View File

@ -86,25 +86,6 @@ DynamicDict >> rebuildWithCodeLayoutFor: key [
yourself. yourself.
self needRebuild: false. self needRebuild: false.
content needRebuild: true. 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. self buildWithSpecLayout: newLayout.
] ]
@ -122,7 +103,6 @@ DynamicDict >> rebuildWithTextLayoutFor: key [
self needRebuild: false. self needRebuild: false.
list needRebuild: false. list needRebuild: false.
content needRebuild: true. content needRebuild: true.
Transcript show: 'texto + ', self content asString, String cr..
self buildWithSpecLayout: newLayout. self buildWithSpecLayout: newLayout.
] ]

View File

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

View File

@ -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 } { #category : #initialization }
GrafoscopioGUI >> initializeWidgets [ 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 } { #category : #update }

View File

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