misc: Work on categories for the various classes.

LogArea.st

@@ -17,6 +17,8 @@
 "
 
 Osmo.LogArea subclass: LogAreaOsmoCore [
+    <category: 'OsmoBinding'>
+
     LogAreaOsmoCore class >> areaName [ ^ #osmocore ]
     LogAreaOsmoCore class >> areaDescription [ ^ 'OSMOCore bindings' ]
     LogAreaOsmoCore class >> default [

OsmoCore.st

@@ -26,7 +26,7 @@ Eval [
 
 Object subclass: OSMOCore [
     <comment: 'I provide lowlevel access libosmocore.so.0'>
-    <category: 'libosmocore'>
+    <category: 'OsmoBinding'>
 
     Process := nil.
 

OsmoVTY.st

@@ -17,7 +17,7 @@
 "
 
 CStruct subclass: Vty_app_info [
-    <category: 'libosmovty'>
+    <category: 'OsmoBinding'>
     <comment: 'I represent the vty_app_info... some structs are wrong'>
     <declaration: #(
         #(#name #string)
@@ -29,7 +29,7 @@ CStruct subclass: Vty_app_info [
 ]
 
 CStruct subclass: Vty_vector [
-    <category: 'libosmovty'>
+    <category: 'OsmoBinding'>
     <comment: 'I am the struct _vector class'>
     "the index is wrong but we do not need to access it"
     <declaration: #(
@@ -39,7 +39,7 @@ CStruct subclass: Vty_vector [
 ]
 
 CStruct subclass: Vty_cmd_element [
-    <category: 'libosmovty'>
+    <category: 'OsmoBinding'>
     <comment: 'I represent the lowlevel command'>
     <declaration: #(
         #(#name #string)
@@ -54,8 +54,8 @@ CStruct subclass: Vty_cmd_element [
 ]
 
 CStruct subclass: Vty_cmd_node [
+    <category: 'OsmoBinding'>
     <comment: 'I provide access to a cmd_node'>
-    <category: 'libosmovty'>
 
     <declaration: #(
         #(#node #int)
@@ -102,8 +102,8 @@ Object subclass: NodeType [
 ]
 
 Object subclass: OSMOVTY [
+    <category: 'OsmoBinding'>
     <comment: 'I provide access to the VTY code'>
-    <category: 'libosmovty'>
 
     OSMOVTY class >> initialize [
         DLD addLibrary: 'libosmovty.so.0'
@@ -171,8 +171,8 @@ Object subclass: OSMOVTY [
 ]
 
 Object subclass: VTYCommand [
-    <comment: 'I represent a vty command'>
-    <category: 'libosmovty-st'>
+    <category: 'OsmoBinding'>
+    <comment: 'I represent a vty command with a callback'>
 
     | command callback handler |
 
@@ -193,6 +193,7 @@ Object subclass: VTYCommand [
 
     handleCommand: aCmd vty: aVty argc: aArgc argv: aArgv [
         | str strings |
+        <category: 'private'>
 
         str := aArgv castTo: CStringType.
         strings := OrderedCollection new.