Fixing Open from the Internet menu and functionality.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-09-25 09:34:16 +00:00
parent fe07118f84
commit d781ecd873
3 changed files with 8 additions and 5 deletions

View File

@ -400,7 +400,7 @@ GrafoscopioDockingBar class >> showSettings [
Transcript show: pandoc
]
{ #category : #'graphical interface' }
{ #category : #accessing }
GrafoscopioDockingBar class >> start [
"Creates a custom docking bar for grafoscopio on top, for shorcuts to the most used actions,
and as a fixed place for asking for help, external tools and grafoscopio updates and about"
@ -411,7 +411,7 @@ GrafoscopioDockingBar class >> start [
launchMenu
add: 'New notebook' target: (GrafoscopioNotebook new) selector: #openDefault;
add: 'Notebook from file...' target: (GrafoscopioNotebook new) selector: #openFromFileSelector;
add: 'Notebook from Internet...' target: (GrafoscopioNotebook new) selector: #openFromUrlUI;
add: 'Notebook from the Internet...' target: (GrafoscopioNotebook new) selector: #openFromUrlUI;
add: 'Recent notebooks...' target: self selector: #openFromRecentlyUsed;
add: 'Example notebooks...' target: self selector: #messageNotImplementedYet;
add: 'Roassal visualizations gallery' target: (RTExampleBrowser new) selector: #open;

View File

@ -269,8 +269,9 @@ GrafoscopioNotebook >> findAndReplace [
currentNode := tree highlightedItem content.
replaceGUI := GrafoscopioReplace new.
replaceGUI openWithSpec.
replaceGUI ok state
whenChangedDo: [
replaceGUI ok
on: [ ]
do: [
findString := replaceGUI returnValues at: 'find'.
replaceString := replaceGUI returnValues at: 'replace'.
currentNode find: findString andReplaceWith: replaceString. ]

View File

@ -49,7 +49,8 @@ GrafoscopioReplace >> find: anObject [
GrafoscopioReplace >> initializePresenter [
"Here we need to deal with changes in the OK button to send messages about the
state of the 'find' and 'replace' variables or do nothing if 'Cancel' is pressed."
self shouldBeImplemented
ok whenStateChangedDo: [
Transcript show: 'OK Clicked!' ]
]
@ -63,6 +64,7 @@ GrafoscopioReplace >> initializeWidgets [
autoAccept: true.
ok := self newButton
label: 'OK';
state: false;
action: [
ok state: true.
self window close. ] .