Merge pull request #23 from adri09070/reworking-main-ui

Reworking main UI

src/BaselineOfChest/BaselineOfChest.class.st

@@ -9,6 +9,8 @@ BaselineOfChest >> baseline: spec [
 
 	<baseline>
 	spec for: #common do: [
+		spec postLoadDoIt: #postload:package:.
+
 		spec
 			package: 'Chest';
 			package: 'Chest-Tests';
@@ -17,5 +19,21 @@ BaselineOfChest >> baseline: spec [
 
 	spec
 		group: 'default'
-		with: #( 'Chest' 'Chest-Commands' 'Chest-Tests' 'Chest-Commands-Tests' )
+		with:
+		#( 'Chest' 'Chest-Commands' 'Chest-Tests' 'Chest-Commands-Tests' )
+]
+
+{ #category : #baselines }
+BaselineOfChest >> createChestExamples [
+
+	Chest at: 'fortyTwo' put: 42.
+	(Chest newNamed: 'ExampleChest')
+		at: 'tata'
+		put: 'someExampleStringCalledTata'
+]
+
+{ #category : #baselines }
+BaselineOfChest >> postload: loader package: packageSpec [
+
+	self createChestExamples
 ]

src/Chest-Commands/ChestAddNewItemCommand.class.st

@@ -0,0 +1,35 @@
+Class {
+	#name : #ChestAddNewItemCommand,
+	#superclass : #ChestCommand,
+	#category : #'Chest-Commands'
+}
+
+{ #category : #default }
+ChestAddNewItemCommand class >> defaultDescription [
+
+	^ 'Request an expression whose result will be stored inside the selected chest'
+]
+
+{ #category : #default }
+ChestAddNewItemCommand class >> defaultIconName [
+
+	^ #add
+]
+
+{ #category : #default }
+ChestAddNewItemCommand class >> defaultName [
+
+	^ 'Add item'
+]
+
+{ #category : #testing }
+ChestAddNewItemCommand >> canBeExecuted [
+
+	^ context selectedChest isNotNil
+]
+
+{ #category : #executing }
+ChestAddNewItemCommand >> execute [
+
+	^ context requestExpressionToStoreInChest
+]

src/Chest-Commands/ChestCommand.class.st

@@ -30,37 +30,39 @@ ChestCommand class >> chestLoadItemCommandClasses [
 { #category : #'accessing - commands classes' }
 ChestCommand class >> chestTableContentMenuCommandClasses [
 
-	^ { 
+	^ {
 		  ChestRenameItemCommand.
 		  ChestInspectItemCommand.
+		  ChestAddNewItemCommand.
 		  ChestRemoveItemCommand.
 		  ChestRemoveAllItemsInChestCommand }
 ]
 
 { #category : #'accessing - commands classes' }
 ChestCommand class >> chestTableContentToolbarCommandClasses [
 
-	^ { 
-		  ChestRemoveItemCommand.
-		  ChestRemoveAllItemsInChestCommand }
+	^ {
+		  ChestAddNewItemCommand.
+		  ChestRemoveItemCommand }
 ]
 
 { #category : #'accessing - commands classes' }
 ChestCommand class >> chestTableMenuCommandClasses [
 
-	^ { 
+	^ {
 		  ChestRenameChestCommand.
+		  ChestInspectChestCommand.
+		  ChestAddNewChestCommand.
 		  ChestRemoveChestCommand.
 		  ChestRemoveAllChestsCommand }
 ]
 
 { #category : #'accessing - commands classes' }
 ChestCommand class >> chestTableToolbarCommandClasses [
 
-	^ { 
+	^ {
 		  ChestAddNewChestCommand.
-		  ChestRemoveChestCommand.
-		  ChestRemoveAllChestsCommand }
+		  ChestRemoveChestCommand }
 ]
 
 { #category : #'accessing - commands classes' }

src/Chest-Commands/ChestInspectChestCommand.class.st

@@ -0,0 +1,41 @@
+Class {
+	#name : #ChestInspectChestCommand,
+	#superclass : #ChestCommand,
+	#category : #'Chest-Commands'
+}
+
+{ #category : #default }
+ChestInspectChestCommand class >> defaultDescription [
+
+	^ 'Inspect the chest'
+]
+
+{ #category : #default }
+ChestInspectChestCommand class >> defaultIconName [
+
+	^ #glamorousInspect
+]
+
+{ #category : #default }
+ChestInspectChestCommand class >> defaultName [
+
+	^ 'Inspect chest'
+]
+
+{ #category : #default }
+ChestInspectChestCommand class >> defaultShortcutKey [
+
+	^ $i meta
+]
+
+{ #category : #testing }
+ChestInspectChestCommand >> canBeExecuted [
+
+	^ context selectedChest isNotNil
+]
+
+{ #category : #executing }
+ChestInspectChestCommand >> execute [
+
+	context selectedChest inspect
+]

src/Chest-Commands/ChestInspectItemCommand.class.st

@@ -10,6 +10,12 @@ ChestInspectItemCommand class >> defaultDescription [
 	^ 'Inspect the object'
 ]
 
+{ #category : #default }
+ChestInspectItemCommand class >> defaultIconName [
+
+	^ #glamorousInspect
+]
+
 { #category : #default }
 ChestInspectItemCommand class >> defaultName [