execution
execute
	unitName := UIManager default 
		request: 'Package unit name' 
		initialAnswer: ''.
	unitName isEmptyOrNil ifTrue: [ CmdCommandAborted signal ].
	
	(toolContext systemEnvironment packageOrganizer includesPackageNamed: unitName)
		ifTrue: [ self error: 'Package ', unitName ,' already exists' ].
	
	self createSystemPackage.
	project newPackageUnit: unitName.
execution
execute
	unitName := UIManager default 
		request: 'New package name' 
		initialAnswer: project name, '-'.
	unitName isEmptyOrNil ifTrue: [ CmdCommandAborted signal ].
	
	(toolContext systemEnvironment packageOrganizer includesPackageNamed: unitName)
		ifTrue: [ self error: 'Package ', unitName ,' already exists' ].
	
	self createSystemPackage.
	project newPackageUnit: unitName.
Enhance a bit the Package name dialog
Enhance a bit the Package name dialog
demarey/cargo