|
@@ -410,7 +410,7 @@ clear
|
|
! !
|
|
! !
|
|
|
|
|
|
TabWidget subclass: #Browser
|
|
TabWidget subclass: #Browser
|
|
- instanceVariableNames: 'selectedPackage selectedClass selectedProtocol selectedMethod commitButton packagesList classesList protocolsList methodsList sourceArea tabsList selectedTab saveButton classButtons methodButtons unsavedChanges renameButton deleteButton'
|
|
|
|
|
|
+ instanceVariableNames: 'selectedPackage selectedClass selectedProtocol selectedMethod commitButton packagesList classesList protocolsList methodsList sourceArea tabsList selectedTab saveButton classButtons methodButtons unsavedChanges renameButton deleteButton commitLocalButton'
|
|
category: 'IDE'!
|
|
category: 'IDE'!
|
|
|
|
|
|
!Browser methodsFor: 'accessing'!
|
|
!Browser methodsFor: 'accessing'!
|
|
@@ -800,6 +800,14 @@ removePackage
|
|
ifTrue: [
|
|
ifTrue: [
|
|
Smalltalk current removePackage: selectedPackage.
|
|
Smalltalk current removePackage: selectedPackage.
|
|
self updateCategoriesList]
|
|
self updateCategoriesList]
|
|
|
|
+!
|
|
|
|
+
|
|
|
|
+commitPackageToLocalStorage
|
|
|
|
+ | key sourceCode |
|
|
|
|
+ selectedPackage ifNotNil: [
|
|
|
|
+ key := 'smalltalk.packages.' , selectedPackage.
|
|
|
|
+ sourceCode := (Exporter new exportPackage: selectedPackage).
|
|
|
|
+ <localStorage[key] = sourceCode>]
|
|
! !
|
|
! !
|
|
|
|
|
|
!Browser methodsFor: 'initialization'!
|
|
!Browser methodsFor: 'initialization'!
|
|
@@ -828,17 +836,22 @@ renderTopPanelOn: html
|
|
class: 'jt_commit';
|
|
class: 'jt_commit';
|
|
title: 'Commit classes in this package to disk';
|
|
title: 'Commit classes in this package to disk';
|
|
onClick: [self commitPackage];
|
|
onClick: [self commitPackage];
|
|
- with: 'Commit package'.
|
|
|
|
|
|
+ with: 'Commit'.
|
|
|
|
+ commitLocalButton := html button
|
|
|
|
+ class: 'jt_commit_local';
|
|
|
|
+ title: 'Commit classes in this package to local storage';
|
|
|
|
+ onClick: [self commitPackageToLocalStorage];
|
|
|
|
+ with: 'Local'.
|
|
renameButton := html button
|
|
renameButton := html button
|
|
class: 'jt_rename';
|
|
class: 'jt_rename';
|
|
- title: 'Rename this package';
|
|
|
|
|
|
+ title: 'Rename package';
|
|
onClick: [self renamePackage];
|
|
onClick: [self renamePackage];
|
|
- with: 'Rename package'.
|
|
|
|
|
|
+ with: 'Rename'.
|
|
deleteButton := html button
|
|
deleteButton := html button
|
|
class: 'jt_delete';
|
|
class: 'jt_delete';
|
|
title: 'Remove this package from the system';
|
|
title: 'Remove this package from the system';
|
|
onClick: [self removePackage];
|
|
onClick: [self removePackage];
|
|
- with: 'Remove package'.
|
|
|
|
|
|
+ with: 'Remove'.
|
|
classesList := ClassesList on: self.
|
|
classesList := ClassesList on: self.
|
|
classesList renderOn: html.
|
|
classesList renderOn: html.
|
|
protocolsList := html ul class: 'jt_column browser protocols'.
|
|
protocolsList := html ul class: 'jt_column browser protocols'.
|