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

Pharo 8, spec 2 :)

Browse Source
This commit is contained in:
Santiago Bragagnolo 2020-02-23 00:05:41 +00:00 committed by Offray Luna
parent 6128493d6e
commit 9a7f45d8b3
24 changed files with 157 additions and 145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@ I provide some convenience functionality to work with files.
Class {
#name : #FileUtils,
#superclass : #Object,
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #utilities }

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

@ -32,7 +32,7 @@ Class {
#classVars : [
'Current'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #'accessing - icons' }

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

@ -24,7 +24,7 @@ Class {
'recentNotebooks',
'helpMenu'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #adding }

3
repository/Grafoscopio/GfWorldMenu.class.st
View File

@ -7,7 +7,7 @@ Class {
#classInstVars : [
'recentNotebooks'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #'world menu' }
@ -69,6 +69,7 @@ GfWorldMenu class >> launchCompatibilityMenuOn: aBuilder [
{ #category : #'world menu' }
GfWorldMenu class >> launchMenuOn: aBuilder [
<worldMenu>
(aBuilder item: #'New notebook')
label: 'New notebook';
order: 1;

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

@ -25,7 +25,7 @@ Class {
'presentation',
'glmPres'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #specs }

4
repository/Grafoscopio/GrafoscopioAbstractNode.class.st
View File

@ -9,7 +9,7 @@ Class {
'parent',
'tags'
],
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #'add/remove nodes' }
@ -37,7 +37,7 @@ GrafoscopioAbstractNode >> addTag: aTag [
{ #category : #exporting }
GrafoscopioAbstractNode >> asTreeNodePresenter [
| node |
node := TreeNodePresenter new.
node := SpTreeNodePresenter new.
node
hasChildren: [ false ];
children: [ {} ];

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

@ -10,7 +10,7 @@ Class {
#instVars : [
'button'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #specs }

9
repository/Grafoscopio/GrafoscopioCodeModel.class.st
View File

@ -4,17 +4,18 @@ embedded interactive Playground.
"
Class {
#name : #GrafoscopioCodeModel,
#superclass : #ComposablePresenter,
#superclass : #SpPresenter,
#instVars : [
'body'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #specs }
GrafoscopioCodeModel class >> defaultSpec [
^ SpecLayout composed add: #body
^ SpBoxLayout newVertical
add: #body;
yourself
]
{ #category : #accessing }

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

@ -5,7 +5,7 @@ Class {
'icon',
'body'
],
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #adding }

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

@ -4,7 +4,7 @@ I define the documentation for the Grafoscopio package.
Class {
#name : #GrafoscopioDocs,
#superclass : #GrafoscopioDocumentation,
#category : #Grafoscopio
#category : 'Grafoscopio'
}
{ #category : #operation }

4
repository/Grafoscopio/GrafoscopioLinksList.class.st
View File

@ -9,12 +9,12 @@ Class {
#instVars : [
'links'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #specs }
GrafoscopioLinksList class >> defaultSpec [
^ SpecLayout composed
^ SpLayout composed
add: #links;
yourself
]

232
repository/Grafoscopio/GrafoscopioNewNotebook.class.st
View File

@ -10,7 +10,7 @@ nb openWithSpec
"
Class {
#name : #GrafoscopioNewNotebook,
#superclass : #ComposablePresenter,
#superclass : #SpPresenter,
#instVars : [
'tree',
'header',
@ -26,7 +26,7 @@ Class {
#classInstVars : [
'recents'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #utility }
@ -39,22 +39,21 @@ GrafoscopioNewNotebook class >> SHA1For: aFile is: aSHA1String [
{ #category : #specs }
GrafoscopioNewNotebook class >> defaultSpec [
^ SpecLayout composed
newColumn: [:tcol|
tcol newRow: [ :wrow | wrow add: #windowMainMenu ] height: (self toolbarHeight);
newRow: [:row |
row newColumn: [ :tc |
tc add: #tree
] width: 300.
row newColumn: [ :bc |
bc newRow: [ :bcr | bcr add: #header ] height: self toolbarHeight.
bc add: #body; add: #links height: self toolbarHeight ]]]
]
{ #category : #'instance creation' }
GrafoscopioNewNotebook class >> initialize [
recents := Set new.
^ SpBoxLayout newVertical
add: #windowMainMenu
withConstraints: [ :constraints | constraints height: self toolbarHeight ];
add:
(SpPanedLayout newHorizontal
position: 250;
add: #tree;
add:
(SpBoxLayout newVertical
add: #header height: self toolbarHeight;
add: #body;
add: #links height: self toolbarHeight;
yourself);
yourself);
yourself
]
{ #category : #'instance creation' }
@ -74,7 +73,7 @@ GrafoscopioNewNotebook class >> open: aFileReference [
{ #category : #'instance creation' }
GrafoscopioNewNotebook class >> recents [
^ recents
^ recents ifNil: [ recents := Set new. ]
]
{ #category : #'instance creation' }
@ -117,25 +116,24 @@ GrafoscopioNewNotebook >> askToSaveBeforeClosing [
GrafoscopioNewNotebook >> autoSaveBodyOf: aNode [
| playground bodyContents |
bodyContents := aNode content.
self body class = GrafoscopioTextModel
ifTrue: [ self body body whenTextChanged: [ :arg |
aNode content: arg.
"self body body whenTextIsAccepted: [:bodyText |
self body class = GrafoscopioTextModel
ifTrue: [ self body body
whenTextChangedDo: [ :arg |
aNode content: arg.
"self body body whenTextIsAccepted: [:bodyText |
self inform: bodyText.
aNode updateEditionTimestamp ]."
bodyContents = arg ifFalse: [
"self inform: arg."
"aNode updateEditionTimestamp" ]]].
bodyContents = arg
ifFalse: [ "self inform: arg.""aNode updateEditionTimestamp" ] ] ].
self body body class = GlamourPresentationModel
ifFalse: [ ^ self ].
playground := self body body glmPres.
playground
onChangeOfPort: #text
act: [ :x |
aNode content: (x pane port: #entity) value content.
aNode content: (x pane port: #entity) value content
"aNode updateEditionTimestamp."
"self inform: aNode edited" ]
]
{ #category : #accessing }
@ -178,8 +176,8 @@ GrafoscopioNewNotebook >> content [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> copyNodeToClipboard [
tree highlightedItem content copyToClipboard.
self notebookContent: notebook.
tree selectedItem copyToClipboard.
self notebookContent: notebook
]
{ #category : #persistence }
@ -200,11 +198,10 @@ GrafoscopioNewNotebook >> createNewExample [
{ #category : #operation }
GrafoscopioNewNotebook >> currentNode [
^ tree highlightedItem
^ tree selectedItem
ifNil: [ notebook children
ifEmpty: [ notebook root ]
ifNotEmpty: [ notebook children first ] ]
ifNotNil: [ :v | v content ]
]
{ #category : #operation }
@ -251,7 +248,7 @@ GrafoscopioNewNotebook >> defineDebugMessageUI [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> demoteNode [
| editedNode |
editedNode := tree highlightedItem content.
editedNode := tree selectedItem.
editedNode demote.
self notebookContent: notebook.
]
@ -265,13 +262,22 @@ GrafoscopioNewNotebook >> downloadImages [
locations."
| parentFolder |
parentFolder := self workingFile parent.
self.
^ self imagesList do: [ :each | | relativePathString link |
link := each contents asUrl.
relativePathString := link directory.
relativePathString ifNotEmpty: [
GrafoscopioUtils ensureCreateDirectory: relativePathString into: parentFolder ]]
parentFolder := UIManager default
chooseDirectory: 'Please, choose a destination for the images'
from:
(self workingFile
ifNil: [ FileLocator home ]
ifNotNil: [ self workingFile parent ]).
parentFolder
ifNotNil: [ ^ self imagesList
do: [ :each |
| relativePathString link |
link := each contents asUrl.
relativePathString := link directory.
relativePathString
ifNotEmpty: [ GrafoscopioUtils
ensureCreateDirectory: relativePathString
into: parentFolder ] ] ]
]
{ #category : #persistence }
@ -432,7 +438,7 @@ GrafoscopioNewNotebook >> extent [
{ #category : #'as yet unclassified' }
GrafoscopioNewNotebook >> findAndReplace [
| currentNode replaceGUI findString replaceString |
currentNode := tree highlightedItem content.
currentNode := tree selectedItem.
replaceGUI := GrafoscopioReplace new.
replaceGUI openWithSpec.
replaceGUI ok
@ -500,12 +506,12 @@ GrafoscopioNewNotebook >> importImages [
GrafoscopioNewNotebook >> importLinkContent [
"I see if a node link is an url located at 'http://ws.stfx.eu', wich means that is a shared
workspace, and convert the node body to an interactive playground"
| currentNode nodeContent |
currentNode := tree highlightedItem.
| currentNode |
currentNode := tree selectedItem.
currentNode ifNil: [ ^ self ].
nodeContent := currentNode content.
nodeContent importPlaygroundLink.
nodeContent importHtmlLink.
currentNode importPlaygroundLink.
currentNode importHtmlLink.
self updateBodyFor: currentNode
]
@ -522,21 +528,19 @@ GrafoscopioNewNotebook >> initialize [
{ #category : #initialization }
GrafoscopioNewNotebook >> initializePresenter [
tree
whenHighlightedItemChanged:
[ :item | tree highlightedItem ifNotNil: [ self updateBodyFor: item content ] ].
tree
whenTreeUpdated: [ :item | item ifNotNil: [ self updateBodyFor: item ] ].
whenActivatedDo:
[ :selection | selection ifNotNil: [ self updateBodyFor: selection selectedItem ] ].
header
whenTextChanged: [ :arg |
tree highlightedItem content header = arg
ifFalse: [ tree highlightedItem content header: arg.
tree highlightedItem content updateEditionTimestamp.
whenTextChangedDo: [ :arg |
tree selectedItem header = arg
ifFalse: [ tree selectedItem header: arg.
tree selectedItem updateEditionTimestamp.
tree roots: tree roots ] ].
links
whenTextChanged: [ :arg |
(tree highlightedItem content respondsTo: #link:)
ifTrue: [ tree highlightedItem content link: arg.
tree highlightedItem content updateEditionTimestamp ] ]
whenTextChangedDo: [ :arg |
(tree respondsTo: #link:)
ifTrue: [ tree selectedItem link: arg.
tree selectedItem updateEditionTimestamp ] ]
]
{ #category : #initialization }
@ -545,21 +549,22 @@ GrafoscopioNewNotebook >> initializeWidgets [
header := self newTextInput.
header autoAccept: true.
body := self newText.
body class logCr.
body class traceCr.
body disable.
body text: '<- Select a node'.
body autoAccept: true.
links := self newTextInput.
tree := self newTree.
tree
childrenBlock: [:node | node children];
displayBlock: [:node | node title ].
self focusOrder
tree := self newTreeTable.
tree addColumn: (SpStringTableColumn evaluated: #title).
" tree
childrenBlock: [ :node | node children value ];
displayBlock: [ :node | node title value ]."
self focusOrder
add: tree;
add: header;
add: body;
add: links.
self askOkToClose: true.
self askOkToClose: true
]
{ #category : #persistence }
@ -596,7 +601,7 @@ GrafoscopioNewNotebook >> links: anObject [
{ #category : #'as yet unclassified' }
GrafoscopioNewNotebook >> linksList [
| currentNode |
currentNode := tree highlightedItem content.
currentNode := tree selectedItem.
GrafoscopioLinksList new
content: currentNode;
openWithSpec
@ -652,16 +657,16 @@ GrafoscopioNewNotebook >> metadata [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> moveSelectedNodeDown [
| editedNode |
editedNode := tree selectedItem content.
editedNode := tree selectedItem.
editedNode moveDown.
self notebookContent: notebook.
tree needRebuild: true.
tree needRebuild: true
]
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> moveSelectedNodeUp [
| editedNode |
editedNode := tree highlightedItem content.
editedNode := tree selectedItem.
editedNode moveUp.
self notebookContent: notebook
]
@ -702,13 +707,12 @@ GrafoscopioNewNotebook >> notebook: anObject [
{ #category : #api }
GrafoscopioNewNotebook >> notebookContent: aTree [
tree
roots: (aTree children collect: [ :gfcNode | gfcNode asTreeNodePresenter ])
tree roots: aTree children
]
{ #category : #initialization }
GrafoscopioNewNotebook >> notebookSubMenu [
^ MenuPresenter new
^ SpMenuBarPresenter new
addGroup: [ :group |
group
addItem: [ :item |
@ -875,7 +879,7 @@ GrafoscopioNewNotebook >> pandocOptionsComputed [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> pasteNodeFromClipboard [
tree highlightedItem content pasteFromClipboard.
tree selectedItem pasteFromClipboard.
self notebookContent: notebook.
]
@ -933,24 +937,26 @@ GrafoscopioNewNotebook >> projectSubMenu [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> promoteNode [
| editedNote |
editedNote := tree selectedItem content.
editedNote := tree selectedItem.
editedNote promote.
self notebookContent: notebook
]
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> removeNode [
| contentToDelete parentContent newSelectedContent children |
| contentToDelete parentContent newSelectedContent children path |
tree selectedItem
ifNil: [ ^ self inform: 'No node available or properly selected ' ].
contentToDelete := tree selectedItem content.
path := tree selection selectedPath.
contentToDelete := tree selectedItem.
contentToDelete shouldAskBeforeRemove
ifTrue: [ (UIManager default
questionWithoutCancel:
'The selected node has children and / or content. This change so far cannot be undone. Are you sure you want to proceed? '
title: 'Remove node')
ifFalse: [ ^ self ] ].
parentContent := contentToDelete parent.
parentContent := tree selectedItem parent.
children := parentContent children.
children size > 1
ifTrue: [ children last = contentToDelete
@ -958,7 +964,7 @@ GrafoscopioNewNotebook >> removeNode [
ifFalse: [ newSelectedContent := parentContent ].
contentToDelete parent removeNode: contentToDelete.
self notebookContent: notebook.
self resetSelectedItem
self resetSelectedItemTo: path.
]
{ #category : #'editing nodes' }
@ -968,6 +974,12 @@ GrafoscopioNewNotebook >> resetSelectedItem [
tree updatePresenter.
]
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> resetSelectedItemTo: aPath [
tree selectPath: {(aPath first min: notebook children size)}.
tree updatePresenter
]
{ #category : #persistence }
GrafoscopioNewNotebook >> saveToFile: aFileReference [
"I save the current tree/document to a file and update storage timestamp."
@ -1022,14 +1034,13 @@ GrafoscopioNewNotebook >> seePdf [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> selectedItem: anItem [
tree selectedItem: (tree roots detect: [ : p | p content = anItem ]).
tree highlightedItem: tree selectedItem.
tree selectItem: (tree roots detect: [ : p | p = anItem ]).
]
{ #category : #persistence }
GrafoscopioNewNotebook >> subtreeAsMarkdown [
| currentNode |
currentNode := tree highlightedItem content.
currentNode := tree selectedItem.
self inform: ('Exported as: ', String cr, (self subtreeAsMarkdownFileFor: currentNode) fullName )
]
@ -1046,14 +1057,14 @@ GrafoscopioNewNotebook >> subtreeAsMarkdownFileFor: aNode [
{ #category : #'editing nodes' }
GrafoscopioNewNotebook >> toggleCodeNode [
| currentNode |
currentNode := tree highlightedItem.
currentNode content toggleCodeText.
self updateBodyFor: currentNode.
currentNode := tree selectedItem.
currentNode toggleCodeText.
self updateBodyFor: currentNode
]
{ #category : #initialization }
GrafoscopioNewNotebook >> topBar [
^ MenuPresenter new
^ SpMenuBarPresenter new
addGroup: [ :group |
group
addItem: [ :item |
@ -1071,42 +1082,42 @@ GrafoscopioNewNotebook >> topBar [
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Save notebook';
icon: (self iconNamed: #glamorousSave);
action: [ self saveWorkingNotebook ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Export all Markdown subtrees';
icon: (self iconNamed: #glamorousMore);
action: [ self exportAllSubtreesAsMarkup ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Cut';
icon: (self iconNamed: #smallCut);
action: [ self cutNodeToClipboard ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Copy';
icon: (self iconNamed: #smallCopy);
action: [ self copyNodeToClipboard ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Paste';
icon: (self iconNamed: #smallPaste);
action: [ self pasteNodeFromClipboard ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Find & Replace';
icon: (self iconNamed: #smallFind);
action: [ self findAndReplace ] ] ];
@ -1114,42 +1125,42 @@ GrafoscopioNewNotebook >> topBar [
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Add node';
icon: MendaIcons new plusIcon;
action: [ self addNode ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Delete node';
icon: MendaIcons new minusIcon;
action: [ self removeNode ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Move node up';
icon: MendaIcons new arrowUpIcon;
action: [ self moveSelectedNodeUp ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Move node down';
icon: MendaIcons new arrowDownIcon;
action: [ self moveSelectedNodeDown ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Move node left';
icon: MendaIcons new arrowLeftIcon;
action: [ self promoteNode ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Move node right';
icon: MendaIcons new arrowRightIcon;
action: [ self demoteNode ] ] ];
@ -1157,70 +1168,70 @@ GrafoscopioNewNotebook >> topBar [
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Toggle: code <--> text';
icon: MendaIcons new smalltalkCodeIcon;
action: [ self toggleCodeNode ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'List node links';
icon: (self iconNamed: #tinyMenu);
action: [ self linksList ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Visit link';
icon: (self iconNamed: #glamorousRight);
action: [ self visitNodeLink ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Import link content';
icon: (self iconNamed: #glamorousOpenFromUrl);
action: [ self importLinkContent ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Export link content';
icon: (self iconNamed: #glamorousSaveToUrl);
action: [ self exportLinkContent ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'HTML to Markdown';
icon: (self iconNamed: #smallProfile);
action: [ self htmlToMarkdown ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'HTML to Markdown subtree';
icon: (self iconNamed: #hierarchy);
action: [ self htmlToMarkdownSubtree ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Tag as...';
icon: MendaIcons new tagAddIcon;
action: [ self inform: 'To be implemented...' ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Untag ....';
icon: MendaIcons new tagMinusIcon;
action: [ self inform: 'To be implemented...' ] ].
group
addItem: [ :item |
item
name: nil;
name: '';
description: 'Edit tags...';
icon: FontAwesomeIcons new tagsIcon;
action: [ self inform: 'To be implemented...' ] ] ];
@ -1228,7 +1239,7 @@ GrafoscopioNewNotebook >> topBar [
debug
addItem: [ :item |
item
name: nil;
name: '';
description: 'Debug';
icon:
(self iconNamed: #glamorousBug);
@ -1251,13 +1262,12 @@ GrafoscopioNewNotebook >> updateBodyFor: aNode [
tree needRebuild: false.
body needRebuild: true.
aNode openIn: self.
self buildWithSpecLayout: self class defaultSpec
self buildWithSpec
]
{ #category : #operation }
GrafoscopioNewNotebook >> visitNodeLink [
tree highlightedItem content visitLastLink.
tree selectedItem visitLastLink
]
{ #category : #accessing }

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

@ -32,7 +32,7 @@ Class {
#classInstVars : [
'clipboard'
],
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #utility }

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

@ -4,7 +4,7 @@ I test the main functionality of the GrafoscopioNode class.
Class {
#name : #GrafoscopioNodeTest,
#superclass : #TestCase,
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #tests }

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

@ -26,7 +26,7 @@ Class {
#classInstVars : [
'recents'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #utility }

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

@ -4,5 +4,5 @@ I test the main functionality of the GrafoscopioNode class.
Class {
#name : #GrafoscopioNotebookTest,
#superclass : #TestCase,
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}

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

@ -11,7 +11,7 @@ Class {
'ok',
'cancel'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #specs }

10
repository/Grafoscopio/GrafoscopioTextModel.class.st
View File

@ -4,17 +4,18 @@ Usually my content is markdown text.
"
Class {
#name : #GrafoscopioTextModel,
#superclass : #ComposablePresenter,
#superclass : #SpPresenter,
#instVars : [
'body'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #specs }
GrafoscopioTextModel class >> defaultSpec [
^ SpecLayout composed add: #body
^ SpBoxLayout newVertical
add: #body;
yourself
]
{ #category : #accessing }
@ -36,6 +37,5 @@ GrafoscopioTextModel >> content: aGrafoscopioNodeContent [
GrafoscopioTextModel >> initializeWidgets [
body := self newText.
body beForText.
body autoAccept: true.
]

4
repository/Grafoscopio/GrafoscopioTextNode.class.st
View File

@ -21,7 +21,7 @@ Class {
#classInstVars : [
'clipboard'
],
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #utility }
@ -182,7 +182,7 @@ GrafoscopioTextNode >> asStonFromRoot [
{ #category : #accessing }
GrafoscopioTextNode >> asTreeNodePresenter [
| node |
node := TreeNodePresenter new.
node := SpTreeNodePresenter new.
node
hasChildren: [ self children isNotEmpty ];
children: [ self children collect: [ :subNode | subNode asTreeNodePresenter ] ];

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

@ -4,7 +4,7 @@ Class {
#instVars : [
'content'
],
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #accessing }

4
repository/Grafoscopio/GrafoscopioUrlNode.class.st
View File

@ -4,7 +4,7 @@ Class {
#instVars : [
'link'
],
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #'as yet unclassified' }
@ -42,7 +42,7 @@ GrafoscopioUrlNode >> link: aZnUrl [
{ #category : #'as yet unclassified' }
GrafoscopioUrlNode >> openIn: aNotebook [
super openIn: aNotebook.
aNotebook links text: (link ifNil: 'Invalid url')
aNotebook links text: (link ifNil: 'Invalid url') asString
]
{ #category : #'as yet unclassified' }

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

@ -4,7 +4,7 @@ I store metadata for this package. These meta data are used by other tools such
Class {
#name : #ManifestGrafoscopio,
#superclass : #PackageManifest,
#category : #Grafoscopio
#category : 'Grafoscopio'
}
{ #category : #'code-critics' }

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

@ -29,7 +29,7 @@ Class {
#classVars : [
'Current'
],
#category : #'Grafoscopio-UI'
#category : 'Grafoscopio-UI'
}
{ #category : #'instance creation' }

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

@ -6,7 +6,7 @@ to javascript enabled web presentations.
Class {
#name : #MindMap,
#superclass : #Object,
#category : #'Grafoscopio-Model'
#category : 'Grafoscopio-Model'
}
{ #category : #'as yet unclassified' }