From d9431d73c1b484c4132aa4018db5c1cf32378937 Mon Sep 17 00:00:00 2001
From: Silas Vedder <singingfox123@protonmail.com>
Date: Sat, 20 Aug 2022 00:16:15 +0200
Subject: [PATCH] Added Classes

---
 .../BaselineOfBemblin.class.st                | 11 ++++++
 src/BaselineOfBemblin/package.st              |  1 +
 src/Bemblin/BemblinDict.class.st              | 35 +++++++++++++++++++
 src/Bemblin/package.st                        |  1 +
 4 files changed, 48 insertions(+)
 create mode 100644 src/BaselineOfBemblin/BaselineOfBemblin.class.st
 create mode 100644 src/BaselineOfBemblin/package.st
 create mode 100644 src/Bemblin/BemblinDict.class.st
 create mode 100644 src/Bemblin/package.st

diff --git a/src/BaselineOfBemblin/BaselineOfBemblin.class.st b/src/BaselineOfBemblin/BaselineOfBemblin.class.st
new file mode 100644
index 0000000..32ff6ae
--- /dev/null
+++ b/src/BaselineOfBemblin/BaselineOfBemblin.class.st
@@ -0,0 +1,11 @@
+Class {
+	#name : #BaselineOfBemblin,
+	#superclass : #BaselineOf,
+	#category : #BaselineOfBemblin
+}
+
+{ #category : #accessing }
+BaselineOfBemblin >> baseline: spec [
+	<baseline>
+	spec for: #common do: [ spec package: 'Bemblin' ]
+]
diff --git a/src/BaselineOfBemblin/package.st b/src/BaselineOfBemblin/package.st
new file mode 100644
index 0000000..16d8161
--- /dev/null
+++ b/src/BaselineOfBemblin/package.st
@@ -0,0 +1 @@
+Package { #name : #BaselineOfBemblin }
diff --git a/src/Bemblin/BemblinDict.class.st b/src/Bemblin/BemblinDict.class.st
new file mode 100644
index 0000000..c155196
--- /dev/null
+++ b/src/Bemblin/BemblinDict.class.st
@@ -0,0 +1,35 @@
+Class {
+	#name : #BemblinDict,
+	#superclass : #Object,
+	#instVars : [
+		'host',
+		'port',
+		'word'
+	],
+	#category : #Bemblin
+}
+
+{ #category : #accessing }
+BemblinDict >> getWord: aString [
+	| json |
+	json := ZnClient new
+			get: 'https://' , host , ':' , port asString , '/Word/' , aString.
+	word := STON fromString: json
+]
+
+{ #category : #accessing }
+BemblinDict >> viewWord: aView [
+	<gtView>
+	^ aView columnedList
+		title: 'Word';
+		priority: 1;
+		items: [ {word} ];
+		column: 'Word' text: [:w | w at: 'word' ];
+		column: 'Translation' text: [:w | w at: 'translation' ].
+]
+
+{ #category : #accessing }
+BemblinDict >> withHost: aString andPort: anInteger [
+	host := aString.
+	port := anInteger
+]
diff --git a/src/Bemblin/package.st b/src/Bemblin/package.st
new file mode 100644
index 0000000..e98abd4
--- /dev/null
+++ b/src/Bemblin/package.st
@@ -0,0 +1 @@
+Package { #name : #Bemblin }