From b2c0bc19488ab51e5023ab6b53ae3808dcb4a472 Mon Sep 17 00:00:00 2001 From: Marcel Taeumel Date: Sat, 12 Oct 2024 16:48:44 +0200 Subject: [PATCH] At the end, re-update Squeak to have the most recent version of JSON. Also avoid loading non-SWA Git through the menu. --- SwaImageConfiguration.st | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/SwaImageConfiguration.st b/SwaImageConfiguration.st index c02e227..ee82390 100644 --- a/SwaImageConfiguration.st +++ b/SwaImageConfiguration.st @@ -62,18 +62,9 @@ Utilities setAuthorInitials: 'hpi'. "changed at end" "The tools menu in the docking bar should use the swa git ui" -"(Smalltalk at: #TheWorldMainDockingBar) compile: 'installAndOpenGitBrowser +(Smalltalk at: #TheWorldMainDockingBar) compile: 'installAndOpenGitBrowser - (Smalltalk hasClassNamed: #SquitBrowser) - ifFalse: [ (UIManager default - confirm: ''The Git infrastructure and browser is not yet installed.\\Do you want to install the Git Browser?\\(Note that this step requires an internet connection and\may take several minutes.)'' withCRs translated - title: ''Confirm Installation Request'' ) - ifTrue: [ Installer - ensureRecentMetacello; - installGitInfrastructure. - TheWorldMainDockingBar updateInstances ] - ifFalse: [ ^self ] ]. - (Smalltalk classNamed: #SwaSquitBrowser) open.'." + self inform: ''Unavailable. Please use\ Apps > Git Browser\ Apps > Git Asset Browser'' withCRs.' "-=-=-=-=-=" @@ -173,6 +164,13 @@ Metacello new Behavior compile: 'prettyPrinterClass ^ PPFormatter'. "-=-=-=-=-=" + +"Do update again to update JSON, overwritten prior other projects." +[MCMcmUpdater default doUpdate: false. "non-interactive"] + on: MCEmptyVersion do: [:warning | warning resume]. + +"-=-=-=-=-=" + "w shortcut to delete windows - experimental for SWA WiSe 23/24" (Smalltalk at: #SystemWindow) compile: 'filterEvent: aKeyboardEvent for: anObject