Swa UI

.gitignore

@@ -0,0 +1 @@
+.filetree

src/Squit.package/SquitBrowser.class/class/registerInWorldMenu.st

@@ -1,8 +1,9 @@
 world menu
 registerInWorldMenu
+	"self registerInWorldMenu"
 	(self environment valueOf: #TheWorldMenu) ifNotNil: [:worldMenu |
 		worldMenu registerOpenCommand: (Array 
-			with: 'Git Browser' 
+			with: 'Squit' 
 			with: (Array
 				with: self
 				with: #open))].

src/Squit.package/SquitBrowser.class/methodProperties.json

@@ -4,7 +4,7 @@
 		"initialize" : "jr 4/18/2018 21:28",
 		"initializeSelfUpdate" : "jr 4/18/2018 21:27",
 		"open" : "fn 4/11/2017 09:09",
-		"registerInWorldMenu" : "jr 4/15/2017 13:34",
+		"registerInWorldMenu" : "ek 10/26/2021 20:45",
 		"selfUpdate" : "jr 3/7/2020 00:09",
 		"selfUpdateBranch" : "jr 4/21/2018 22:22",
 		"selfUpdateBranch:" : "jr 4/18/2018 22:37",

src/Squit.package/SquitCredentialsFillInMorph.class/README.md

@@ -0,0 +1 @@
+I provide an UI to edit all relevant credential fields at once.

src/Squit.package/SquitCredentialsFillInMorph.class/class/requestCredentials.st

@@ -0,0 +1,4 @@
+instance creation
+requestCredentials
+
+	^ self new getUserResponse

src/Squit.package/SquitCredentialsFillInMorph.class/instance/accept.st

@@ -0,0 +1,6 @@
+as yet unclassified
+accept
+
+	self
+		textPanesAccept;
+		closeDialog: self result.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/addTextPanesAndDescriptions.st

@@ -0,0 +1,33 @@
+initialization
+addTextPanesAndDescriptions
+
+	| otherMessageMorph |
+
+	column := AlignmentMorph newColumn
+		hResizing: #shrinkWrap;
+		vResizing: #shrinkWrap;
+		cellGap: 4;
+		color: Color transparent.
+	self paneMorph addMorph: column.
+
+	self message: 'GitHub username (authentication)'.
+
+	column addMorphBack: textPaneUsername.
+
+	otherMessageMorph := messageMorph copy.
+	otherMessageMorph contents: 'GitHub password/token (authentication)'.
+	column addMorphBack: otherMessageMorph.
+
+	column addMorphBack: textPanePassword.
+
+	otherMessageMorph := messageMorph copy.
+	otherMessageMorph contents: 'Name (used for commits, e.g. Maria Muster)'.
+	column addMorphBack: otherMessageMorph.
+
+	column addMorphBack: textPaneDisplayName.
+
+	otherMessageMorph := messageMorph copy.
+	otherMessageMorph contents: 'Email (used for commits)'.
+	column addMorphBack: otherMessageMorph.
+
+	column addMorphBack: textPaneEmail.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/configurePaneMorph.st

@@ -0,0 +1,6 @@
+initialization
+configurePaneMorph.
+
+	self paneMorph
+		hResizing: #shrinkWrap;
+		vResizing: #shrinkWrap.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/createPasswordTextPaneFor..st

@@ -0,0 +1,4 @@
+initialization
+createPasswordTextPaneFor: aSymbol 
+
+	^ (self createTextPaneFor: aSymbol) font: (StrikeFont passwordFontSize: 12)

src/Squit.package/SquitCredentialsFillInMorph.class/instance/createTextPaneFor..st

@@ -0,0 +1,25 @@
+initialization
+createTextPaneFor: aSymbol 
+
+	| textPane |
+	textPane := PluggableTextMorph
+				on: self
+				text: aSymbol
+				accept: (aSymbol, #:) asSymbol
+				"readSelection: #selectionInterval
+				menu: #codePaneMenu:shifted:".
+	textPane 
+		showScrollBarsOnlyWhenNeeded;
+		wantsFrameAdornments: false;
+		hasUnacceptedEdits: true;
+		askBeforeDiscardingEdits: false;
+		setProperty: #alwaysAccept toValue: true;
+		acceptOnCR: true;
+		setNameTo: aSymbol asString;
+		layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@1));
+		hResizing: #spaceFill;
+		vResizing: #spaceFill;
+		minimumExtent: 0@2;
+		updateMinimumExtent;
+		scrollToTop.
+	^ textPane

src/Squit.package/SquitCredentialsFillInMorph.class/instance/createTextPanes.st

@@ -0,0 +1,7 @@
+initialization
+createTextPanes
+
+	textPaneUsername := self createTextPaneFor: #username.
+	textPanePassword := self createPasswordTextPaneFor: #password.
+	textPaneDisplayName := self createTextPaneFor: #displayName.
+	textPaneEmail := self createTextPaneFor: #email.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/displayName..st

@@ -0,0 +1,4 @@
+accessing
+displayName: aString
+
+	displayName := aString.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/displayName.st

@@ -0,0 +1,4 @@
+accessing
+displayName
+
+	^ displayName

src/Squit.package/SquitCredentialsFillInMorph.class/instance/email..st

@@ -0,0 +1,4 @@
+accessing
+email: aString
+
+	email := aString.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/email.st

@@ -0,0 +1,4 @@
+accessing
+email
+
+	^ email

src/Squit.package/SquitCredentialsFillInMorph.class/instance/initialize.st

@@ -0,0 +1,15 @@
+initialization
+initialize
+
+	super initialize.
+
+	self title: 'GitHub credentials requested' translated.
+	self initializeTextPanes.
+
+	self createAcceptButton
+		action: [self accept].
+	self createCancelButton
+		action: [self closeDialog: nil].
+
+	self preferredPosition: ActiveHand cursorPoint.
+	self setDefaultParameters.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/initializeTextPanes.st

@@ -0,0 +1,6 @@
+initialization
+initializeTextPanes
+
+	self createTextPanes.
+	self addTextPanesAndDescriptions.
+	self configurePaneMorph.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/password..st

@@ -0,0 +1,4 @@
+accessing
+password: aString
+
+	password := aString.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/password.st

@@ -0,0 +1,4 @@
+accessing
+password
+
+	^ password

src/Squit.package/SquitCredentialsFillInMorph.class/instance/result.st

@@ -0,0 +1,10 @@
+as yet unclassified
+result
+
+	^ Dictionary new
+		at: #username put: self username asString;
+		at: #password put: self password asString;
+		at: #displayName put: self displayName asString;
+		at: #email put: self email asString;
+		yourself
+

src/Squit.package/SquitCredentialsFillInMorph.class/instance/textPanesAccept.st

@@ -0,0 +1,8 @@
+as yet unclassified
+textPanesAccept
+
+	textPaneUsername accept.
+	textPanePassword accept.
+	textPaneDisplayName accept.
+	textPaneEmail accept.
+	^ 'meep'

src/Squit.package/SquitCredentialsFillInMorph.class/instance/username..st

@@ -0,0 +1,4 @@
+accessing
+username: aString
+
+	username := aString.

src/Squit.package/SquitCredentialsFillInMorph.class/instance/username.st

@@ -0,0 +1,4 @@
+accessing
+username
+
+	^ username

src/Squit.package/SquitCredentialsFillInMorph.class/methodProperties.json

@@ -0,0 +1,22 @@
+{
+	"class" : {
+		"requestCredentials" : "ek 9/21/2021 16:53" },
+	"instance" : {
+		"accept" : "ek 9/21/2021 18:23",
+		"addTextPanesAndDescriptions" : "mad 9/9/2022 14:06",
+		"configurePaneMorph" : "mad 9/9/2022 14:06",
+		"createPasswordTextPaneFor:" : "ek 9/21/2021 17:27",
+		"createTextPaneFor:" : "ek 9/21/2021 17:58",
+		"createTextPanes" : "ek 9/21/2021 17:28",
+		"displayName" : "ek 9/21/2021 17:31",
+		"displayName:" : "ek 9/21/2021 17:31",
+		"email" : "ek 9/21/2021 17:31",
+		"email:" : "ek 9/21/2021 17:31",
+		"initialize" : "ek 9/21/2021 18:22",
+		"initializeTextPanes" : "ek 9/21/2021 17:26",
+		"password" : "ek 9/21/2021 17:30",
+		"password:" : "ek 9/21/2021 17:30",
+		"result" : "ek 9/21/2021 18:26",
+		"textPanesAccept" : "ek 9/21/2021 18:14",
+		"username" : "ek 9/21/2021 17:29",
+		"username:" : "ek 9/21/2021 17:30" } }

src/Squit.package/SquitCredentialsFillInMorph.class/properties.json

@@ -0,0 +1,22 @@
+{
+	"category" : "Squit-Lecture",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "ek 10/14/2021 13:27",
+	"instvars" : [
+		"username",
+		"password",
+		"displayName",
+		"email",
+		"textPaneUsername",
+		"textPanePassword",
+		"textPaneDisplayName",
+		"textPaneEmail",
+		"column" ],
+	"name" : "SquitCredentialsFillInMorph",
+	"pools" : [
+		 ],
+	"super" : "DialogWindow",
+	"type" : "normal" }

src/Squit.package/SwaSquitBrowser.class/README.md

@@ -0,0 +1 @@
+I provide a UI to browse and manipulate exactly one Git repository and its history. I am intended to be a simpler version of the SquitBrowser that can be used in the SWA lecture.

src/Squit.package/SwaSquitBrowser.class/class/initialize.st

@@ -0,0 +1,4 @@
+class initialization
+initialize
+
+	self registerInWorldMenu.

src/Squit.package/SwaSquitBrowser.class/class/open.st

@@ -0,0 +1,3 @@
+instance creation
+open
+	ToolBuilder open: self new

src/Squit.package/SwaSquitBrowser.class/class/registerInWorldMenu.st

@@ -0,0 +1,9 @@
+world menu
+registerInWorldMenu
+	"self registerInWorldMenu"
+	(self environment valueOf: #TheWorldMenu) ifNotNil: [:worldMenu |
+		worldMenu registerOpenCommand: (Array 
+			with: 'SWA Git Browser' 
+			with: (Array
+				with: self
+				with: #open))].

src/Squit.package/SwaSquitBrowser.class/class/unregisterFromWorldMenu.st

@@ -0,0 +1,5 @@
+world menu
+unregisterFromWorldMenu
+	"self unregisterFromWorldMenu"
+	(self environment valueOf: #TheWorldMenu) ifNotNil:
+		[:worldMenu | worldMenu unregisterOpenCommandWithReceiver: self].

src/Squit.package/SwaSquitBrowser.class/instance/actionAddOrRemoveTrackedPackages.st

@@ -0,0 +1,4 @@
+actions
+actionAddOrRemoveTrackedPackages
+
+	^ self withUnitOfWork: [SquitPackageChooser chooseFor: self selectedRepository]

src/Squit.package/SwaSquitBrowser.class/instance/actionCloneAndMerge.st

@@ -0,0 +1,13 @@
+actions
+actionCloneAndMerge
+
+	| operation |
+
+	operation := SwaSquitInteractiveClone new.
+	[operation clone] on: SquitBadRemote do: [:e | e retry].
+	self changed: #repositoryList.
+	self selectRepository: operation repository.
+	self actionMergeInteractive: false.
+	Project current addDeferredUIMessage: [self refresh].
+	self browseRepository.
+	self refresh.

src/Squit.package/SwaSquitBrowser.class/instance/actionCommitAndPush.st

@@ -0,0 +1,4 @@
+actions
+actionCommitAndPush
+
+	self actionCommitAndThenDo: [self actionPush].

src/Squit.package/SwaSquitBrowser.class/instance/actionCommitAndThenDo..st

@@ -0,0 +1,15 @@
+actions
+actionCommitAndThenDo: aBlock
+
+	| workingCopy |
+	self hasSelectedRepository ifFalse: [^ self].
+
+	workingCopy := self selectedRepository.
+	self withUnitOfWork: [
+		[SquotGUI waitFor:
+			((workingCopy newInteractiveSaveOperation
+					title: 'Select changes and message for the new version';
+					applyToWorkingCopy)
+				then: [:result | self refresh. aBlock value]
+				ifRejected: [:reason | nil])]
+			on: BrokenPromise do: [:e | e ifNotError: []]].

src/Squit.package/SwaSquitBrowser.class/instance/actionCommitDiffWithParent.st

@@ -0,0 +1,9 @@
+actions
+actionCommitDiffWithParent
+
+	self withUnitOfWork:
+		[(SquotDiffExplorer
+			from: (self selectedCommit parents at: 1 ifAbsent: [SquotSnapshot empty])
+			to: self selectedCommit)
+		workingCopy: self selectedRepository;
+		openLabel: 'Comparing versions'].

src/Squit.package/SwaSquitBrowser.class/instance/actionCommitSelectionCheckout.st

@@ -0,0 +1,5 @@
+actions
+actionCommitSelectionCheckout
+
+	self withUnitOfWork:
+		[self selectedRepository loadVersionInteractively: self selectedCommit ifCanceled: [^ self]].

src/Squit.package/SwaSquitBrowser.class/instance/actionCredentialsEdit.st

@@ -0,0 +1,24 @@
+actions
+actionCredentialsEdit
+
+	| credentials repository gitRepository remoteUrl displayName email |
+
+	repository := self selectedRepository repository.
+	gitRepository := repository git.
+	remoteUrl := (repository remoteNames collect:
+		[:each | (gitRepository remoteUrl: each)]
+		thenSelect: [:each | each beginsWith: 'http']) first.
+	credentials := SquitCredentialsFillInMorph requestCredentials.
+	credentials ifNil: [^ nil].
+
+	repository
+		addCredentialsFor: remoteUrl
+		user: (credentials at: #username)
+		password: (credentials at: #password).
+
+	displayName := credentials at: #displayName.
+	email := credentials at: #email.
+	displayName ifNotNil: [GitStamp defaultName: displayName].
+	email ifNotNil: [GitStamp defaultEmail: email].
+	gitRepository configAt: 'user.name' put: displayName.
+	gitRepository configAt: 'user.email' put: email.

src/Squit.package/SwaSquitBrowser.class/instance/actionMergeInteractive..st

@@ -0,0 +1,7 @@
+actions
+actionMergeInteractive: aBoolean
+
+	self withUnitOfWork: [
+		self selectedRepository 
+			loadVersion: self selectedCommit
+			interactive: aBoolean].