SourceFileArray compile: 'deferFlushDuring: aBlock	
	flushChanges ifFalse: [ ^ aBlock value ].
	"flushChanges := false."
	^ [ aBlock value ] ensure: [
		flushChanges := true.
		self flushChangesFile ]'.
		
Metacello new
        githubUser: 'pharo-vcs' project: 'Iceberg' commitish: 'dev-1.6' path: '';
        baseline: 'Iceberg';
        load.

EpMonitor current disable.
Metacello new
  baseline: 'GToolkit';
  repository: 'github://feenkcom/gtoolkit/src';
  load.
EpMonitor current enable.
PharoLightTheme beCurrent.
	
GtDocumentConstants localGtDirectory asFileReference ensureCreateDirectory.
Transcript crShow: ('localGtDirectory: ', GtDocumentConstants localGtDirectory printString).
docFolders := (((IceRepository registry detect: [ :r | r name = 'gtoolkit' ]) location parent) allChildrenMatching: 'doc') asOrderedCollection.

docFolders addAll:  (((IceRepository registry detect: [ :r | r name = 'gtoolkit' ]) location parent) allChildrenMatching: 'data').

docFolders do: [ :each |
	icebergIndex := each absolutePath segments indexOf: 'iceberg'.
	size := each absolutePath segments size.
	topSegments := each absolutePath segments asOrderedCollection copyFrom: (icebergIndex + 1) to: size.

	s := String streamContents: [:s | topSegments asStringOn: s delimiter:'/'].
	Transcript crShow: ('copying ', each printString, ' to ', s).
	[each copyAllTo: (GtDocumentConstants localGtDirectory asFileReference / s) ] on: FileExists do: [ :e | Transcript crShow: e printString ]].
	
World closeAllWindowsDiscardingChanges.
#GtWorldMenu asClass setGtDesktopLogo.

Smalltalk snapshot: true andQuit: false.

SourceFileArray compile: 'deferFlushDuring: aBlock	
	flushChanges ifFalse: [ ^ aBlock value ].
	"flushChanges := false."
	^ [ aBlock value ] ensure: [
		flushChanges := true.
		self flushChangesFile ]'.

[ 
	EpMonitor current disable.
	Metacello new
       		githubUser: 'pharo-vcs' project: 'Iceberg' commitish: 'dev-1.6' path: '';
        	baseline: 'Iceberg';
        	load.

	Metacello new
 		baseline: 'GToolkit';
 		repository: 'github://feenkcom/gtoolkit/src';
		load ] ensure: [ EpMonitor current enable].
PharoLightTheme beCurrent.

GtImageSetup performLocalSetup.

World closeAllWindowsDiscardingChanges.

Smalltalk snapshot: true andQuit: false.

Use 'GtImageSetup performLocalSetup' during the loading process
Use 'GtImageSetup performLocalSetup' during the loading process
feenkcom/gtoolkit