OsmoVTY: Add a initWith method to start the VTY...

The VTY code will be leaked..

1 files changed, 13 insertions, 12 deletions

diff --git a/OsmoVTY.st b/OsmoVTY.st
index 0a9e3e1..c2eb7da 100644
--- a/OsmoVTY.st
+++ b/OsmoVTY.st
@@ -1,6 +1,7 @@
 "Copyright placeholder"
 
 CStruct subclass: vty_app_info [
+    <category: 'libosmovty'>
     <comment: 'I represent the vty_app_info... some structs are wrong'>
     <declaration: #(
         (#name #string)
@@ -30,20 +31,20 @@ Object subclass: OSMOVTY [
     OSMOVTY class >> telnet_init: tall_context priv: priv port: aPort [
         <cCall: 'telnet_init' returning: #int args: #(#cObject #cObject #int) >
     ]
-]
 
-Eval [
-    | app_info |
+    OSMOVTY class >> initWith: aName version: aVersion license: aLicense port: aPort [
+        | app_info |
 
-    OSMOVTY initialize.
+        app_info := vty_app_info new.
+        app_info name value: aName.
+        app_info version value: aVersion.
+        app_info copyright value: aLicense.
 
-    app_info := vty_app_info gcNew.
-    app_info name value: 'Smalltalk VTY', Character cr, Character lf.
-    app_info version value: '1.0.0', Character cr, Character lf.
-    app_info copyright value: 'GPL bla', Character cr, Character lf.
-    app_info inspect.
+        OSMOVTY vty_init: app_info.
+        OSMOVTY telnet_init: nil priv: nil port: 4444.
+    ]
+]
 
-    OSMOVTY vty_init: app_info.
-    OSMOVTY vty_read_config_file: 'foo.cfg' priv: app_info.
-    OSMOVTY telnet_init: nil priv: nil port: 4444.
+Eval [
+    OSMOVTY initialize.
 ]