#gscope_rroo.tcl

proc rroo {class {objName ""} {id ""} args} {
JeMeSignale
    global rroo
    #rR Cette proc permet de creer des objets d'une classe donnée. C'est en fait un superconstructeur qui permet d'utiliser tout de suite l'objet créé
    #rR pour faciliter l'ecriture en ligne de commande on peut mettre . au lieu de ""
    if {$objName=="."} { set objName "" }
    if {$id     =="."} { set id      "" }
    
    #regsub -all " " $id "_" id        ;#rR 2017/08/06

    #on peut forcer le objName et/ou le id
    if { $objName=="" } {
	if { [info exists rroo($id)]} {
	    set objName $rroo($id)
	} else {
	    set objName [$class new $id]
	}
	set rroo($id) $objName
    }
    Espionne "=$objName=$id="
    if { ! [info object isa object $objName]} { $class create $objName $id}
    if { ! [info exists args] || $args=={}} { return $objName }
    return [$objName {*}$args]
}