Issue #37: even more minimal style

Author: dalehenrich

src/GsDevKit_stones-Core.package/GDKProjectSet.class/instance/cloneOrUpdateProject.remoteName.in.preview.pull..st

@@ -27,7 +27,7 @@ cloneOrUpdateProject: projectDirName remoteName: remoteName in: gitRootPath prev
 		cr;
 		nextPutAll: 'Project   ' , projectName printString;
 		cr;
-		nextPutAll: '===================='.
+		nextPutAll: '-------------------------------'.
 	gitProjectRef exists
 		ifTrue: [ 
 			(Rowan gitTools gitstatusIn: gitProjectRef fullName with: '--porcelain') isEmpty
@@ -144,24 +144,21 @@ cloneOrUpdateProject: projectDirName remoteName: remoteName in: gitRootPath prev
 							preview
 								ifTrue: [ 
 									revision = currentBranchName
-										ifFalse: [ 
+										ifTrue: [ 
 											stdout
 												cr;
-												nextPutAll: '***************************';
-												cr;
-												nextPutAll: 'Current BRANCHNAME: ' , currentBranchName;
-												cr;
-												nextPutAll: '------  Preview FETCH,';
+												nextPutAll: '------  FETCH and PULL ' , currentBranchName";
 												cr;
-												nextPutAll: '***';
-												tab;
-												nextPutAll: 'SWITCH  TO ' , revision , ' FROM ' , currentBranchName;
+												nextPutAll: '***************************' "]
+										ifFalse: [ 
+											stdout
+												"cr;
+												nextPutAll: '***************************';"
 												cr;
-												tab;
-												nextPutAll: ' and PULL';
-												nextPutAll: '  ' , revision;
+												nextPutAll: '------  FETCH, SWITCH  TO ' , revision , ' FROM ' , currentBranchName,' and PULL';
+												nextPutAll: '  ' , revision";
 												cr;
-												nextPutAll: '***************************' ] ] ] ] ].
+												nextPutAll: '***************************' "] ] ] ] ].
 	cloned
 		ifTrue: [ 
 			"GIT REMOTE ADD"