+ toplevel $w
+
+ wm title $w "About target"
+ place-force $w .
+ top-down-window $w
+
+ set i [z39 targetImplementationName]
+ label $w.top.in -text "Implementation name: $i"
+ set i [z39 targetImplementationId]
+ label $w.top.ii -text "Implementation id: $i"
+ set i [z39 targetImplementationVersion]
+ label $w.top.iv -text "Implementation version: $i"
+
+ pack $w.top.in $w.top.ii $w.top.iv -side top -anchor nw
+
+ bottom-buttons $w [list {Close} [list destroy $w]] 1
+}
+
+proc about-origin {} {
+ set w .about-origin-w
+
+ toplevel $w
+
+ wm title $w "About IrTcl"
+ place-force $w .
+ top-down-window $w
+
+ set i [z39 implementationName]
+ label $w.top.in -text "Implementation name: $i"
+ set i [z39 implementationId]
+ label $w.top.ii -text "Implementation id: $i"
+
+ pack $w.top.in $w.top.ii -side top -anchor nw
+
+ bottom-buttons $w [list {Close} [list destroy $w]] 1
+}