From 9b741a904dd548117b379ec10c4f01838836ebd9 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Wed, 27 Apr 2022 16:04:26 +0200
Subject: [PATCH] Tagging and Categorization

---
 src/WebDriver/WDKeys.class.st               | 2 +-
 src/WebDriver/WDLocationStrategy.class.st   | 2 +-
 src/WebDriver/WebDriver.class.st            | 8 +++++++-
 src/WebDriver/WebDriverGeckodriver.class.st | 5 +++++
 4 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/src/WebDriver/WDKeys.class.st b/src/WebDriver/WDKeys.class.st
index 1aab8f8..aa01cb9 100644
--- a/src/WebDriver/WDKeys.class.st
+++ b/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' }
diff --git a/src/WebDriver/WDLocationStrategy.class.st b/src/WebDriver/WDLocationStrategy.class.st
index a72436b..6b3f1a1 100644
--- a/src/WebDriver/WDLocationStrategy.class.st
+++ b/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' }
diff --git a/src/WebDriver/WebDriver.class.st b/src/WebDriver/WebDriver.class.st
index 3563a9c..ed5980a 100644
--- a/src/WebDriver/WebDriver.class.st
+++ b/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 [
 
diff --git a/src/WebDriver/WebDriverGeckodriver.class.st b/src/WebDriver/WebDriverGeckodriver.class.st
index 2699d8e..3cc04d5 100644
--- a/src/WebDriver/WebDriverGeckodriver.class.st
+++ b/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|