diff --git a/repository/Grafoscopio/DynamicDict.class.st b/repository/Grafoscopio/DynamicDict.class.st deleted file mode 100644 index 405b9d8..0000000 --- a/repository/Grafoscopio/DynamicDict.class.st +++ /dev/null @@ -1,112 +0,0 @@ -" -I'm just a way to explore Spec and its documentation for learning purposes. -" -Class { - #name : #DynamicDict, - #superclass : #ComposableModel, - #instVars : [ - 'data', - 'list', - 'content' - ], - #category : #'Grafoscopio-UI' -} - -{ #category : #'as yet unclassified' } -DynamicDict class >> defaultSpec [ - - - ^ SpecLayout composed - newRow: [:row | - row - add: #list right: 0.7; - add: #content left: 0.3]; - yourself -] - -{ #category : #accessing } -DynamicDict >> content [ - ^ content -] - -{ #category : #accessing } -DynamicDict >> content: anObject [ - content := anObject -] - -{ #category : #accessing } -DynamicDict >> data [ - data := {'first' -> 'I am just text' . 'second' -> 'ProfStef openPharoZenWorkspace' } asOrderedDictionary. - ^ data -] - -{ #category : #'as yet unclassified' } -DynamicDict >> initializePresenter [ - list whenSelectedItemChanged: [:item | - item = 'first' - ifTrue: [ self rebuildWithTextLayoutFor: item ]. - item = 'second' - ifTrue: [ self rebuildWithCodeLayoutFor: item ]. - ] -] - -{ #category : #initialization } -DynamicDict >> initializeWidgets [ - - - list := self newList. - list items: self data keys. - content := self newText. - self focusOrder - add: list; - add: content. -] - -{ #category : #accessing } -DynamicDict >> list [ - ^ list -] - -{ #category : #accessing } -DynamicDict >> list: anObject [ - list := anObject -] - -{ #category : #'as yet unclassified' } -DynamicDict >> rebuildWithCodeLayoutFor: key [ - | newLayout | - - content := GlamourPresentationModel new. - content presentationClass: GTPlayground startOn: (GTPlayPage new saveContent: (data at: key)). - newLayout := SpecLayout composed - newRow: [:row | - row - add: #list right: 0.7; - add: #content left: 0.3]; - yourself. - self needRebuild: false. - content needRebuild: true. - self buildWithSpecLayout: newLayout. -] - -{ #category : #'as yet unclassified' } -DynamicDict >> rebuildWithTextLayoutFor: key [ - | newLayout | - - content := self newText text: (data at: key). - newLayout := SpecLayout composed - newRow: [:row | - row - add: #list right: 0.7; - add: #content left: 0.3]; - yourself. - self needRebuild: false. - list needRebuild: false. - content needRebuild: true. - self buildWithSpecLayout: newLayout. -] - -{ #category : #api } -DynamicDict >> title [ - ^'Dynamic UI | test' -] diff --git a/repository/Grafoscopio/GrafoscopioDocumentation.class.st b/repository/Grafoscopio/GrafoscopioDocumentation.class.st index 86e02c1..6199030 100644 --- a/repository/Grafoscopio/GrafoscopioDocumentation.class.st +++ b/repository/Grafoscopio/GrafoscopioDocumentation.class.st @@ -46,6 +46,11 @@ GrafoscopioDocumentation class >> download: fileNameWithRelativePath [ into: parentFolder ] +{ #category : #updating } +GrafoscopioDocumentation class >> initialize [ + self update +] + { #category : #updating } GrafoscopioDocumentation class >> isUpdated [ ^ (self listOutdated size > 0) ifTrue: [ ^ false ] ifFalse: [ ^ true ] diff --git a/repository/Grafoscopio/GrafoscopioGUI.class.st b/repository/Grafoscopio/GrafoscopioGUI.class.st index 952ff41..3eeaa6d 100644 --- a/repository/Grafoscopio/GrafoscopioGUI.class.st +++ b/repository/Grafoscopio/GrafoscopioGUI.class.st @@ -26,7 +26,7 @@ Class { #category : #'Grafoscopio-UI' } -{ #category : #'as yet unclassified' } +{ #category : #specs } GrafoscopioGUI class >> defaultSpec [ @@ -296,7 +296,7 @@ GrafoscopioGUI class >> exampleBootstrapUI [ ui openWithSpecLayout: lay. ] -{ #category : #'as yet unclassified' } +{ #category : #'class initialization' } GrafoscopioGUI class >> initialize [ self startDockingBar. ]