From 74c5468df289510e08fbbc1e342537d2fbc6bac8 Mon Sep 17 00:00:00 2001
From: Ryan Wilcox <rwilcox@wilcoxd.com>
Date: Fri, 19 Jun 2020 11:55:21 -0400
Subject: [PATCH] minor widget updates (mostly formatting)

---
 NotesMode/NotesMode/NotesUI.class.st | 28 ++++++++++++++++++++--------
 1 file changed, 20 insertions(+), 8 deletions(-)

diff --git a/NotesMode/NotesMode/NotesUI.class.st b/NotesMode/NotesMode/NotesUI.class.st
index a57f0b5..6afe08f 100644
--- a/NotesMode/NotesMode/NotesUI.class.st
+++ b/NotesMode/NotesMode/NotesUI.class.st
@@ -172,26 +172,33 @@ NotesUI >> initializeWidgets [
 	"comment stating purpose of message"
 
 	| calendarAsMorph |
+
 	menu := MenuModel new
 		addGroup: [ :group | 
 			super addStandardToolbarItemsTo: group.
+			
 			group
 				addItem: [ :item | 
 					item
 						name: 'List Entities';
 						description: 'List Entities';
-						subMenu: self listSubMenu ];
+						subMenu: self listSubMenu.
+						];
 				addItem: [ :item | 
 					item
 						name: 'Focus';
 						description: 'New window whose contents will get appended to the bigger one';
-						action: [ self spawnFocusWindow ] ];
-				addItem: [ :item | 
+						action: [ self spawnFocusWindow ] ] ;
+					
+				addItem: [ :item |
 					item
-						name: 'insert';
-						description: 'Insert';
-						subMenu: self insertSubMenu ] ].
+					name: 'insert';
+					description: 'Insert';
+					subMenu: self insertSubMenu .
+					].
+				 ].
 	menu applyTo: self.
+	
 	wikiWordsList := self newList.	" a ListModel"
 	wikiWordsList items: {'entity list'}.
 	"wikiWordsList whenSelectedItemChanged: [ :txtLine|| numberLocation |
@@ -201,18 +208,23 @@ NotesUI >> initializeWidgets [
 		].
 	"
 	"TODO: implement me properly."
+	
 	entryPeekText := TextModel new.
 	entryPeekText text: 'Scratch or focus text'.
+
 	calendarAsMorph := NotesFocusMonthMorph openOn: Date today.
 	calendarNavigator := calendarAsMorph asSpecAdapter.
 	calendarAsMorph announcer
-		when: ChoseDate
+		subscribe: ChoseDate
 		do: [ :inEvent | 
 			| whatDate |
+
 			whatDate := inEvent date.
 			self handleDateClicked: whatDate
 			"entryPeekText text: whatDate mmddyyyy " ].
-	super initializeWidgets
+
+	super initializeWidgets .
+	
 ]
 
 { #category : #'acessing text' }