diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st index e5804f3..c05ed98 100644 --- a/repository/Grafoscopio/GrafoscopioBrowser.class.st +++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st @@ -975,6 +975,19 @@ GrafoscopioBrowser >> openFromUrl: anUrl [ ifFalse: [self inform: 'Algo salió mal. Verifique su conexión a Internet y que el contenido buscado estén disponibles' ] ] +{ #category : #'as yet unclassified' } +GrafoscopioBrowser >> openFromUrlUI [ + "This method generates the UI for the openFromUrl: method, it asks for a URL from the user" + + | fileUrl | + GrafoscopioBrowser configureSettings. + fileUrl := UIManager default + textEntry: 'Ingrese la URL' + title: 'Nuevo documento desde URL'. + fileUrl isNil ifTrue: [ ^nil ]. + GrafoscopioBrowser new openFromUrl: fileUrl +] + { #category : #persistence } GrafoscopioBrowser >> openHelpInGrafoscopio [ "Opens the help tree from a file"