diff --git a/repository/Grafoscopio/GrafoscopioDockingBar.class.st b/repository/Grafoscopio/GrafoscopioDockingBar.class.st index 7f7f817..ff5aedd 100644 --- a/repository/Grafoscopio/GrafoscopioDockingBar.class.st +++ b/repository/Grafoscopio/GrafoscopioDockingBar.class.st @@ -419,7 +419,7 @@ GrafoscopioDockingBar class >> openFromRecentlyUsed [ self recentNotebooks ifNotEmpty: [ - selection := UIManager default chooseFrom: recentNotebooks title: 'Choose a notebook'. + selection := UIManager default chooseFrom: recentNotebooks reversed title: 'Choose a notebook'. selection > 0 ifTrue: [ GrafoscopioNotebook new openFromFile: (recentNotebooks at: selection)] ifFalse: [ self inform: 'No notebook selected!' ] diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st index eed5ddb..5485468 100644 --- a/repository/Grafoscopio/GrafoscopioNode.class.st +++ b/repository/Grafoscopio/GrafoscopioNode.class.st @@ -559,9 +559,14 @@ GrafoscopioNode >> icon: aSymbol [ { #category : #importing } GrafoscopioNode >> importHtmlLink [ "I take the last link and import its contents in node body. " + | selectedLink downloadedContent | self links last asUrl host = 'ws.stfx.eu' ifTrue: [ ^ self ]. - self - body: (ZnClient new get: self links last). + selectedLink := self links last. + downloadedContent := (GrafoscopioUtils + downloadingFrom: selectedLink + withMessage: 'Downloading node contents...' + into: FileLocator temp). + self uploadBodyFrom: downloadedContent filteredFor: selectedLink. ] { #category : #importing } @@ -1056,6 +1061,12 @@ GrafoscopioNode >> toggleCodeText [ ifTrue: [ ^ self tags replaceAll: 'código' with: 'text' ]. ] +{ #category : #importing } +GrafoscopioNode >> uploadBodyFrom: fileLocator filteredFor: selectedLink [ + (self linksFilters contains: selectedLink) + ifFalse: [ self body: fileLocator contents ] +] + { #category : #operation } GrafoscopioNode >> visitLastLink [ self lastLink = ''