VTY: Use capital for the class name as this appears to work better

1 files changed, 10 insertions, 10 deletions

diff --git a/OsmoVTY.st b/OsmoVTY.st
index b7beb15..5a5b970 100644
--- a/OsmoVTY.st
+++ b/OsmoVTY.st
@@ -1,6 +1,6 @@
 "Copyright placeholder"
 
-CStruct subclass: vty_app_info [
+CStruct subclass: Vty_app_info [
     <category: 'libosmovty'>
     <comment: 'I represent the vty_app_info... some structs are wrong'>
     <declaration: #(
@@ -12,7 +12,7 @@ CStruct subclass: vty_app_info [
         #(#is_config_node #(#ptr #int))) >
 ]
 
-CStruct subclass: vty_vector [
+CStruct subclass: Vty_vector [
     <category: 'libosmovty'>
     <comment: 'I am the struct _vector class'>
     "the index is wrong but we do not need to access it"
@@ -22,7 +22,7 @@ CStruct subclass: vty_vector [
         #(#index #(#ptr #int))) >
 ]
 
-CStruct subclass: vty_cmd_element [
+CStruct subclass: Vty_cmd_element [
     <category: 'libosmovty'>
     <comment: 'I represent the lowlevel command'>
     <declaration: #(
@@ -30,14 +30,14 @@ CStruct subclass: vty_cmd_element [
         #(#func #(#ptr #int))
         #(#doc #string)
         #(#daemon #int)
-        #(#strvec #(#ptr #{vty_vector}))
+        #(#strvec #(#ptr #{Vty_vector}))
         #(#cmdsize #uInt)
         #(#config #string)
-        #(#subconfig #(#ptr #{vty_vector}))
+        #(#subconfig #(#ptr #{Vty_vector}))
         #(#attr #uChar))>
 ]
 
-CStruct subclass: vty_cmd_node [
+CStruct subclass: Vty_cmd_node [
     <comment: 'I provide access to a cmd_node'>
     <category: 'libosmovty'>
 
@@ -46,7 +46,7 @@ CStruct subclass: vty_cmd_node [
         #(#prompt #string)
         #(#vtysh #int)
         #(#func #(#ptr #int))
-        #(#cmd_vector #(#ptr #{vty_vector}))) >
+        #(#cmd_vector #(#ptr #{Vty_vector}))) >
 ]
 
 Object subclass: NodeType [
@@ -114,17 +114,17 @@ Object subclass: OSMOVTY [
     ]
 
     OSMOVTY class >> install_element: aNode cmd: aCmd [
-        <cCall: 'install_element' returning: #void args: #(#int #{vty_cmd_element}) >
+        <cCall: 'install_element' returning: #void args: #(#int #{Vty_cmd_element}) >
     ]
 
     OSMOVTY class >> install_element_ve: aCmd [
-        <cCall: 'install_element_ve' returning: #void args: #(#{vty_cmd_element}) >
+        <cCall: 'install_element_ve' returning: #void args: #(#{Vty_cmd_element}) >
     ]
 
     OSMOVTY class >> initWith: aName version: aVersion license: aLicense port: aPort [
         | app_info |
 
-        app_info := vty_app_info new.
+        app_info := Vty_app_info new.
         app_info name value: aName.
         app_info version value: aVersion.
         app_info copyright value: aLicense.