Skip to content

Commit

Permalink
Moved to Tonel 3
Browse files Browse the repository at this point in the history
  • Loading branch information
@JanBliznicenko
JanBliznicenko committed Jun 18, 2024
1 parent 8dddff1 commit 8975682
Show file tree
Hide file tree
Showing 105 changed files with 1,273 additions and 1,100 deletions.
13 changes: 7 additions & 6 deletions repository/BaselineOfClassEditor/BaselineOfClassEditor.class.st
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,17 +2,18 @@
Baseline for https://github.com/OpenPonk/class-editor
"
Class {
#name : #BaselineOfClassEditor,
#superclass : #BaselineOf,
#category : #BaselineOfClassEditor
#name : 'BaselineOfClassEditor',
#superclass : 'BaselineOf',
#category : 'BaselineOfClassEditor',
#package : 'BaselineOfClassEditor'
}

{ #category : #plugins }
{ #category : 'plugins' }
BaselineOfClassEditor class >> loadPlugins [
self new loadPlugins
]

{ #category : #baselines }
{ #category : 'baselines' }
BaselineOfClassEditor >> baseline: spec [

<baseline>
Expand Down Expand Up @@ -55,7 +56,7 @@ BaselineOfClassEditor >> baseline: spec [
spec group: 'default' with: #( OpenPonk plugin ) ]
]

{ #category : #baselines }
{ #category : 'baselines' }
BaselineOfClassEditor >> plugins: spec [

spec baseline: 'OntoUMLVerificationFramework' with: [
Expand Down
2 changes: 1 addition & 1 deletion repository/BaselineOfClassEditor/package.st
View file
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #BaselineOfClassEditor }
Package { #name : 'BaselineOfClassEditor' }
2 changes: 1 addition & 1 deletion repository/DynaCASE-Cormas/package.st
View file
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #'DynaCASE-Cormas' }
Package { #name : 'DynaCASE-Cormas' }
18 changes: 10 additions & 8 deletions repository/LiveClassEditor/LUCDAttributeController.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
Class {
#name : #LUCDAttributeController,
#superclass : #OPUmlAttributeController,
#category : 'LiveClassEditor-Controllers'
#name : 'LUCDAttributeController',
#superclass : 'OPUmlAttributeController',
#category : 'LiveClassEditor-Controllers',
#package : 'LiveClassEditor',
#tag : 'Controllers'
}

{ #category : #'ui hooks' }
{ #category : 'ui hooks' }
LUCDAttributeController >> buildEditorForm: aForm [
(aForm addTextInput: 'Name')
autoAccept: false;
Expand All @@ -15,7 +17,7 @@ LUCDAttributeController >> buildEditorForm: aForm [
self refreshFigure ]
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUCDAttributeController >> buildIsClassSideEditorForm: aForm [
(aForm addCheckbox: 'Is Class-side')
state: self model isStatic;
Expand All @@ -24,12 +26,12 @@ LUCDAttributeController >> buildIsClassSideEditorForm: aForm [
self refreshFigure ]
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUCDAttributeController >> createAttributeNamed: aName inClass: aModelClassName [
(RBAddInstanceVariableRefactoring variable: aName class: aModelClassName asClass) execute
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUCDAttributeController >> figureDoubleClicked [
| result |
result := UIManager default request: 'Name' initialAnswer: self model name.
Expand All @@ -39,7 +41,7 @@ LUCDAttributeController >> figureDoubleClicked [
self refreshFigure
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUCDAttributeController >> renameAttribute: oldName to: newName inClass: aClassName [
(RBRenameInstanceVariableRefactoring
rename: oldName
Expand Down
14 changes: 8 additions & 6 deletions repository/LiveClassEditor/LUCDClassController.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
Class {
#name : #LUCDClassController,
#superclass : #OPUmlClassController,
#category : 'LiveClassEditor-Controllers'
#name : 'LUCDClassController',
#superclass : 'OPUmlClassController',
#category : 'LiveClassEditor-Controllers',
#package : 'LiveClassEditor',
#tag : 'Controllers'
}

{ #category : #'ui hooks' }
{ #category : 'ui hooks' }
LUCDClassController >> buildEditorForm: aForm [
(aForm addTextInput: 'Name')
autoAccept: false;
Expand All @@ -15,7 +17,7 @@ LUCDClassController >> buildEditorForm: aForm [
self refreshFigure ]
]

{ #category : #'ui hooks' }
{ #category : 'ui hooks' }
LUCDClassController >> createClassFor: aModelClass [
(RBAddClassRefactoring
addClass: aModelClass name
Expand All @@ -24,7 +26,7 @@ LUCDClassController >> createClassFor: aModelClass [
category: aModelClass mooseModel name asSymbol) execute
]

{ #category : #'ui hooks' }
{ #category : 'ui hooks' }
LUCDClassController >> renameClass: anOldName to: aNewName [
(RBRenameClassRefactoring rename: anOldName asClass to: aNewName) execute
]
8 changes: 5 additions & 3 deletions repository/LiveClassEditor/LUCDInheritanceController.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,5 +1,7 @@
Class {
#name : #LUCDInheritanceController,
#superclass : #OPUmlInheritanceController,
#category : 'LiveClassEditor-Controllers'
#name : 'LUCDInheritanceController',
#superclass : 'OPUmlInheritanceController',
#category : 'LiveClassEditor-Controllers',
#package : 'LiveClassEditor',
#tag : 'Controllers'
}
10 changes: 6 additions & 4 deletions repository/LiveClassEditor/LUCDMethodController.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
Class {
#name : #LUCDMethodController,
#superclass : #OPUmlMethodController,
#category : 'LiveClassEditor-Controllers'
#name : 'LUCDMethodController',
#superclass : 'OPUmlMethodController',
#category : 'LiveClassEditor-Controllers',
#package : 'LiveClassEditor',
#tag : 'Controllers'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUCDMethodController >> figureDoubleClicked [
self model compiledMethod browse
"(CodeCard class: self model parentType smalltalkClass selector: self model name asSymbol)
Expand Down
12 changes: 7 additions & 5 deletions repository/LiveClassEditor/LUClassDiagramController.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,10 +1,12 @@
Class {
#name : #LUClassDiagramController,
#superclass : #OPUmlClassDiagramController,
#category : 'LiveClassEditor-Controllers'
#name : 'LUClassDiagramController',
#superclass : 'OPUmlClassDiagramController',
#category : 'LiveClassEditor-Controllers',
#package : 'LiveClassEditor',
#tag : 'Controllers'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUClassDiagramController >> initializePalette: aPalette [
(aPalette newCreationEntry: [ LUCDClassController new ])
label: 'Class';
Expand Down Expand Up @@ -32,7 +34,7 @@ LUClassDiagramController >> initializePalette: aPalette [
icon: OPUmlIcons current associationIcon
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LUClassDiagramController >> modelToControllerMapping [
^ {FAMIXClass -> LUCDClassController.
FAMIXAttribute -> LUCDAttributeController.
Expand Down
14 changes: 8 additions & 6 deletions repository/LiveClassEditor/LiveUMLClassEditorPlugin.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,20 +1,22 @@
Class {
#name : #LiveUMLClassEditorPlugin,
#superclass : #OPUmlClassPlugin,
#category : 'LiveClassEditor-Plugin'
#name : 'LiveUMLClassEditorPlugin',
#superclass : 'OPUmlClassPlugin',
#category : 'LiveClassEditor-Plugin',
#package : 'LiveClassEditor',
#tag : 'Plugin'
}

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LiveUMLClassEditorPlugin >> diagramControllerClass [
^ LUClassDiagramController
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LiveUMLClassEditorPlugin >> modelClass [
^ OPUmlModel
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LiveUMLClassEditorPlugin >> name [
^ 'Live Class Editor'
]
4 changes: 2 additions & 2 deletions repository/LiveClassEditor/OPUmlModel.extension.st
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #OPUmlModel }
Extension { #name : 'OPUmlModel' }

{ #category : #'*LiveClassEditor-Model-Extensions' }
{ #category : '*LiveClassEditor-Model-Extensions' }
OPUmlModel >> populateFrom: aPackage [
| clsMapping |
self name: aPackage name.
Expand Down
2 changes: 1 addition & 1 deletion repository/LiveClassEditor/package.st
View file
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #LiveClassEditor }
Package { #name : 'LiveClassEditor' }
15 changes: 8 additions & 7 deletions repository/LiveGenerator/LGGenerator.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,18 +1,19 @@
Class {
#name : #LGGenerator,
#superclass : #Object,
#name : 'LGGenerator',
#superclass : 'Object',
#instVars : [
'object'
],
#category : 'LiveGenerator'
#category : 'LiveGenerator',
#package : 'LiveGenerator'
}

{ #category : #'instance creation' }
{ #category : 'instance creation' }
LGGenerator class >> on: anObject [
^ self new setObject: anObject
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LGGenerator >> dictionaryToStructureNamed: aName [
| keys cls |
self assert: [ object isDictionary ].
Expand All @@ -33,7 +34,7 @@ LGGenerator >> dictionaryToStructureNamed: aName [
cls browse
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LGGenerator >> selectorForName: aString [
"selector must adhere to /^[a-z][a-zA-Z0-9_]*$/"

Expand All @@ -44,7 +45,7 @@ LGGenerator >> selectorForName: aString [
^ selector uncapitalized asSymbol
]

{ #category : #'as yet unclassified' }
{ #category : 'as yet unclassified' }
LGGenerator >> setObject: anObject [
object := anObject
]
4 changes: 2 additions & 2 deletions repository/LiveGenerator/Object.extension.st
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #Object }
Extension { #name : 'Object' }

{ #category : #'*LiveGenerator' }
{ #category : '*LiveGenerator' }
Object >> asCodeGen [
^ LGGenerator on: self
]
2 changes: 1 addition & 1 deletion repository/LiveGenerator/package.st
View file
Original file line number Diff line number Diff line change
@@ -1 +1 @@
Package { #name : #LiveGenerator }
Package { #name : 'LiveGenerator' }
6 changes: 3 additions & 3 deletions repository/LiveInstanceVisualization/ClassDescription.extension.st
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #ClassDescription }
Extension { #name : 'ClassDescription' }

{ #category : #'*LiveInstanceVisualization-Inspector-Extensions' }
{ #category : '*LiveInstanceVisualization-Inspector-Extensions' }
ClassDescription >> gtInspectorExpandableCallGraphIn: composite [
<gtInspectorPresentationOrder: 80>
| el |
Expand All @@ -13,7 +13,7 @@ ClassDescription >> gtInspectorExpandableCallGraphIn: composite [
v ]
]

{ #category : #'*LiveInstanceVisualization-Inspector-Extensions' }
{ #category : '*LiveInstanceVisualization-Inspector-Extensions' }
ClassDescription >> gtInspectorInstanceViewIn: composite [
<gtInspectorPresentationOrder: 80>
| el |
Expand Down
24 changes: 13 additions & 11 deletions repository/LiveInstanceVisualization/LIVClassBoxBuilder.class.st
View file
Original file line number Diff line number Diff line change
@@ -1,55 +1,57 @@
Class {
#name : #LIVClassBoxBuilder,
#superclass : #Object,
#name : 'LIVClassBoxBuilder',
#superclass : 'Object',
#instVars : [
'model',
'baseShape',
'nameShape'
],
#category : 'LiveInstanceVisualization-Inspector-Extensions'
#category : 'LiveInstanceVisualization-Inspector-Extensions',
#package : 'LiveInstanceVisualization',
#tag : 'Inspector-Extensions'
}

{ #category : #shapes }
{ #category : 'shapes' }
LIVClassBoxBuilder >> baseShape [
^ baseShape ifNil: [ baseShape := self newBaseShape ]
]

{ #category : #building }
{ #category : 'building' }
LIVClassBoxBuilder >> build [
| el |
el := baseShape.
self nameShape owningElement: el.
^ el
]

{ #category : #initialization }
{ #category : 'initialization' }
LIVClassBoxBuilder >> initialize [
super initialize.
baseShape := self newBaseShape
]

{ #category : #accessing }
{ #category : 'accessing' }
LIVClassBoxBuilder >> model [
^ model
]

{ #category : #accessing }
{ #category : 'accessing' }
LIVClassBoxBuilder >> model: anObject [
model := anObject.
self nameShape text: model name
]

{ #category : #shapes }
{ #category : 'shapes' }
LIVClassBoxBuilder >> nameShape [
^ nameShape ifNil: [ nameShape := self newNameShape ]
]

{ #category : #'instance creation' }
{ #category : 'instance creation' }
LIVClassBoxBuilder >> newBaseShape [
^ OPUmlClassifierShape new
]

{ #category : #'instance creation' }
{ #category : 'instance creation' }
LIVClassBoxBuilder >> newNameShape [
^ OPUmlNameLabel new
text: #Undefined;
Expand Down
Loading

0 comments on commit 8975682

Please sign in to comment.