nx::Class create EdgeGraphPrinted -superclass EdgeList_Graph {
        :public method dot_print {} {

            if {${directed}} {
                append collections "digraph {\n"

                if {{$weighed}} {
                    foreach edge ${:edges} {
                        append collections "\t"
                        append collections "[string trim [$edge cget -a] "::nsf::__#"] -> [string trim [$edge cget -b] "::nsf::__#"]"
                        append collections "\t"
                        append collections "\n"
                    }
                } else {
                    foreach edge ${:edges} {
                        append collections "\t"
                        append collections "[string trim [$edge cget -a] "::nsf::__#"] -> [string trim [$edge cget -b] "::nsf::__#"]"
                        append collections "\t"
                        append collections "\n"
                    }
                }

            } else {
                append collections "graph {\n"

                if {{$weighed}} {
                    foreach edge ${:edges} {
                        append collections "\t"
                        append collections "[string trim [$edge cget -a] "::nsf::__#"] -- [string trim [$edge cget -b] "::nsf::__#"]"
                        append collections "\t"
                        append collections "\n"
                    }
                } else {
                    foreach edge ${:edges} {
                        append collections "\t"
                        append collections "[string trim [$edge cget -a] "::nsf::__#"] -- [string trim [$edge cget -b] "::nsf::__#"]"
                        append collections "\t"
                        append collections "\n"
                    }
                }
            }

            append collections "\}"
            puts $collections
            return $collections
        }
    }