Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Updating before switching to Pharo 7.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
repository/Grafoscopio/GrafoscopioDockingBar.class.st
View File

@ -419,7 +419,7 @@ GrafoscopioDockingBar class >> openFromRecentlyUsed [
self recentNotebooks self recentNotebooks
ifNotEmpty: [ ifNotEmpty: [
selection := UIManager default chooseFrom: recentNotebooks title: 'Choose a notebook'. selection := UIManager default chooseFrom: recentNotebooks reversed title: 'Choose a notebook'.
selection > 0 selection > 0
ifTrue: [ GrafoscopioNotebook new openFromFile: (recentNotebooks at: selection)] ifTrue: [ GrafoscopioNotebook new openFromFile: (recentNotebooks at: selection)]
ifFalse: [ self inform: 'No notebook selected!' ] ifFalse: [ self inform: 'No notebook selected!' ]

15
repository/Grafoscopio/GrafoscopioNode.class.st
View File

@ -559,9 +559,14 @@ GrafoscopioNode >> icon: aSymbol [
{ #category : #importing } { #category : #importing }
GrafoscopioNode >> importHtmlLink [ GrafoscopioNode >> importHtmlLink [
"I take the last link and import its contents in node body. " "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 links last asUrl host = 'ws.stfx.eu' ifTrue: [ ^ self ].
self selectedLink := self links last.
body: (ZnClient new get: self links last). downloadedContent := (GrafoscopioUtils
downloadingFrom: selectedLink
withMessage: 'Downloading node contents...'
into: FileLocator temp).
self uploadBodyFrom: downloadedContent filteredFor: selectedLink.
] ]
{ #category : #importing } { #category : #importing }
@ -1056,6 +1061,12 @@ GrafoscopioNode >> toggleCodeText [
ifTrue: [ ^ self tags replaceAll: 'código' with: 'text' ]. 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 } { #category : #operation }
GrafoscopioNode >> visitLastLink [ GrafoscopioNode >> visitLastLink [
self lastLink = '' self lastLink = ''