16474471469

Committed 23 Jul 2025 03:06PM UTC coverage: 72.934% (-0.2%) from 73.181%

Build # 16474471469

Build Type

Pull #220

github

Committed by

web-flow

Commit Message

Merge be4117e51 into 55903cdcb

Pull Request Pull Request #220: Add nice visualisation to navigate through GPH

Run Details

0 of 82 new or added lines in 3 files covered. (0.0%)

17728 of 24307 relevant lines covered (72.93%)

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'
        ],
        #category : #'GitLabHealth-Model-Visualization'
}

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

        ^ SpBoxLayout newTopToBottom
                  add: (SpBoxLayout newLeftToRight
                                   add: 'Commit ' expand: false;
                                   add: shortId expand: false;
                                   add: ' authored ' expand: false;
                                   add: commitDate expand: false;
                                   add: ' by ' expand: false;
                                   add: commitAuthorCapsule expand: false;
                                   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 ] ] ]
]

{ #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	],
11	#category : #'GitLabHealth-Model-Visualization'
12	}
13
14	{ #category : #layout }
NEW 15	GLHSpCommitView >> defaultLayout [	×
NEW 16		×
NEW 17	^ SpBoxLayout newTopToBottom	×
NEW 18	add: (SpBoxLayout newLeftToRight	×
NEW 19	add: 'Commit ' expand: false;	×
NEW 20	add: shortId expand: false;	×
NEW 21	add: ' authored ' expand: false;	×
NEW 22	add: commitDate expand: false;	×
NEW 23	add: ' by ' expand: false;	×
NEW 24	add: commitAuthorCapsule expand: false;	×
NEW 25	yourself)	×
NEW 26	expand: false;	×
NEW 27	add: (SpPanedLayout newTopToBottom	×
NEW 28	positionOfSlider: 0.2;	×
NEW 29	add: commitMessage;	×
NEW 30	add: diffs;	×
NEW 31	yourself)	×
NEW 32	yourself	×
NEW 33	]	×
34
35	{ #category : #initialization }
NEW 36	GLHSpCommitView >> initializePresenters [	×
NEW 37		×
NEW 38	super initializePresenters.	×
NEW 39	commitAuthorCapsule := self	×
NEW 40	instantiate: GLHSpUserCapsule	×
NEW 41	on: self model commitCreator.	×
NEW 42	shortId := self newLabel.	×
NEW 43	shortId label: self model short_id.	×
NEW 44	commitDate := self newLabel.	×
NEW 45	commitDate label: self model committed_date asDate ddmmyyyy.	×
NEW 46	commitMessage := self newText.	×
NEW 47	commitMessage text: self model message.	×
NEW 48	diffs := self newNotebook.	×
NEW 49	self model diffs do: [ :diff \|	×
NEW 50	\| lines \|	×
NEW 51	diff diffString ifNotEmpty: [	×
NEW 52	lines := diff diffString lines.	×
NEW 53	diffs	×
NEW 54	addPageTitle: (lines first splitOn: '/') last	×
NEW 55	provider: [ GLHSpDiffView on: diff ] ] ]	×
NEW 56	]	×
57
58	{ #category : #initialization }
NEW 59	GLHSpCommitView >> modelChanged [	×
NEW 60		×
NEW 61	]	×

moosetechnology / GitProjectHealth / 16474471469

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