Fixes #190

pharo-vcs · Oct 21, 2016 · 2aa2b18 · 2aa2b18
1 parent 6d3ceb1
commit 2aa2b18
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 1 deletion.
diff --git a/Iceberg.package/IceCommitModelNew.class/class/settingsOn..st b/Iceberg.package/IceCommitModelNew.class/class/settingsOn..st
@@ -0,0 +1,8 @@
+settings
+settingsOn: aBuilder 
+	<systemsettings>
+	(aBuilder setting: #'uploadChangesOnCommit')
+		parent: #Iceberg;
+		target: self;
+		label: 'Upload changes on commit';
+		description: 'If selected your code will be uploaded by default on each commit (if possible)'
diff --git a/Iceberg.package/IceCommitModelNew.class/class/uploadChangesOnCommit..st b/Iceberg.package/IceCommitModelNew.class/class/uploadChangesOnCommit..st
@@ -0,0 +1,3 @@
+accessing
+uploadChangesOnCommit: anObject
+	UploadChangesOnCommit := anObject
diff --git a/Iceberg.package/IceCommitModelNew.class/class/uploadChangesOnCommit.st b/Iceberg.package/IceCommitModelNew.class/class/uploadChangesOnCommit.st
@@ -0,0 +1,3 @@
+accessing
+uploadChangesOnCommit
+	^ UploadChangesOnCommit ifNil: [ UploadChangesOnCommit := true ]
diff --git a/Iceberg.package/IceCommitModelNew.class/instance/initializeWidgets.st b/Iceberg.package/IceCommitModelNew.class/instance/initializeWidgets.st
@@ -7,6 +7,7 @@ initializeWidgets
 
 	pushCheckbox := self newCheckBox
 		label: 'Upload changes on commit?';
+		state: self class uploadChangesOnCommit;
 		yourself.
 
 	self focusOrder 

diff --git a/Iceberg.package/IceCommitModelNew.class/properties.json b/Iceberg.package/IceCommitModelNew.class/properties.json
@@ -4,7 +4,7 @@
 		 ],
 	"classtraitcomposition" : "TIceTool classTrait",
 	"classvars" : [
-		 ],
+		"UploadChangesOnCommit" ],
 	"commentStamp" : "NicoPasserini 8/25/2016 14:47",
 	"instvars" : [
 		"message",