Updating before switching to Pharo 7.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2019-02-13 12:11:39 +00:00
parent 721a59ae65
commit 2fcf5f52da
2 changed files with 14 additions and 3 deletions

View File

@ -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!' ]

View File

@ -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 = ''