Skip to content

Commit

Permalink
At the end, re-update Squeak to have the most recent version of JSON.…
Browse files Browse the repository at this point in the history
… Also avoid loading non-SWA Git through the menu.
  • Loading branch information
marceltaeumel committed Oct 12, 2024
1 parent 553f08f commit b2c0bc1
Showing 1 changed file with 9 additions and 11 deletions.
20 changes: 9 additions & 11 deletions SwaImageConfiguration.st
Original file line number Diff line number Diff line change
Expand Up @@ -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.'

"-=-=-=-=-="

Expand Down Expand Up @@ -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
Expand Down

0 comments on commit b2c0bc1

Please sign in to comment.