global num_images images
if {![info exists num_images]} {set num_images 0}

set Name [unique2 $Composite.f1]
set Parent $Name
#------------------------------------------
frame $Name -borderwidth 2 -height 50 -relief raised -width 50
place $Name -x 0 -relx 0 -y 0 -rely 0 -width 264 -relwidth 0 -height 168 -relheight 0 -anchor nw

set Name $Parent.tixNoteBook
#------------------------------------------
tixNoteBook $Name 
$Name add page1
$Name pageconfig page1 -anchor "center"
$Name pageconfig page1 -label "Hard Disk"
$Name add page2
$Name pageconfig page2 -anchor "center"
$Name pageconfig page2 -label "Network"
pack $Name -anchor center -expand 1 -fill both -ipadx 0 -ipady 0 -padx 4 -pady 4 -side top
