Tagging and Categorization

src/WebDriver/WDKeys.class.st

@@ -4,7 +4,7 @@ I provide class methods returning character codes for non-printable characters.
 Class {
 	#name : #WDKeys,
 	#superclass : #Object,
-	#category : #WebDriver
+	#category : #'WebDriver-Constants'
 }
 
 { #category : #'accessing - token' }

src/WebDriver/WDLocationStrategy.class.st

@@ -4,7 +4,7 @@ I provide location strategy values used in messages like `WebDriver>>findElement
 Class {
 	#name : #WDLocationStrategy,
 	#superclass : #Object,
-	#category : #WebDriver
+	#category : #'WebDriver-Constants'
 }
 
 { #category : #'as yet unclassified' }

src/WebDriver/WebDriver.class.st

@@ -36,7 +36,8 @@ Class {
 		'browser',
 		'server',
 		'port',
-		'sessionId'
+		'sessionId',
+		'prefs'
 	],
 	#category : #WebDriver
 }
@@ -53,6 +54,11 @@ WebDriver class >> geckodriver [
 		port: 4444.
 ]
 
+{ #category : #accessing }
+WebDriver >> atPref: prefKey put: prefVal [
+	prefs at: prefKey put: prefVal.
+]
+
 { #category : #accessing }
 WebDriver >> attribute: attr from: element [
 

src/WebDriver/WebDriverGeckodriver.class.st

@@ -16,6 +16,11 @@ WebDriverGeckodriver >> constructCapabilities: caps [
 		   asDictionary) } asDictionary.
 ]
 
+{ #category : #initialization }
+WebDriverGeckodriver >> initialize [
+	prefs := Dictionary new.
+]
+
 { #category : #navigation }
 WebDriverGeckodriver >> send: dict to: url using: method [
 	|result|