This commit is contained in:
Daniel Ziltener 2022-05-18 21:44:57 +02:00
parent 194dbdaf14
commit 2cc08210f4
3 changed files with 5 additions and 5 deletions

View File

@ -13,7 +13,7 @@ BaselineOfWebDriver >> baseline: spec [
spec spec
package: 'WebDriver' package: 'WebDriver'
]; ];
baseline: 'Clouseau' with: [ spec repository: 'https://gitea.lyrion.ch/zilti/clouseau' ]; baseline: 'Clouseau' with: [ spec repository: 'https://gitea.lyrion.ch/zilti/clouseau.git' ];
baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON/repository' ]; baseline: 'NeoJSON' with: [ spec repository: 'github://svenvc/NeoJSON/repository' ];
baseline: 'OSSubprocess' with: [ spec repository: 'github://pharo-contributions/OSSubprocess:master/repository' ] baseline: 'OSSubprocess' with: [ spec repository: 'github://pharo-contributions/OSSubprocess:master/repository' ]
] ]

View File

@ -119,7 +119,7 @@ WDElement >> inspectionWDElement [
| presenter attrPresenter screenshotPresenter | | presenter attrPresenter screenshotPresenter |
attrPresenter := SpBoxLayout newTopToBottom attrPresenter := SpBoxLayout newTopToBottom
add: (SpLabelPresenter new label: ('Infos about the "{1}" element:' format: {self name}); yourself) add: (SpLabelPresenter new label: ('Infos about the "{1}" element:' format: {self name}))
expand: false expand: false
fill: false fill: false
padding: 5; padding: 5;
@ -130,7 +130,7 @@ WDElement >> inspectionWDElement [
yourself. yourself.
screenshotPresenter := SpBoxLayout newTopToBottom screenshotPresenter := SpBoxLayout newTopToBottom
add: (SpLabelPresenter new label: 'Preview:'; yourself) expand: false fill: false padding: 5; add: (SpLabelPresenter new label: 'Preview:') expand: false fill: false padding: 5;
add: (SpImagePresenter new image: (Form fromBinaryStream: (self screenshot readStream))); add: (SpImagePresenter new image: (Form fromBinaryStream: (self screenshot readStream)));
yourself. yourself.

View File

@ -166,12 +166,12 @@ WebDriver >> inspectionWebDriver [
expand: true expand: true
fill: true fill: true
padding: 5; padding: 5;
add: (SpLabelPresenter new label: 'Preferences'; yourself) expand: false fill: false padding: 5; add: (SpLabelPresenter new label: 'Preferences') expand: false fill: false padding: 5;
add: prefs asStringTreeTablePresenter add: prefs asStringTreeTablePresenter
expand: true expand: true
fill: true fill: true
padding: 5; padding: 5;
add: (SpLabelPresenter new label: 'Session Capabilities'; yourself) expand: false fill: false padding: 5; add: (SpLabelPresenter new label: 'Session Capabilities') expand: false fill: false padding: 5;
add: capabilities asStringTreeTablePresenter add: capabilities asStringTreeTablePresenter
expand: true expand: true
fill: true fill: true