17262821407

Committed 27 Aug 2025 09:26AM UTC coverage: 73.322% (-1.6%) from 74.896%

Build # 17262821407

Build Type

push

github

Committed by

web-flow

Commit Message

Merge pull request #223 from moosetechnology/develop

Update main

Run Details

1000 of 2102 new or added lines in 33 files covered. (47.57%)

28 existing lines in 2 files now uncovered.

18579 of 25339 relevant lines covered (73.32%)

0.73 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/src/GitLabHealth-Model-Visualization/GLHSpCommitView.class.st

Class {
        #name : #GLHSpCommitView,
        #superclass : #SpPresenterWithModel,
        #instVars : [
                'commitAuthorCapsule',
                'shortId',
                'commitDate',
                'commitMessage',
                'diffs',
                'inspectAuthorButton',
                'commitWebURLLink'
        ],
        #category : #'GitLabHealth-Model-Visualization'
}

{ #category : #layout }
GLHSpCommitView >> defaultLayout [

        ^ SpBoxLayout newTopToBottom
                  add: (SpBoxLayout newLeftToRight
                                   add: 'Commit ' expand: false;
                                   add: shortId expand: false;
                                   add: commitWebURLLink withConstraints: [ :constraints |
                                           constraints
                                                   width: 20;
                                                   height: 20 ];
                                   add: ' authored ' expand: false;
                                   add: commitDate expand: false;
                                   add: ' by ' expand: false;
                                   add: commitAuthorCapsule expand: false;
                                   add: inspectAuthorButton withConstraints: [ :constraints |
                                   constraints
                                           width: 20;
                                           height: 20 ];
                                   yourself)
                  expand: false;
                  add: (SpPanedLayout newTopToBottom
                                   positionOfSlider: 0.2;
                                   add: commitMessage;
                                   add: diffs;
                                   yourself) yourself
]

{ #category : #initialization }
GLHSpCommitView >> initializePresenters [

        super initializePresenters.
        commitAuthorCapsule := self
                                       instantiate: GLHSpUserCapsule
                                       on: self model commitCreator.
        shortId := self newLabel.
        shortId label: self model short_id.
        commitDate := self newLabel.
        commitDate label: self model committed_date asDate ddmmyyyy.
        commitMessage := self newText.
        commitMessage text: self model message.
        diffs := self newNotebook.
        self model diffs do: [ :diff |
                | lines |
                diff diffString ifNotEmpty: [
                        lines := diff diffString lines.
                        diffs
                                addPageTitle: (lines first splitOn: '/') last
                                provider: [ GLHSpDiffView on: diff ] ] ].

        inspectAuthorButton := self newButton.
        inspectAuthorButton icon: (self iconNamed: #smallInspectIt).
        inspectAuthorButton action: [ self model commitCreator inspect ].

        commitWebURLLink := self newButton.
        commitWebURLLink icon: (self iconNamed: #remote).
        commitWebURLLink action: [ WebBrowser openOn: self model web_url ].
        (self model web_url isNil or: [self model web_url isEmpty]) ifTrue: [commitWebURLLink disable]
]

{ #category : #initialization }
GLHSpCommitView >> modelChanged [

]

1	Class {
2	#name : #GLHSpCommitView,
3	#superclass : #SpPresenterWithModel,
4	#instVars : [
5	'commitAuthorCapsule',
6	'shortId',
7	'commitDate',
8	'commitMessage',
9	'diffs',
10	'inspectAuthorButton',
11	'commitWebURLLink'
12	],
13	#category : #'GitLabHealth-Model-Visualization'
14	}
15
16	{ #category : #layout }
NEW 17	GLHSpCommitView >> defaultLayout [	×
NEW 18		×
NEW 19	^ SpBoxLayout newTopToBottom	×
NEW 20	add: (SpBoxLayout newLeftToRight	×
NEW 21	add: 'Commit ' expand: false;	×
NEW 22	add: shortId expand: false;	×
NEW 23	add: commitWebURLLink withConstraints: [ :constraints \|	×
NEW 24	constraints	×
NEW 25	width: 20;	×
NEW 26	height: 20 ];	×
NEW 27	add: ' authored ' expand: false;	×
NEW 28	add: commitDate expand: false;	×
NEW 29	add: ' by ' expand: false;	×
NEW 30	add: commitAuthorCapsule expand: false;	×
NEW 31	add: inspectAuthorButton withConstraints: [ :constraints \|	×
NEW 32	constraints	×
NEW 33	width: 20;	×
NEW 34	height: 20 ];	×
NEW 35	yourself)	×
NEW 36	expand: false;	×
NEW 37	add: (SpPanedLayout newTopToBottom	×
NEW 38	positionOfSlider: 0.2;	×
NEW 39	add: commitMessage;	×
NEW 40	add: diffs;	×
NEW 41	yourself) yourself	×
NEW 42	]	×
43
44	{ #category : #initialization }
NEW 45	GLHSpCommitView >> initializePresenters [	×
NEW 46		×
NEW 47	super initializePresenters.	×
NEW 48	commitAuthorCapsule := self	×
NEW 49	instantiate: GLHSpUserCapsule	×
NEW 50	on: self model commitCreator.	×
NEW 51	shortId := self newLabel.	×
NEW 52	shortId label: self model short_id.	×
NEW 53	commitDate := self newLabel.	×
NEW 54	commitDate label: self model committed_date asDate ddmmyyyy.	×
NEW 55	commitMessage := self newText.	×
NEW 56	commitMessage text: self model message.	×
NEW 57	diffs := self newNotebook.	×
NEW 58	self model diffs do: [ :diff \|	×
NEW 59	\| lines \|	×
NEW 60	diff diffString ifNotEmpty: [	×
NEW 61	lines := diff diffString lines.	×
NEW 62	diffs	×
NEW 63	addPageTitle: (lines first splitOn: '/') last	×
NEW 64	provider: [ GLHSpDiffView on: diff ] ] ].	×
NEW 65		×
NEW 66	inspectAuthorButton := self newButton.	×
NEW 67	inspectAuthorButton icon: (self iconNamed: #smallInspectIt).	×
NEW 68	inspectAuthorButton action: [ self model commitCreator inspect ].	×
NEW 69		×
NEW 70	commitWebURLLink := self newButton.	×
NEW 71	commitWebURLLink icon: (self iconNamed: #remote).	×
NEW 72	commitWebURLLink action: [ WebBrowser openOn: self model web_url ].	×
NEW 73	(self model web_url isNil or: [self model web_url isEmpty]) ifTrue: [commitWebURLLink disable]	×
NEW 74	]	×
75
76	{ #category : #initialization }
NEW 77	GLHSpCommitView >> modelChanged [	×
NEW 78		×
NEW 79	]	×

moosetechnology / GitProjectHealth / 17262821407

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous