|
@@ -804,16 +804,8 @@ cancelChanges
|
|
|
!
|
|
|
|
|
|
commitPackage
|
|
|
- selectedPackage ifNotNil: [ |package|
|
|
|
- package := Package named: selectedPackage.
|
|
|
- { Exporter -> (package commitPathJs, '/', selectedPackage, '.js').
|
|
|
- StrippedExporter -> (package commitPathJs, '/', selectedPackage, '.deploy.js').
|
|
|
- ChunkExporter -> (package commitPathSt, '/', selectedPackage, '.st')
|
|
|
- } do: [:commitStrategy| |fileContents|
|
|
|
- fileContents := (commitStrategy key new exportPackage: selectedPackage).
|
|
|
- self ajaxPutAt: commitStrategy value data: fileContents
|
|
|
- ]
|
|
|
- ]
|
|
|
+ selectedPackage ifNotNil: [
|
|
|
+ (Package named: selectedPackage) commit ]
|
|
|
!
|
|
|
|
|
|
compile
|
|
@@ -1052,16 +1044,6 @@ initialize
|
|
|
unsavedChanges := false
|
|
|
! !
|
|
|
|
|
|
-!Browser methodsFor: 'network'!
|
|
|
-
|
|
|
-ajaxPutAt: aURL data: aString
|
|
|
- jQuery
|
|
|
- ajax: aURL options: #{ 'type' -> 'PUT'.
|
|
|
- 'data' -> aString.
|
|
|
- 'contentType' -> 'text/plain;charset=UTF-8'.
|
|
|
- 'error' -> [:xhr | window alert: 'Commiting ' , aURL , ' failed with reason: "' , (xhr responseText) , '"'] }
|
|
|
-! !
|
|
|
-
|
|
|
!Browser methodsFor: 'rendering'!
|
|
|
|
|
|
renderBottomPanelOn: html
|