[Tcladdressbook-commits] Help TclAB_QuickStart.aida,1.8,1.9

[Bernard D. <bde...@us...>]

Update of /cvsroot/tcladdressbook/Help
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31377/Help

Modified Files:
	TclAB_QuickStart.aida 
Log Message:
Doc and examples for the [identifier index] command

Index: TclAB_QuickStart.aida
===================================================================
RCS file: /cvsroot/tcladdressbook/Help/TclAB_QuickStart.aida,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- TclAB_QuickStart.aida	30 Jul 2004 13:07:28 -0000	1.8
+++ TclAB_QuickStart.aida	30 Jul 2004 21:30:01 -0000	1.9
@@ -6,7 +6,7 @@
 :Author:		Bernard Desgraupes <bde...@ea...>
 :Homepage:		<http://webperso.easyconnect.fr/bdesgraupes/>
 :Created: 		2003-12-14 18:26:47
-:Modified:	 	2004-07-30 14:43:09
+:Modified:	 	2004-07-30 23:25:47
 :Keywords:		Address book, data base
 
 
@@ -384,34 +384,35 @@
     set groupid [lindex [addressbook groups -ids] 0]
     set theid [lindex [addressbook persons -ids -ingroup $groupid] 0]
 |))
-
 ((nl Count the identifiers of the Phone property:
 ((|
     addressbook identifier count $theid Phone
 |))
-
 ((nl Get some identifiers (suppose here that there are at least two of them):
 ((|
     set ident1 [addressbook identifier get $theid Phone 0]
     set ident2 [addressbook identifier get $theid Phone 1]
 |))
-
 ((nl Get the primary identifier (the one which is chosen by default if 
 none has been specified otherwise):
 ((|
     addressbook identifier primary $theid Phone
 |))
-
 ((nl Get the current distribution identifier:
 ((|
     addressbook identifier set $groupid $theid Phone
 |))
-
 ((nl Set the distribution identifier to ((i ident2 i)):
 ((|
     addressbook identifier set $groupid $theid Phone $ident2
 |))
-
+((nl The reverse operation of the ((b addressbook identifier get b)) command 
+is the ((b addressbook identifier index b)) command which returns the 
+index corresponding to a given identifier. For instance, the following 
+instruction will return the index 1:
+((|
+    addressbook identifier index $theid Phone $ident2
+|))
 
 
 ((a ukl)) a))