From 026611eb99d5b7c56b3fadf5e86063f368f7f507 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Tue, 27 Sep 2011 16:35:44 +0200
Subject: [PATCH] misc: Work on categories for the various classes.

---
 LogArea.st  |  2 ++
 OsmoCore.st |  2 +-
 OsmoVTY.st  | 15 ++++++++-------
 3 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/LogArea.st b/LogArea.st
index 8a69089..0c13da0 100644
--- a/LogArea.st
+++ b/LogArea.st
@@ -17,6 +17,8 @@
 "
 
 Osmo.LogArea subclass: LogAreaOsmoCore [
+    <category: 'OsmoBinding'>
+
     LogAreaOsmoCore class >> areaName [ ^ #osmocore ]
     LogAreaOsmoCore class >> areaDescription [ ^ 'OSMOCore bindings' ]
     LogAreaOsmoCore class >> default [
diff --git a/OsmoCore.st b/OsmoCore.st
index d768350..37634c8 100644
--- a/OsmoCore.st
+++ b/OsmoCore.st
@@ -26,7 +26,7 @@ Eval [
 
 Object subclass: OSMOCore [
     <comment: 'I provide lowlevel access libosmocore.so.0'>
-    <category: 'libosmocore'>
+    <category: 'OsmoBinding'>
 
     Process := nil.
 
diff --git a/OsmoVTY.st b/OsmoVTY.st
index a3fa2b1..d62848a 100644
--- a/OsmoVTY.st
+++ b/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.