|
@@ -1,4 +1,3 @@
|
|
-Smalltalk current createPackage: 'IDE'!
|
|
|
|
Widget subclass: #TabManager
|
|
Widget subclass: #TabManager
|
|
instanceVariableNames: 'selectedTab tabs opened ul input'
|
|
instanceVariableNames: 'selectedTab tabs opened ul input'
|
|
category: 'IDE'!
|
|
category: 'IDE'!
|
|
@@ -600,9 +599,11 @@ compileMethodDefinitionFor: aClass
|
|
method := compiler eval: (compiler compileNode: node).
|
|
method := compiler eval: (compiler compileNode: node).
|
|
method category: selectedProtocol.
|
|
method category: selectedProtocol.
|
|
compiler unknownVariables do: [:each |
|
|
compiler unknownVariables do: [:each |
|
|
- (self confirm: 'Declare ''', each, ''' as instance variable?') ifTrue: [
|
|
|
|
- self addInstanceVariableNamed: each toClass: aClass.
|
|
|
|
- ^self compileMethodDefinitionFor: aClass]].
|
|
|
|
|
|
+ "Do not try to redeclare javascript's objects"
|
|
|
|
+ (window at: each) ifNil: [
|
|
|
|
+ (self confirm: 'Declare ''', each, ''' as instance variable?') ifTrue: [
|
|
|
|
+ self addInstanceVariableNamed: each toClass: aClass.
|
|
|
|
+ ^self compileMethodDefinitionFor: aClass]]].
|
|
aClass addCompiledMethod: method.
|
|
aClass addCompiledMethod: method.
|
|
compiler setupClass: aClass.
|
|
compiler setupClass: aClass.
|
|
self updateMethodsList.
|
|
self updateMethodsList.
|
|
@@ -788,10 +789,9 @@ renamePackage
|
|
|
|
|
|
| newName |
|
|
| newName |
|
|
newName := self prompt: 'Rename package ', selectedPackage.
|
|
newName := self prompt: 'Rename package ', selectedPackage.
|
|
- newName ifNotNil: [
|
|
|
|
- newName notEmpty ifTrue: [
|
|
|
|
|
|
+ newName notEmpty ifTrue: [
|
|
Smalltalk current renamePackage: selectedPackage to: newName.
|
|
Smalltalk current renamePackage: selectedPackage to: newName.
|
|
- self updateCategoriesList]]
|
|
|
|
|
|
+ self updateCategoriesList]
|
|
!
|
|
!
|
|
|
|
|
|
removePackage
|
|
removePackage
|