#############################################################################
# Generated by PAGE version 7.6g
#  in conjunction with Tcl version 8.6
#  Nov 04, 2022 09:03:43 AM PDT  platform: Linux
set vTcl(timestamp) ""
if {![info exists vTcl(borrow)]} {
    ::vTcl::MessageBox -title Error -message  "You must open project files from within PAGE."
    exit}


set image_list { 
    check_nu_png "./images/check-nu.png" 
    check_nc_png "./images/check-nc.png" 
    switchoff75_png "./images/switchoff75.png" 
    switchon75_png "./images/switchon75.png" 
    radio_nu_png "./images/radio-nu.png" 
    radio_nc_png "./images/radio-nc.png" 
    radio_unchecked_png "./images/radio-unchecked.png" 
    radio_checked_png "./images/radio-checked.png" 
    rbdotunselected20_png "./images/RbDotUnselected20.png" 
    rbdotselected20_png "./images/RbDotSelected20.png" 
}
vTcl:create_project_images $image_list   ;# In image.tcl

if {!$vTcl(borrow) && !$vTcl(template)} {

set vTcl(actual_gui_font_dft_desc)  TkDefaultFont
set vTcl(actual_gui_font_dft_name)  TkDefaultFont
set vTcl(actual_gui_font_text_desc)  TkTextFont
set vTcl(actual_gui_font_text_name)  TkTextFont
set vTcl(actual_gui_font_fixed_desc)  TkFixedFont
set vTcl(actual_gui_font_fixed_name)  TkFixedFont
set vTcl(actual_gui_font_menu_desc)  TkMenuFont
set vTcl(actual_gui_font_menu_name)  TkMenuFont
set vTcl(actual_gui_font_tooltip_desc)  TkDefaultFont
set vTcl(actual_gui_font_tooltip_name)  TkDefaultFont
set vTcl(actual_gui_font_treeview_desc)  TkDefaultFont
set vTcl(actual_gui_font_treeview_name)  TkDefaultFont
########################################### 
set vTcl(actual_gui_bg) #d9d9d9
set vTcl(actual_gui_fg) #000000
set vTcl(actual_gui_analog) #f4bcb2
set vTcl(actual_gui_menu_analog) #ececec
set vTcl(actual_gui_menu_bg) #d9d9d9
set vTcl(actual_gui_menu_fg) #000000
set vTcl(complement_color) gray40
set vTcl(analog_color_p) #c3c3c3
set vTcl(analog_color_m) beige
set vTcl(tabfg1) black
set vTcl(tabfg2) black
set vTcl(actual_gui_menu_active_bg)  #ececec
set vTcl(actual_gui_menu_active_fg)  #000000
########################################### 
set vTcl(pr,autoalias) 1
set vTcl(pr,relative_placement) 0
set vTcl(mode) Absolute
}




proc vTclWindow.top1 {base} {
    global vTcl
    if {$base == ""} {
        set base .top1
    }
    if {[winfo exists $base]} {
        wm deiconify $base; return
    }
    set top $base
    set target $base
    ###################
    # CREATING WIDGETS
    ###################
    vTcl::widgets::core::toplevel::createCmd $top -class Toplevel \
        -menu "$top.m63" -background gray42 -highlightbackground wheat \
        -highlightcolor black 
    wm focusmodel $top passive
    wm geometry $top 1353x700+33+47
    update
    # set in toplevel.wgt.
    global vTcl
    global img_list
    set vTcl(save,dflt,origin) 0
    wm maxsize $top 2545 1410
    wm minsize $top 120 1
    wm overrideredirect $top 0
    wm resizable $top 1 1
    wm deiconify $top
    set toptitle "PAGE 7.5 Widget Demo"
    wm title $top $toptitle
    namespace eval ::widgets::${top}::ClassOption {}
    set ::widgets::${top}::ClassOption(-toptitle) $toptitle
    vTcl:DefineAlias "$top" "Main" vTcl:Toplevel:WidgetProc "" 1
    set vTcl(real_top) {}
    button "$top.but47" \
        -activebackground orange -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -command on_btnExit -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text Exit 
    vTcl:DefineAlias "$top.but47" "btnExit" vTcl:WidgetProc "Main" 1
    ttk::style configure TNotebook -background $vTcl(actual_gui_bg)
    ttk::style configure TNotebook.Tab -background $vTcl(actual_gui_bg)
    ttk::style configure TNotebook.Tab -foreground $vTcl(actual_gui_fg)
    ttk::style configure TNotebook.Tab -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style map TNotebook.Tab -background [list selected $vTcl(actual_gui_bg) active $vTcl(tabbg1) !active $vTcl(tabbg2)]
    ttk::style map TNotebook.Tab -foreground [list selected $vTcl(actual_gui_fg) active $vTcl(tabfg1) !active $vTcl(tabfg2)]
    ttk::notebook "$top.tNo48" \
        -width 1357 -height 578 -takefocus {} 
    vTcl:DefineAlias "$top.tNo48" "TNotebook1" vTcl:WidgetProc "Main" 1
    frame "$top.tNo48.t0" \
        -background $vTcl(actual_gui_bg) -highlightbackground wheat \
        -highlightcolor black 
    vTcl:DefineAlias "$top.tNo48.t0" "TNotebook1_t1" vTcl:WidgetProc "Main" 1
    $top.tNo48 add $top.tNo48.t0 \
        -padding 0 -sticky nsew -state normal -text {Standard Tk Widgets} \
        -image {} -compound left -underline -1 
    set site_4_0  $top.tNo48.t0
    labelframe "$site_4_0.lab49" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Checkbutton Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab49" "Labelframe1" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab49
    label "$site_5_0.lab57" \
        -activebackground #f9f9f9 -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -relief groove -text Label \
        -textvariable CheckDisplay 
    vTcl:DefineAlias "$site_5_0.lab57" "Label1" vTcl:WidgetProc "Main" 1
    checkbutton "$site_5_0.che50" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_CheckClick(1)} -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -text {Standard Checkbutton} -variable che50 
    vTcl:DefineAlias "$site_5_0.che50" "Checkbutton1" vTcl:WidgetProc "Main" 1
    checkbutton "$site_5_0.che51" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -borderwidth 0 \
        -command {lambda : on_CheckClick(2)} -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -highlightthickness 0 -image check_nu_png \
        -indicatoron 0 -justify left -offrelief flat -selectcolor #d9d9d9 \
        -selectimage check_nc_png -text {Custom Checkbutton} -variable che51 
    vTcl:DefineAlias "$site_5_0.che51" "Checkbutton2" vTcl:WidgetProc "Main" 1
    checkbutton "$site_5_0.che52" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_CheckClick(3)} -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -image switchoff75_png -indicatoron 0 \
        -justify left -offrelief flat -selectcolor #d9d9d9 \
        -selectimage switchon75_png -text Check -variable che52 
    vTcl:DefineAlias "$site_5_0.che52" "Checkbutton3" vTcl:WidgetProc "Main" 1
    checkbutton "$site_5_0.che53" \
        -activebackground #f5f5dc -activeforeground #000000 -background red \
        -command {lambda : on_CheckClick(4)} -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -indicatoron 0 -justify left -selectcolor green \
        -text {Sticky Button} -variable che53 
    vTcl:DefineAlias "$site_5_0.che53" "Checkbutton4" vTcl:WidgetProc "Main" 1
    checkbutton "$site_5_0.che54" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_CheckClick(5)} -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -state disabled -text {Disabled Checkbutton} -variable che54 
    vTcl:DefineAlias "$site_5_0.che54" "Checkbutton5" vTcl:WidgetProc "Main" 1
    place $site_5_0.lab57 \
        -in $site_5_0 -x 4 -y 237 -width 328 -relwidth 0 -height 34 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.che50 \
        -in $site_5_0 -x 17 -y 30 -width 227 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.che51 \
        -in $site_5_0 -x 23 -y 60 -width 207 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.che52 \
        -in $site_5_0 -x 30 -y 90 -width 77 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.che53 \
        -in $site_5_0 -x 20 -y 133 -width 187 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.che54 \
        -in $site_5_0 -x 17 -y 182 -width 217 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab50" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Radiobutton Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab50" "Labelframe2" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab50
    label "$site_5_0.lab58" \
        -activebackground #f9f9f9 -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -relief groove -text Label \
        -textvariable RadioDisplay 
    vTcl:DefineAlias "$site_5_0.lab58" "Label2" vTcl:WidgetProc "Main" 1
    radiobutton "$site_5_0.rad55" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_RadioClick(1)} -compound left -cursor fleur \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -text {Standard Radiobutton} -value 1 -variable selectedButton 
    vTcl:DefineAlias "$site_5_0.rad55" "Radiobutton1" vTcl:WidgetProc "Main" 1
    radiobutton "$site_5_0.rad56" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_RadioClick(2)} -compound left -cursor fleur \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -highlightthickness 0 -image radio_nu_png \
        -indicatoron 0 -justify left -offrelief flat -selectcolor #d9d9d9 \
        -selectimage radio_nc_png -text {Custom Radiobutton 1} -value 2 \
        -variable selectedButton 
    vTcl:DefineAlias "$site_5_0.rad56" "Radiobutton2" vTcl:WidgetProc "Main" 1
    radiobutton "$site_5_0.rad57" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_RadioClick(3)} -compound left -cursor fleur \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -highlightthickness 0 \
        -image radio_unchecked_png -indicatoron 0 -justify left \
        -offrelief flat -selectcolor #d9d9d9 -selectimage radio_checked_png \
        -text {Custom Radiobutton 2} -value 3 -variable selectedButton 
    vTcl:DefineAlias "$site_5_0.rad57" "Radiobutton3" vTcl:WidgetProc "Main" 1
    radiobutton "$site_5_0.rad58" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_RadioClick(4)} -compound left -cursor fleur \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -highlightthickness 0 \
        -image rbdotunselected20_png -indicatoron 0 -justify left \
        -offrelief flat -selectcolor #d9d9d9 -selectimage rbdotselected20_png \
        -text {Custom Radiobutton 3} -value 4 -variable selectedButton 
    vTcl:DefineAlias "$site_5_0.rad58" "Radiobutton4" vTcl:WidgetProc "Main" 1
    radiobutton "$site_5_0.rad59" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) \
        -command {lambda : on_RadioClick(5)} -compound left -cursor fleur \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -state disabled -text {Disabled Radiobutton} -value 5 \
        -variable selectedButton 
    vTcl:DefineAlias "$site_5_0.rad59" "Radiobutton5" vTcl:WidgetProc "Main" 1
    place $site_5_0.lab58 \
        -in $site_5_0 -x 4 -y 237 -width 328 -height 34 -anchor nw \
        -bordermode ignore 
    place $site_5_0.rad55 \
        -in $site_5_0 -x 20 -y 30 -width 248 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.rad56 \
        -in $site_5_0 -x 26 -y 59 -width 248 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.rad57 \
        -in $site_5_0 -x 21 -y 100 -width 248 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.rad58 \
        -in $site_5_0 -x 22 -y 136 -width 248 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.rad59 \
        -in $site_5_0 -x 20 -y 177 -width 248 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab51" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Entry Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab51" "Labelframe3" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab51
    label "$site_5_0.lab59" \
        -activebackground #f9f9f9 -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -relief groove -text Label \
        -textvariable EntryDisplay 
    vTcl:DefineAlias "$site_5_0.lab59" "Label3" vTcl:WidgetProc "Main" 1
    entry "$site_5_0.ent60" \
        -background white -disabledforeground #b8a786 -font TkFixedFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -insertbackground black \
        -selectbackground #c4c4c4 -selectforeground black \
        -textvariable EntryData -width 296 
    vTcl:DefineAlias "$site_5_0.ent60" "Entry1" vTcl:WidgetProc "Main" 1
    bind $site_5_0.ent60 <Button-3> {
        lambda e: popup1(e)
    }
    label "$site_5_0.lab48" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black \
        -text {Type something into the Entry Widget above and press <Return> OR Mouse Button-3 to see Context Menu.} \
        -wraplength 190 
    vTcl:DefineAlias "$site_5_0.lab48" "Label6" vTcl:WidgetProc "Main" 1
    place $site_5_0.lab59 \
        -in $site_5_0 -x 4 -y 237 -width 328 -relwidth 0 -height 34 \
        -anchor nw -bordermode ignore 
    place $site_5_0.ent60 \
        -in $site_5_0 -x 10 -y 30 -width 296 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab48 \
        -in $site_5_0 -x 64 -y 96 -width 208 -relwidth 0 -height 81 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab52" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Listbox Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab52" "Labelframe4" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab52
    label "$site_5_0.lab60" \
        -activebackground #f9f9f9 -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -relief groove -text Label \
        -textvariable ListDisplay 
    vTcl:DefineAlias "$site_5_0.lab60" "Label4" vTcl:WidgetProc "Main" 1
    listbox "$site_5_0.lis61" \
        -background white -disabledforeground #b8a786 -font TkFixedFont \
        -foreground $vTcl(actual_gui_fg) -height 126 \
        -highlightbackground wheat -highlightcolor black \
        -selectbackground #c4c4c4 -selectforeground black -width 144 
    $site_5_0.lis61 configure -font "TkFixedFont"
    $site_5_0.lis61 insert end text
    vTcl:DefineAlias "$site_5_0.lis61" "Listbox1" vTcl:WidgetProc "Main" 1
    labelframe "$site_5_0.lab49" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Active Style} \
        -background $vTcl(actual_gui_bg) -height 105 \
        -highlightbackground wheat -highlightcolor black -width 130 
    vTcl:DefineAlias "$site_5_0.lab49" "Labelframe9" vTcl:WidgetProc "Main" 1
    set site_6_0 $site_5_0.lab49
    radiobutton "$site_6_0.rad50" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBActiveStyle \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text Dotbox \
        -value 1 -variable selectedButton3 
    vTcl:DefineAlias "$site_6_0.rad50" "Radiobutton9" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad51" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBActiveStyle \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -text Underline -value 2 -variable selectedButton3 
    vTcl:DefineAlias "$site_6_0.rad51" "Radiobutton10" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad52" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBActiveStyle \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text None \
        -value 3 -variable selectedButton3 
    vTcl:DefineAlias "$site_6_0.rad52" "Radiobutton11" vTcl:WidgetProc "Main" 1
    place $site_6_0.rad50 \
        -in $site_6_0 -x 3 -y 19 -width 88 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad51 \
        -in $site_6_0 -x 3 -y 42 -width 106 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad52 \
        -in $site_6_0 -x 3 -y 66 -width 98 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_5_0.lab53" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text SelectMode \
        -background $vTcl(actual_gui_bg) -height 105 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_5_0.lab53" "Labelframe10" vTcl:WidgetProc "Main" 1
    set site_6_0 $site_5_0.lab53
    radiobutton "$site_6_0.rad54" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBSelectMode \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text Single \
        -value 1 -variable selectedButton4 
    vTcl:DefineAlias "$site_6_0.rad54" "Radiobutton12" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad55" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBSelectMode \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text Browse \
        -value 2 -variable selectedButton4 
    vTcl:DefineAlias "$site_6_0.rad55" "Radiobutton13" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad56" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBSelectMode \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -text Multiple -value 3 -variable selectedButton4 
    vTcl:DefineAlias "$site_6_0.rad56" "Radiobutton14" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad57" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_LBSelectMode \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 \
        -text Extended -value 4 -variable selectedButton4 
    vTcl:DefineAlias "$site_6_0.rad57" "Radiobutton15" vTcl:WidgetProc "Main" 1
    place $site_6_0.rad54 \
        -in $site_6_0 -x 3 -y 20 -width 103 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad55 \
        -in $site_6_0 -x 3 -y 40 -width 103 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad56 \
        -in $site_6_0 -x 3 -y 60 -width 103 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad57 \
        -in $site_6_0 -x 3 -y 82 -width 103 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab60 \
        -in $site_5_0 -x 4 -y 237 -width 328 -height 34 -anchor nw \
        -bordermode ignore 
    place $site_5_0.lis61 \
        -in $site_5_0 -x 20 -y 30 -width 144 -relwidth 0 -height 126 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab49 \
        -in $site_5_0 -x 176 -y 20 -width 130 -relwidth 0 -height 95 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab53 \
        -in $site_5_0 -x 176 -y 116 -width 150 -relwidth 0 -height 115 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab53" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Scales & Spinbox Widgets} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab53" "Labelframe5" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab53
    label "$site_5_0.lab61" \
        -activebackground #f9f9f9 -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -relief groove -text Label \
        -textvariable SpinDisplay 
    vTcl:DefineAlias "$site_5_0.lab61" "Label5" vTcl:WidgetProc "Main" 1
    scale "$site_5_0.sca62" \
        -activebackground $vTcl(analog_color_m) \
        -background $vTcl(actual_gui_bg) -bigincrement 0.0 -command on_VScale \
        -font TkDefaultFont -foreground $vTcl(actual_gui_fg) -from 0.0 \
        -highlightbackground wheat -highlightcolor black -length 174 \
        -resolution 1.0 -tickinterval 0.0 -to 10.0 -troughcolor #d9d9d9 \
        -variable VScaleData 
    vTcl:DefineAlias "$site_5_0.sca62" "Scale1" vTcl:WidgetProc "Main" 1
    scale "$site_5_0.sca63" \
        -activebackground $vTcl(analog_color_m) \
        -background $vTcl(actual_gui_bg) -bigincrement 0.0 -command on_HScale \
        -font TkDefaultFont -foreground $vTcl(actual_gui_fg) -from 0.0 \
        -highlightbackground wheat -highlightcolor black -length 224 \
        -orient horizontal -resolution 1.0 -tickinterval 0.0 -to 10.0 \
        -troughcolor #d9d9d9 -variable HScaleData 
    vTcl:DefineAlias "$site_5_0.sca63" "Scale2" vTcl:WidgetProc "Main" 1
    spinbox "$site_5_0.spi64" \
        -activebackground #f9f9f9 -background white -buttonbackground wheat \
        -command on_Spin -disabledforeground #b8a786 -font TkDefaultFont \
        -foreground black -from 0.0 -highlightbackground black \
        -highlightcolor black -increment 1.0 -insertbackground black \
        -selectbackground #c4c4c4 -selectforeground black \
        -textvariable SpinData -to 10.0 
    vTcl:DefineAlias "$site_5_0.spi64" "Spinbox1" vTcl:WidgetProc "Main" 1
    button "$site_5_0.but50" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -command on_ScaleAnimate \
        -compound left -disabledforeground #b8a786 -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text Button \
        -textvariable btnAnimateText 
    vTcl:DefineAlias "$site_5_0.but50" "Button1" vTcl:WidgetProc "Main" 1
    place $site_5_0.lab61 \
        -in $site_5_0 -x 4 -y 237 -width 328 -height 34 -anchor nw \
        -bordermode ignore 
    place $site_5_0.sca62 \
        -in $site_5_0 -x 10 -y 30 -width 49 -relwidth 0 -height 174 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.sca63 \
        -in $site_5_0 -x 80 -y 40 -width 224 -relwidth 0 -height 42 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.spi64 \
        -in $site_5_0 -x 120 -y 110 -width 118 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.but50 \
        -in $site_5_0 -x 110 -y 160 -width 123 -relwidth 0 -height 53 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab54" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Message Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab54" "Labelframe6" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab54
    frame "$site_5_0.fra62" \
        -borderwidth 2 -relief groove -background $vTcl(actual_gui_bg) \
        -height 75 -highlightbackground wheat -highlightcolor black \
        -width 125 
    vTcl:DefineAlias "$site_5_0.fra62" "Frame1" vTcl:WidgetProc "Main" 1
    set site_6_0 $site_5_0.fra62
    radiobutton "$site_6_0.rad65" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_MsgJustify \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text Left \
        -value 1 -variable selectedButton2 
    vTcl:DefineAlias "$site_6_0.rad65" "Radiobutton6" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad66" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_MsgJustify \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text Center \
        -value 2 -variable selectedButton2 
    vTcl:DefineAlias "$site_6_0.rad66" "Radiobutton7" vTcl:WidgetProc "Main" 1
    radiobutton "$site_6_0.rad67" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -anchor w -background $vTcl(actual_gui_bg) -command on_MsgJustify \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -justify left -selectcolor #d9d9d9 -text Right \
        -value 3 -variable selectedButton2 
    vTcl:DefineAlias "$site_6_0.rad67" "Radiobutton8" vTcl:WidgetProc "Main" 1
    place $site_6_0.rad65 \
        -in $site_6_0 -x 21 -y 7 -width 78 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad66 \
        -in $site_6_0 -x 120 -y 7 -width 88 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_6_0.rad67 \
        -in $site_6_0 -x 229 -y 7 -width 78 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    message "$site_5_0.mes49" \
        -background $vTcl(actual_gui_bg) -borderwidth 2 -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -padx 0 -pady 1 -relief groove -text Message \
        -textvariable MessageData -width 312 
    vTcl:DefineAlias "$site_5_0.mes49" "Message1" vTcl:WidgetProc "Main" 1
    place $site_5_0.fra62 \
        -in $site_5_0 -x 4 -y 237 -width 328 -relwidth 0 -height 34 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.mes49 \
        -in $site_5_0 -x 10 -y 20 -width 312 -relwidth 0 -height 201 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab55" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Canvas Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab55" "Labelframe7" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab55
    canvas "$site_5_0.can47" \
        -background $vTcl(actual_gui_bg) -borderwidth 2 -closeenough 1.0 \
        -height 241 -highlightbackground wheat -highlightcolor black \
        -insertbackground black -relief ridge -selectbackground #c4c4c4 \
        -selectforeground black -width 329 
    vTcl:DefineAlias "$site_5_0.can47" "Canvas1" vTcl:WidgetProc "Main" 1
    place $site_5_0.can47 \
        -in $site_5_0 -x 2 -y 20 -width 329 -relwidth 0 -height 248 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_0.lab56" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Text Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_0.lab56" "Labelframe8" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_0.lab56
    text "$site_5_0.tex48" \
        -background white -font TkTextFont -foreground black -height 244 \
        -highlightbackground wheat -highlightcolor black \
        -insertbackground black -selectbackground #c4c4c4 \
        -selectforeground black -width 316 -wrap word 
    $site_5_0.tex48 configure -font "TkTextFont"
    $site_5_0.tex48 insert end text
    vTcl:DefineAlias "$site_5_0.tex48" "Text1" vTcl:WidgetProc "Main" 1
    place $site_5_0.tex48 \
        -in $site_5_0 -x 20 -y 30 -width 316 -relwidth 0 -height 244 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab49 \
        -in $site_4_0 -x 2 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab50 \
        -in $site_4_0 -x 338 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab51 \
        -in $site_4_0 -x 674 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab52 \
        -in $site_4_0 -x 1010 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab53 \
        -in $site_4_0 -x 2 -y 277 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab54 \
        -in $site_4_0 -x 338 -y 277 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab55 \
        -in $site_4_0 -x 674 -y 277 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_0.lab56 \
        -in $site_4_0 -x 1010 -y 277 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    frame "$top.tNo48.t1" \
        -background $vTcl(actual_gui_bg) -highlightbackground wheat \
        -highlightcolor black 
    vTcl:DefineAlias "$top.tNo48.t1" "TNotebook1_t2" vTcl:WidgetProc "Main" 1
    $top.tNo48 add $top.tNo48.t1 \
        -padding 0 -sticky nsew -state normal -text {ttk Themed Widgets} \
        -image {} -compound left -underline -1 
    set site_4_1  $top.tNo48.t1
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa51" \
        -text TCheckbutton -width 150 -height 75 
    vTcl:DefineAlias "$site_4_1.tLa51" "TLabelframe1" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa51
    ttk::style configure TCheckbutton -background $vTcl(actual_gui_bg)
    ttk::style configure TCheckbutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TCheckbutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::checkbutton "$site_5_0.tCh47" \
        -variable tch47 -command on_TCheck -takefocus {} \
        -text {Tcheck Option 1} -compound left 
    vTcl:DefineAlias "$site_5_0.tCh47" "TCheckbutton1" vTcl:WidgetProc "Main" 1
    ttk::style configure TCheckbutton -background $vTcl(actual_gui_bg)
    ttk::style configure TCheckbutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TCheckbutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::checkbutton "$site_5_0.tCh48" \
        -variable tch48 -command on_TCheck -takefocus {} \
        -text {Tcheck Option 2} -compound left 
    vTcl:DefineAlias "$site_5_0.tCh48" "TCheckbutton2" vTcl:WidgetProc "Main" 1
    ttk::style configure TCheckbutton -background $vTcl(actual_gui_bg)
    ttk::style configure TCheckbutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TCheckbutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::checkbutton "$site_5_0.tCh49" \
        -variable tch49 -takefocus {} -text {Tcheck Disabled} -compound left \
        -state disabled 
    vTcl:DefineAlias "$site_5_0.tCh49" "TCheckbutton3" vTcl:WidgetProc "Main" 1
    ttk::label "$site_5_0.tLa50" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -borderwidth 2 -relief groove -anchor center -justify left \
        -textvariable ::TCheckDisplay -compound left 
    vTcl:DefineAlias "$site_5_0.tLa50" "TLabel1" vTcl:WidgetProc "Main" 1
    place $site_5_0.tCh47 \
        -in $site_5_0 -x 20 -y 30 -width 174 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tCh48 \
        -in $site_5_0 -x 20 -y 70 -width 144 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tCh49 \
        -in $site_5_0 -x 20 -y 110 -width 154 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tLa50 \
        -in $site_5_0 -x 7 -y 236 -width 322 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa52" \
        -text TRadiobutton -width 150 -height 75 
    vTcl:DefineAlias "$site_4_1.tLa52" "TLabelframe2" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa52
    ttk::label "$site_5_0.tLa51" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -borderwidth 2 -relief groove -anchor center -justify left \
        -textvariable ::TRadioDisplay -compound left 
    vTcl:DefineAlias "$site_5_0.tLa51" "TLabel2" vTcl:WidgetProc "Main" 1
    ttk::style configure TRadiobutton -background $vTcl(actual_gui_bg)
    ttk::style configure TRadiobutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TRadiobutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::radiobutton "$site_5_0.tRa47" \
        -variable TselectedButton -command on_TRadio -text {TRadio Option 1} \
        -compound left 
    vTcl:DefineAlias "$site_5_0.tRa47" "TRadiobutton1" vTcl:WidgetProc "Main" 1
    ttk::style configure TRadiobutton -background $vTcl(actual_gui_bg)
    ttk::style configure TRadiobutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TRadiobutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::radiobutton "$site_5_0.tRa48" \
        -variable TselectedButton -value 2 -command on_TRadio \
        -text {TRadio Option 2} -compound left 
    vTcl:DefineAlias "$site_5_0.tRa48" "TRadiobutton2" vTcl:WidgetProc "Main" 1
    ttk::style configure TRadiobutton -background $vTcl(actual_gui_bg)
    ttk::style configure TRadiobutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TRadiobutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::radiobutton "$site_5_0.tRa49" \
        -variable TselectedButton -value 3 -text {TRadio Disabled} \
        -compound left -state disabled 
    vTcl:DefineAlias "$site_5_0.tRa49" "TRadiobutton3" vTcl:WidgetProc "Main" 1
    place $site_5_0.tLa51 \
        -in $site_5_0 -x 7 -y 236 -width 322 -height 33 -anchor nw \
        -bordermode ignore 
    place $site_5_0.tRa47 \
        -in $site_5_0 -x 20 -y 30 -anchor nw -bordermode ignore 
    place $site_5_0.tRa48 \
        -in $site_5_0 -x 20 -y 70 -anchor nw -bordermode ignore 
    place $site_5_0.tRa49 \
        -in $site_5_0 -x 20 -y 110 -anchor nw -bordermode ignore 
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa53" \
        -text {TEntry Widget} -width 150 -height 75 
    vTcl:DefineAlias "$site_4_1.tLa53" "TLabelframe3" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa53
    ttk::label "$site_5_0.tLa52" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -borderwidth 2 -relief groove -anchor center -justify left \
        -textvariable ::TEntryDisplay -compound left 
    vTcl:DefineAlias "$site_5_0.tLa52" "TLabel3" vTcl:WidgetProc "Main" 1
    ttk::entry "$site_5_0.tEn50" \
        -font TkTextFont -textvariable TEntryData -foreground {} \
        -background {} -takefocus {} -cursor xterm 
    vTcl:DefineAlias "$site_5_0.tEn50" "TEntry1" vTcl:WidgetProc "Main" 1
    bind $site_5_0.tEn50 <Button-3> {
        lambda e: popup1(e)
    }
    ttk::label "$site_5_0.tLa56" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left -wraplength 245 \
        -text {Type something into the Entry Widget above and press <Return> OR Mouse Button-3 to see Context Menu.} \
        -compound left 
    vTcl:DefineAlias "$site_5_0.tLa56" "TLabel6" vTcl:WidgetProc "Main" 1
    place $site_5_0.tLa52 \
        -in $site_5_0 -x 7 -y 234 -width 322 -height 33 -anchor nw \
        -bordermode ignore 
    place $site_5_0.tEn50 \
        -in $site_5_0 -x 20 -y 30 -width 294 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tLa56 \
        -in $site_5_0 -x 40 -y 80 -anchor nw -bordermode ignore 
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa54" \
        -text TCombobox -width 150 -height 75 
    vTcl:DefineAlias "$site_4_1.tLa54" "TLabelframe4" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa54
    ttk::label "$site_5_0.tLa53" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -borderwidth 2 -relief groove -anchor center -justify left \
        -textvariable ::TComboDisplay -compound left 
    vTcl:DefineAlias "$site_5_0.tLa53" "TLabel4" vTcl:WidgetProc "Main" 1
    ttk::combobox "$site_5_0.tCo51" \
        -font TkTextFont -textvariable combobox -foreground {} -background {} \
        -takefocus {} 
    vTcl:DefineAlias "$site_5_0.tCo51" "TCombobox1" vTcl:WidgetProc "Main" 1
    ttk::style configure TCheckbutton -background $vTcl(actual_gui_bg)
    ttk::style configure TCheckbutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TCheckbutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::checkbutton "$site_5_0.tCh57" \
        -variable tch57 -command on_FixLabelBackgrounds -takefocus {} \
        -text {Fix Label Backgrounds} -compound left 
    vTcl:DefineAlias "$site_5_0.tCh57" "TCheckbutton4" vTcl:WidgetProc "Main" 1
    ttk::style configure TCheckbutton -background $vTcl(actual_gui_bg)
    ttk::style configure TCheckbutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TCheckbutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::checkbutton "$site_5_0.tCh58" \
        -variable tch58 -command on_TChkForceBorders -takefocus {} \
        -text {Force TLabelframe borders on} -compound left 
    vTcl:DefineAlias "$site_5_0.tCh58" "TCheckbutton5" vTcl:WidgetProc "Main" 1
    ttk::label "$site_5_0.tLa59" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left -wraplength 220 \
        -text {See the README for information on these options} \
        -compound left 
    vTcl:DefineAlias "$site_5_0.tLa59" "TLabel7" vTcl:WidgetProc "Main" 1
    ttk::label "$site_5_0.tLa60" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left \
        -text {Select Style/Theme to use:} -compound left 
    vTcl:DefineAlias "$site_5_0.tLa60" "TLabel8" vTcl:WidgetProc "Main" 1
    place $site_5_0.tLa53 \
        -in $site_5_0 -x 7 -y 236 -width 322 -height 33 -anchor nw \
        -bordermode ignore 
    place $site_5_0.tCo51 \
        -in $site_5_0 -x 60 -y 56 -width 177 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tCh57 \
        -in $site_5_0 -x 50 -y 98 -width 224 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tCh58 \
        -in $site_5_0 -x 50 -y 136 -width 213 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tLa59 \
        -in $site_5_0 -x 60 -y 170 -width 220 -relwidth 0 -height 36 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tLa60 \
        -in $site_5_0 -x 50 -y 30 -width 204 -relwidth 0 -height 19 \
        -relheight 0 -anchor nw -bordermode ignore 
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa55" \
        -text {TScales & TSpinbox} -width 150 -height 75 
    vTcl:DefineAlias "$site_4_1.tLa55" "TLabelframe5" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa55
    ttk::label "$site_5_0.tLa54" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -borderwidth 2 -relief groove -anchor center -justify left \
        -textvariable ::TSpinDisplay -compound left 
    vTcl:DefineAlias "$site_5_0.tLa54" "TLabel5" vTcl:WidgetProc "Main" 1
    ttk::scale "$site_5_0.tSc52" \
        -command on_TVScale -variable TVScaleData -orient vertical -to 10.0 \
        -length 150 -takefocus {} 
    vTcl:DefineAlias "$site_5_0.tSc52" "TScale1" vTcl:WidgetProc "Main" 1
    ttk::scale "$site_5_0.tSc53" \
        -command on_THScale -variable THScaleData -to 10.0 -length 170 \
        -takefocus {} 
    vTcl:DefineAlias "$site_5_0.tSc53" "TScale2" vTcl:WidgetProc "Main" 1
    ttk::spinbox "$site_5_0.tSp54" \
        -to 10 -command on_TSpin -wrap 1 -exportselection 0 -font TkTextFont \
        -textvariable TSpinData -foreground {} -background white \
        -takefocus {} 
    vTcl:DefineAlias "$site_5_0.tSp54" "TSpinbox1" vTcl:WidgetProc "Main" 1
    ttk::style configure TButton -background $vTcl(actual_gui_bg)
    ttk::style configure TButton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TButton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::button "$site_5_0.tBu55" \
        -command on_TSpinAnimate -takefocus {} \
        -textvariable ::TBtnScaleAnimateText -compound left 
    vTcl:DefineAlias "$site_5_0.tBu55" "TButton1" vTcl:WidgetProc "Main" 1
    place $site_5_0.tLa54 \
        -in $site_5_0 -x 7 -y 236 -width 322 -height 33 -anchor nw \
        -bordermode ignore 
    place $site_5_0.tSc52 \
        -in $site_5_0 -x 30 -y 40 -width 17 -relwidth 0 -height 150 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tSc53 \
        -in $site_5_0 -x 90 -y 30 -width 170 -relwidth 0 -height 17 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tSp54 \
        -in $site_5_0 -x 90 -y 79 -width 145 -relwidth 0 -height 20 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tBu55 \
        -in $site_5_0 -x 90 -y 130 -width 193 -relwidth 0 -height 68 \
        -relheight 0 -anchor nw -bordermode ignore 
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa56" \
        -text TProgressbar -width 150 -height 75 
    vTcl:DefineAlias "$site_4_1.tLa56" "TLabelframe6" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa56
    ttk::progressbar "$site_5_0.tPr57" \
        -length 190 
    vTcl:DefineAlias "$site_5_0.tPr57" "TProgressbar1" vTcl:WidgetProc "Main" 1
    ttk::style configure TCheckbutton -background $vTcl(actual_gui_bg)
    ttk::style configure TCheckbutton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TCheckbutton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::checkbutton "$site_5_0.tCh61" \
        -variable tch61 -command on_TProgCheck -takefocus {} \
        -text {Indeterminate Mode} -compound left 
    vTcl:DefineAlias "$site_5_0.tCh61" "TCheckbutton6" vTcl:WidgetProc "Main" 1
    ttk::style configure TButton -background $vTcl(actual_gui_bg)
    ttk::style configure TButton -foreground $vTcl(actual_gui_fg)
    ttk::style configure TButton -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::button "$site_5_0.tBu62" \
        -command on_TProgAnimate -takefocus {} -textvariable ::TBtnProgText \
        -compound left 
    vTcl:DefineAlias "$site_5_0.tBu62" "TBtnProgAnimate" vTcl:WidgetProc "Main" 1
    place $site_5_0.tPr57 \
        -in $site_5_0 -x 70 -y 30 -width 190 -relwidth 0 -height 19 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.tCh61 \
        -in $site_5_0 -x 70 -y 80 -anchor nw -bordermode ignore 
    place $site_5_0.tBu62 \
        -in $site_5_0 -x 70 -y 130 -width 193 -relwidth 0 -height 68 \
        -relheight 0 -anchor nw -bordermode ignore 
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_4_1.tLa58" \
        -text TPanedWindows -width 660 -height 265 
    vTcl:DefineAlias "$site_4_1.tLa58" "TLabelframe7" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_1.tLa58
    ttk::style configure TPanedwindow -background $vTcl(actual_gui_bg)
    ttk::style configure TPanedwindow.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TPanedwindow.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TPanedwindow.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::panedwindow "$site_5_0.tPa59" \
        -orient horizontal 
    vTcl:DefineAlias "$site_5_0.tPa59" "TPanedwindow1" vTcl:WidgetProc "Main" 1
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_5_0.tPa59.p1" \
        -text {Pane 1} -width 165 -height 200 
    vTcl:DefineAlias "$site_5_0.tPa59.p1" "TPanedwindow1_p1" vTcl:WidgetProc "Main" 1
    set site_7_0 $site_5_0.tPa59.p1
    ttk::label "$site_7_0.tLa63" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left -text {Pane 1 - Panel 1} \
        -compound left 
    vTcl:DefineAlias "$site_7_0.tLa63" "TLabel9" vTcl:WidgetProc "Main" 1
    place $site_7_0.tLa63 \
        -in $site_7_0 -x 10 -y 80 -width 142 -relwidth 0 -height 19 \
        -relheight 0 -anchor nw -bordermode ignore 
    $site_5_0.tPa59 add $site_5_0.tPa59.p1 
    $site_5_0.tPa59 pane $site_5_0.tPa59.p1 -weight 0
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_5_0.tPa59.p2" \
        -text {Pane 2} -width 125 -height 200 
    vTcl:DefineAlias "$site_5_0.tPa59.p2" "TPanedwindow1_p2" vTcl:WidgetProc "Main" 1
    set site_7_1 $site_5_0.tPa59.p2
    ttk::style configure TPanedwindow -background $vTcl(actual_gui_bg)
    ttk::style configure TPanedwindow.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TPanedwindow.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TPanedwindow.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::panedwindow "$site_7_1.tPa60"
    vTcl:DefineAlias "$site_7_1.tPa60" "TPanedwindow2" vTcl:WidgetProc "Main" 1
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_7_1.tPa60.p1" \
        -text {Pane 1} -width 200 -height 75 
    vTcl:DefineAlias "$site_7_1.tPa60.p1" "TPanedwindow2_p1" vTcl:WidgetProc "Main" 1
    set site_9_0 $site_7_1.tPa60.p1
    ttk::label "$site_9_0.tLa65" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left -text {Pane 1 - Panel 2} \
        -compound left 
    vTcl:DefineAlias "$site_9_0.tLa65" "TLabel11" vTcl:WidgetProc "Main" 1
    place $site_9_0.tLa65 \
        -in $site_9_0 -x 130 -y 30 -anchor nw -bordermode ignore 
    $site_7_1.tPa60 add $site_7_1.tPa60.p1 
    $site_7_1.tPa60 pane $site_7_1.tPa60.p1 -weight 0
    ttk::style configure TLabelframe.Label -background $vTcl(actual_gui_bg)
    ttk::style configure TLabelframe.Label -foreground $vTcl(actual_gui_fg)
    ttk::style configure TLabelframe.Label -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style configure TLabelframe -background $vTcl(actual_gui_bg)
    ttk::labelframe "$site_7_1.tPa60.p2" \
        -text {Pane 2} -width 200 -height 125 
    vTcl:DefineAlias "$site_7_1.tPa60.p2" "TPanedwindow2_p2" vTcl:WidgetProc "Main" 1
    set site_9_1 $site_7_1.tPa60.p2
    ttk::label "$site_9_1.tLa66" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left -text {Pane 2 - Panel 2} \
        -compound left 
    vTcl:DefineAlias "$site_9_1.tLa66" "TLabel12" vTcl:WidgetProc "Main" 1
    place $site_9_1.tLa66 \
        -in $site_9_1 -x 130 -y 50 -anchor nw -bordermode ignore 
    $site_7_1.tPa60 add $site_7_1.tPa60.p2 
    $site_7_1.tPa60 pane $site_7_1.tPa60.p2 -weight 0
$site_9_0 configure -height 75
    ttk::label "$site_7_1.tLa64" \
        -background $vTcl(actual_gui_bg) -foreground $vTcl(actual_gui_fg) \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -relief flat -anchor w -justify left -text {Pane 2 - Panel 1} \
        -compound left 
    vTcl:DefineAlias "$site_7_1.tLa64" "TLabel10" vTcl:WidgetProc "Main" 1
    place $site_7_1.tPa60 \
        -in $site_7_1 -x 10 -y 40 -width 470 -relwidth 0 -height 185 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_7_1.tLa64 \
        -in $site_7_1 -x 140 -y 20 -width 132 -relwidth 0 -height 19 \
        -relheight 0 -anchor nw -bordermode ignore 
    $site_5_0.tPa59 add $site_5_0.tPa59.p2 
    $site_5_0.tPa59 pane $site_5_0.tPa59.p2 -weight 0
$site_7_0 configure -width 165
    place $site_5_0.tPa59 \
        -in $site_5_0 -x 10 -y 20 -width 655 -relwidth 0 -height 240 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa51 \
        -in $site_4_1 -x 2 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa52 \
        -in $site_4_1 -x 338 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa53 \
        -in $site_4_1 -x 674 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa54 \
        -in $site_4_1 -x 1010 -y 4 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa55 \
        -in $site_4_1 -x 2 -y 277 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa56 \
        -in $site_4_1 -x 338 -y 277 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_1.tLa58 \
        -in $site_4_1 -x 674 -y 277 -width 674 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    frame "$top.tNo48.t2" \
        -background $vTcl(actual_gui_bg) -highlightbackground wheat \
        -highlightcolor black 
    vTcl:DefineAlias "$top.tNo48.t2" "TNotebook1_t3" vTcl:WidgetProc "Main" 1
    $top.tNo48 add $top.tNo48.t2 \
        -padding 0 -sticky nsew -state normal -text {Enhanced Widgets} \
        -image {} -compound left -underline -1 
    set site_4_2  $top.tNo48.t2
    labelframe "$site_4_2.lab67" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {ScrolledEntry Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab67" "Labelframe11" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab67
    vTcl::widgets::ttk::scrolledentry::CreateCmd "$site_5_0.scr69" \
        -background wheat -height 75 -highlightbackground wheat \
        -highlightcolor black -width 125 
    vTcl:DefineAlias "$site_5_0.scr69" "Scrolledentry1" vTcl:WidgetProc "Main" 1

    $site_5_0.scr69.01 configure -background white \
        -disabledforeground #b8a786 \
        -exportselection 0 \
        -foreground black \
        -highlightcolor black \
        -insertbackground black \
        -insertborderwidth 1 \
        -selectbackground #c4c4c4 \
        -selectforeground black \
        -textvariable ScrolledTextData \
        -width 15
    place $site_5_0.scr69 \
        -in $site_5_0 -x 20 -y 30 -width 296 -relwidth 0 -height 35 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab68" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {ScrolledListbox Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab68" "Labelframe12" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab68
    vTcl::widgets::ttk::scrolledlistbox::CreateCmd "$site_5_0.scr70" \
        -background wheat -height 75 -highlightbackground wheat \
        -highlightcolor black -width 125 
    vTcl:DefineAlias "$site_5_0.scr70" "Scrolledlistbox1" vTcl:WidgetProc "Main" 1

    $site_5_0.scr70.01 configure -background white \
        -cursor xterm \
        -disabledforeground #b8a786 \
        -exportselection 0 \
        -font TkFixedFont \
        -foreground black \
        -height 3 \
        -highlightbackground wheat \
        -highlightcolor #d9d9d9 \
        -selectbackground #c4c4c4 \
        -selectforeground black \
        -width 10
    label "$site_5_0.lab71" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -relief groove -text Label \
        -textvariable ListDisplay2 
    vTcl:DefineAlias "$site_5_0.lab71" "Label7" vTcl:WidgetProc "Main" 1
    place $site_5_0.scr70 \
        -in $site_5_0 -x 20 -y 30 -width 246 -relwidth 0 -height 178 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab71 \
        -in $site_5_0 -x 8 -y 239 -width 319 -relwidth 0 -height 31 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab72" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {ScrolledSpinbox Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab72" "Labelframe13" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab72
    vTcl::widgets::ttk::scrolledspinbox::CreateCmd "$site_5_0.scr73" \
        -background wheat -height 75 -highlightbackground wheat \
        -highlightcolor black -width 125 
    vTcl:DefineAlias "$site_5_0.scr73" "Scrolledspinbox1" vTcl:WidgetProc "Main" 1

    $site_5_0.scr73.01 configure -activebackground #f9f9f9 \
        -background white \
        -disabledforeground #b8a786 \
        -foreground black \
        -from 1.0 \
        -highlightcolor black \
        -insertbackground black \
        -insertborderwidth 1 \
        -selectbackground #c4c4c4 \
        -selectforeground black \
        -to 100.0 \
        -width 15
    place $site_5_0.scr73 \
        -in $site_5_0 -x 40 -y 30 -width 208 -relwidth 0 -height 35 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab74" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {ScrolledText Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab74" "Labelframe14" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab74
    vTcl::widgets::ttk::scrolledtext::CreateCmd "$site_5_0.scr77" \
        -borderwidth 2 -relief groove -background wheat -height 75 \
        -highlightbackground wheat -highlightcolor black -width 125 
    vTcl:DefineAlias "$site_5_0.scr77" "Scrolledtext1" vTcl:WidgetProc "Main" 1

    $site_5_0.scr77.01 configure -background white \
        -exportselection 0 \
        -font TkTextFont \
        -foreground black \
        -height 3 \
        -highlightcolor black \
        -insertbackground black \
        -insertborderwidth 3 \
        -selectbackground #c4c4c4 \
        -selectforeground black \
        -width 10 \
        -wrap word
    place $site_5_0.scr77 \
        -in $site_5_0 -x 10 -y 30 -width 322 -relwidth 0 -height 231 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab75" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {ScrolledTreeview Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab75" "Labelframe15" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab75
    ttk::style configure Treeview \
         -font  "$vTcl(actual_gui_font_treeview_desc)"
    vTcl::widgets::ttk::scrolledtreeview::CreateCmd "$site_5_0.scr76" \
        -background wheat -height 15 -highlightbackground wheat \
        -highlightcolor black -width 30 
    vTcl:DefineAlias "$site_5_0.scr76" "Scrolledtreeview1" vTcl:WidgetProc "Main" 1

        $base.tNo48.t2.lab75.scr76.01 configure -columns Col1 -height 4
        $base.tNo48.t2.lab75.scr76.01 configure -columns {Col1}
        $base.tNo48.t2.lab75.scr76.01 heading #0 -text {Tree}
        $base.tNo48.t2.lab75.scr76.01 heading #0 -anchor center
        $base.tNo48.t2.lab75.scr76.01 column #0 -width 113
        $base.tNo48.t2.lab75.scr76.01 column #0 -minwidth 20
        $base.tNo48.t2.lab75.scr76.01 column #0 -stretch 1
        $base.tNo48.t2.lab75.scr76.01 column #0 -anchor w
        $base.tNo48.t2.lab75.scr76.01 heading Col1 -text {Col1}
        $base.tNo48.t2.lab75.scr76.01 heading Col1 -anchor center
        $base.tNo48.t2.lab75.scr76.01 column Col1 -width 113
        $base.tNo48.t2.lab75.scr76.01 column Col1 -minwidth 20
        $base.tNo48.t2.lab75.scr76.01 column Col1 -stretch 1
        $base.tNo48.t2.lab75.scr76.01 column Col1 -anchor w
    place $site_5_0.scr76 \
        -in $site_5_0 -x 20 -y 40 -width 240 -relwidth 0 -height 101 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab78" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {ScrolledWindow Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab78" "Labelframe16" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab78
    vTcl::widgets::ttk::scrolledwindow::CreateCmd "$site_5_0.scr79" \
        -borderwidth 2 -relief groove -background wheat -height 100 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_5_0.scr79" "Scrolledwindow1" vTcl:WidgetProc "Main" 1

    $site_5_0.scr79.01 configure -background white \
        -borderwidth 2 \
        -height 75 \
        -highlightbackground wheat \
        -highlightcolor black \
        -insertbackground black \
        -relief groove \
        -selectbackground #c4c4c4 \
        -selectforeground black \
        -width 125
    label "$site_5_0.lab80" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text Label -textvariable IconName \
        -wraplength 165 
    vTcl:DefineAlias "$site_5_0.lab80" "Label8" vTcl:WidgetProc "Main" 1
    place $site_5_0.scr79 \
        -in $site_5_0 -x 10 -y 20 -width 147 -relwidth 0 -height 245 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab80 \
        -in $site_5_0 -x 190 -y 100 -width 129 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab81" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Custom Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab81" "Labelframe17" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab81
    vTcl::widgets::ttk::custom::CreateCmd "$site_5_0.cus83" \
        -background wheat -height 75 -highlightbackground wheat \
        -highlightcolor black -width 125 
    vTcl:DefineAlias "$site_5_0.cus83" "Custom1" vTcl:WidgetProc "Main" 1
    message "$site_5_0.mes84" \
        -background $vTcl(actual_gui_bg) -borderwidth 2 -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -padx 1 -pady 1 -relief groove -text Message \
        -textvariable CustomWidgetData -width 322 
    vTcl:DefineAlias "$site_5_0.mes84" "Message2" vTcl:WidgetProc "Main" 1
    button "$site_5_0.but85" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -command on_btnGetChecks \
        -compound left -disabledforeground #b8a786 -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text {Get Checks} 
    vTcl:DefineAlias "$site_5_0.but85" "Button2" vTcl:WidgetProc "Main" 1
    button "$site_5_0.but86" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -command on_btnClearChecks \
        -compound left -disabledforeground #b8a786 -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text {Clear Checks} 
    vTcl:DefineAlias "$site_5_0.but86" "Button3" vTcl:WidgetProc "Main" 1
    place $site_5_0.cus83 \
        -in $site_5_0 -x 10 -y 80 -width 156 -relwidth 0 -height 177 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.mes84 \
        -in $site_5_0 -x 8 -y 20 -width 322 -relwidth 0 -height 51 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.but85 \
        -in $site_5_0 -x 200 -y 110 -width 113 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.but86 \
        -in $site_5_0 -x 200 -y 160 -width 113 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_2.lab82" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {PNotebook Widget} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_2.lab82" "Labelframe18" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_2.lab82
    ttk::style configure PC.TNotebook -background $vTcl(actual_gui_bg)
    ttk::style configure PC.TNotebook.Tab -background $vTcl(actual_gui_bg)
    ttk::style configure PC.TNotebook.Tab -foreground $vTcl(actual_gui_fg)
    ttk::style configure PC.TNotebook.Tab -font "$vTcl(actual_gui_font_dft_desc)"
    ttk::style map PC.TNotebook.Tab -background [list selected $vTcl(actual_gui_bg) active $vTcl(tabbg1) !active $vTcl(tabbg2)]
    ttk::style map PC.TNotebook.Tab -foreground [list selected $vTcl(actual_gui_fg) active $vTcl(tabfg1) !active $vTcl(tabfg2)]
    ttk::style layout PC.TNotebook.Tab {
                    Notebook.tab -children {
                        Notebook.padding -side top -children {
                           t Notebook.focus -side top -children {
                                Notebook.text -side right
                                Notebook.image -side left
                            }
                        }

                    }
               }
    vTcl::widgets::ttk::pnotebook::createCmd "$site_5_0.pNo87" \
        -width 300 -height 200 -style "PC.TNotebook" -style PC.TNotebook 
    vTcl:DefineAlias "$site_5_0.pNo87" "PNotebook1" vTcl:WidgetProc "Main" 1
    $site_5_0.pNo87 configure -style "PC.TNotebook"
    bind $site_5_0.pNo87 <Button-1> {
        _button_press
    }
    bind $site_5_0.pNo87 <ButtonRelease-1> {
        _button_release
    }
    bind $site_5_0.pNo87 <Motion> {
        _mouse_over
    }
    frame "$site_5_0.pNo87.t0" \
        -background $vTcl(actual_gui_bg) -highlightbackground wheat \
        -highlightcolor black 
    vTcl:DefineAlias "$site_5_0.pNo87.t0" "PNotebook1_t1" vTcl:WidgetProc "Main" 1
    $site_5_0.pNo87 add $site_5_0.pNo87.t0 \
        -padding 0 -sticky nsew -state normal -text {Page 1} -image image6 \
        -compound left -underline -1 
    set site_7_0  $site_5_0.pNo87.t0
    label "$site_7_0.lab88" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text {This is the PNotebook Widget} 
    vTcl:DefineAlias "$site_7_0.lab88" "Label9" vTcl:WidgetProc "Main" 1
    place $site_7_0.lab88 \
        -in $site_7_0 -x 20 -y 70 -width 249 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    frame "$site_5_0.pNo87.t1" \
        -background $vTcl(actual_gui_bg) -highlightbackground wheat \
        -highlightcolor black 
    vTcl:DefineAlias "$site_5_0.pNo87.t1" "PNotebook1_t2" vTcl:WidgetProc "Main" 1
    $site_5_0.pNo87 add $site_5_0.pNo87.t1 \
        -padding 0 -sticky nsew -state normal -text {Page 2} -image image6 \
        -compound left -underline -1 
    set site_7_1  $site_5_0.pNo87.t1
    label "$site_7_1.lab89" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text {There's Nothing To See Here!} 
    vTcl:DefineAlias "$site_7_1.lab89" "Label10" vTcl:WidgetProc "Main" 1
    place $site_7_1.lab89 \
        -in $site_7_1 -x 40 -y 70 -width 236 -relwidth 0 -height 31 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.pNo87 \
        -in $site_5_0 -x 10 -y 30 -anchor nw -bordermode ignore 
    place $site_4_2.lab67 \
        -in $site_4_2 -x 2 -y 3 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab68 \
        -in $site_4_2 -x 338 -y 3 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab72 \
        -in $site_4_2 -x 674 -y 3 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab74 \
        -in $site_4_2 -x 1010 -y 3 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab75 \
        -in $site_4_2 -x 2 -y 276 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab78 \
        -in $site_4_2 -x 338 -y 276 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab81 \
        -in $site_4_2 -x 674 -y 276 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_2.lab82 \
        -in $site_4_2 -x 1010 -y 276 -width 336 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    frame "$top.tNo48.t3" \
        -background $vTcl(actual_gui_bg) -highlightbackground wheat \
        -highlightcolor black 
    vTcl:DefineAlias "$top.tNo48.t3" "TNotebook1_t4" vTcl:WidgetProc "Main" 1
    $top.tNo48 add $top.tNo48.t3 \
        -padding 0 -sticky nsew -state normal \
        -text {Special Twists on Normal Widgets} -image {} -compound left \
        -underline -1 
    set site_4_3  $top.tNo48.t3
    labelframe "$site_4_3.lab90" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Linked Labels} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_3.lab90" "Labelframe19" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_3.lab90
    label "$site_5_0.lab94" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 1 -overstrike 0} \
        -foreground blue -highlightbackground wheat -highlightcolor black \
        -text {Full Circle Magazine} 
    vTcl:DefineAlias "$site_5_0.lab94" "Label11" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab95" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 1 -overstrike 0} \
        -foreground Blue -highlightbackground wheat -highlightcolor black \
        -text {PAGE Download Site on SourceForge} 
    vTcl:DefineAlias "$site_5_0.lab95" "Label12" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab96" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 1 -overstrike 0} \
        -foreground blue -highlightbackground wheat -highlightcolor black \
        -text {TheDesignatedGeek Web Page} 
    vTcl:DefineAlias "$site_5_0.lab96" "Label13" vTcl:WidgetProc "Main" 1
    place $site_5_0.lab94 \
        -in $site_5_0 -x 30 -y 50 -width 259 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab95 \
        -in $site_5_0 -x 30 -y 100 -width 289 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab96 \
        -in $site_5_0 -x 30 -y 150 -width 257 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_3.lab91" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Vertical Labels} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_3.lab91" "Labelframe20" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_3.lab91
    label "$site_5_0.lab97" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 12 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -padx 5 -relief groove -text Vertical \
        -wraplength 1 
    vTcl:DefineAlias "$site_5_0.lab97" "Label14" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab98" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 12 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black \
        -text {Simply set the wrap length attribute to 1.  The problem is that you can't have spaces.} \
        -wraplength 160 
    vTcl:DefineAlias "$site_5_0.lab98" "Label15" vTcl:WidgetProc "Main" 1
    place $site_5_0.lab97 \
        -in $site_5_0 -x 20 -y 40 -width 39 -relwidth 0 -height 201 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab98 \
        -in $site_5_0 -x 100 -y 70 -width 158 -relwidth 0 -height 118 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_3.lab92" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Flashing Button} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_3.lab92" "Labelframe21" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_3.lab92
    button "$site_5_0.but99" \
        -activebackground $vTcl(analog_color_m) -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -command on_FlashButton \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text {Make The Button Flash} 
    vTcl:DefineAlias "$site_5_0.but99" "Button4" vTcl:WidgetProc "Main" 1
    button "$site_5_0.but100" \
        -activebackground Red -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text {Flashing Button} 
    vTcl:DefineAlias "$site_5_0.but100" "Button5" vTcl:WidgetProc "Main" 1
    spinbox "$site_5_0.spi101" \
        -activebackground #f9f9f9 -background white -buttonbackground wheat \
        -command on_FlashButtonCount -disabledforeground #b8a786 \
        -font TkDefaultFont -foreground black -from 1.0 \
        -highlightbackground black -highlightcolor black -increment 1.0 \
        -insertbackground black -selectbackground #c4c4c4 \
        -selectforeground black -textvariable TimesToFlash -to 25.0 -wrap 1 
    vTcl:DefineAlias "$site_5_0.spi101" "Spinbox2" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab102" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text {Number of times to flash the button} 
    vTcl:DefineAlias "$site_5_0.lab102" "Label16" vTcl:WidgetProc "Main" 1
    place $site_5_0.but99 \
        -in $site_5_0 -x 60 -y 50 -anchor nw -bordermode ignore 
    place $site_5_0.but100 \
        -in $site_5_0 -x 60 -y 100 -width 198 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.spi101 \
        -in $site_5_0 -x 110 -y 190 -width 98 -relwidth 0 -height 23 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab102 \
        -in $site_5_0 -x 30 -y 160 -width 289 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    labelframe "$site_4_3.lab93" \
        \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -text {Repeating Button} \
        -background $vTcl(actual_gui_bg) -height 75 \
        -highlightbackground wheat -highlightcolor black -width 150 
    vTcl:DefineAlias "$site_4_3.lab93" "Labelframe22" vTcl:WidgetProc "Main" 1
    set site_5_0 $site_4_3.lab93
    button "$site_5_0.but103" \
        -activebackground red -activeforeground #000000 \
        -background $vTcl(actual_gui_bg) -command on_RepeatButton \
        -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 11 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -pady 0 -text {Click and Hold to Repeat} 
    vTcl:DefineAlias "$site_5_0.but103" "Button6" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab104" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text {# of times repeated:} 
    vTcl:DefineAlias "$site_5_0.lab104" "Label17" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab105" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text Label -textvariable RepeatedCount 
    vTcl:DefineAlias "$site_5_0.lab105" "Label18" vTcl:WidgetProc "Main" 1
    scale "$site_5_0.sca106" \
        -activebackground $vTcl(analog_color_m) \
        -background $vTcl(actual_gui_bg) -bigincrement 0.0 \
        -command on_RepeatDelay -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -from 0.0 -highlightbackground wheat \
        -highlightcolor black -length 104 -orient horizontal -resolution 1.0 \
        -tickinterval 0.0 -to 100.0 -troughcolor #d9d9d9 -variable RptDelay 
    vTcl:DefineAlias "$site_5_0.sca106" "Scale3" vTcl:WidgetProc "Main" 1
    scale "$site_5_0.sca108" \
        -activebackground $vTcl(analog_color_m) \
        -background $vTcl(actual_gui_bg) -bigincrement 0.0 \
        -command on_RepeatInterval -font TkDefaultFont \
        -foreground $vTcl(actual_gui_fg) -from 0.0 -highlightbackground wheat \
        -highlightcolor black -length 100 -orient horizontal -resolution 1.0 \
        -tickinterval 0.0 -to 100.0 -troughcolor #d9d9d9 \
        -variable RptInterval 
    vTcl:DefineAlias "$site_5_0.sca108" "Scale4" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab109" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text {Repeat Delay} 
    vTcl:DefineAlias "$site_5_0.lab109" "Label19" vTcl:WidgetProc "Main" 1
    label "$site_5_0.lab110" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background $vTcl(actual_gui_bg) -compound left \
        -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground $vTcl(actual_gui_fg) -highlightbackground wheat \
        -highlightcolor black -text {Repeat Interval} 
    vTcl:DefineAlias "$site_5_0.lab110" "Label20" vTcl:WidgetProc "Main" 1
    place $site_5_0.but103 \
        -in $site_5_0 -x 50 -y 60 -width 243 -relwidth 0 -height 33 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab104 \
        -in $site_5_0 -x 30 -y 130 -width 169 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab105 \
        -in $site_5_0 -x 210 -y 130 -anchor nw -bordermode ignore 
    place $site_5_0.sca106 \
        -in $site_5_0 -x 10 -y 200 -width 104 -relwidth 0 -height 42 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.sca108 \
        -in $site_5_0 -x 170 -y 200 -width 104 -relwidth 0 -height 42 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab109 \
        -in $site_5_0 -x 20 -y 170 -width 115 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_5_0.lab110 \
        -in $site_5_0 -x 170 -y 170 -width 131 -relwidth 0 -height 21 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_3.lab90 \
        -in $site_4_3 -x 1 -y 10 -width 337 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_3.lab91 \
        -in $site_4_3 -x 338 -y 10 -width 337 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_3.lab92 \
        -in $site_4_3 -x 675 -y 10 -width 337 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    place $site_4_3.lab93 \
        -in $site_4_3 -x 1012 -y 10 -width 337 -relwidth 0 -height 274 \
        -relheight 0 -anchor nw -bordermode ignore 
    frame "$top.fra47" \
        -borderwidth 2 -relief sunken -background gray42 -height 75 \
        -highlightbackground wheat -highlightcolor black -width 125 
    vTcl:DefineAlias "$top.fra47" "frameStatus" vTcl:WidgetProc "Main" 1
    set site_3_0 $top.fra47
    label "$site_3_0.lab47" \
        -activebackground #f9f9f9 -activeforeground #000000 \
        -background gray47 -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground #ffffff -highlightbackground wheat -highlightcolor black \
        -relief sunken -text Label -textvariable StatusTime 
    vTcl:DefineAlias "$site_3_0.lab47" "LblStatusTime" vTcl:WidgetProc "Main" 1
    label "$site_3_0.lab48" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background gray47 -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground #ffffff -highlightbackground wheat -highlightcolor black \
        -relief sunken -text Label -textvariable StatusInfo1 
    vTcl:DefineAlias "$site_3_0.lab48" "LblStatusInfo1" vTcl:WidgetProc "Main" 1
    label "$site_3_0.lab49" \
        -activebackground #f9f9f9 -activeforeground #000000 -anchor w \
        -background gray47 -compound left -disabledforeground #b8a786 \
        -font {-family {DejaVu Sans} -size 10 -weight bold -slant roman -underline 0 -overstrike 0} \
        -foreground #ffffff -highlightbackground wheat -highlightcolor black \
        -relief sunken -text Label -textvariable StatusInfo2 
    vTcl:DefineAlias "$site_3_0.lab49" "LblStatusInfo2" vTcl:WidgetProc "Main" 1
    place $site_3_0.lab47 \
        -in $site_3_0 -x 0 -relx 0.91 -y 0 -rely 0.103 -width 0 \
        -relwidth 0.088 -height 0 -relheight 0.776 -anchor nw \
        -bordermode ignore 
    place $site_3_0.lab48 \
        -in $site_3_0 -x 0 -relx 0.002 -y 0 -rely 0.103 -width 0 \
        -relwidth 0.404 -height 0 -relheight 0.776 -anchor nw \
        -bordermode ignore 
    place $site_3_0.lab49 \
        -in $site_3_0 -x 550 -y 8 -width 676 -relwidth 0 -height 44 \
        -relheight 0 -anchor nw -bordermode ignore 
#### Spot menu dumpCmd A
    menu "$top.m63" \
        -activebackground $vTcl(actual_gui_menu_analog) \
        -activeforeground #000000 -background $vTcl(actual_gui_menu_bg) \
        -font TkMenuFont -foreground $vTcl(actual_gui_menu_fg) -tearoff 0 
#### Spot menu dumpCmd B
    
set site_3_0 $top.m63
    $top.m63 add cascade \
        -menu "$top.m63.men64" -command {{}} -label Tabs 
#### Spot menu dumpCmd A
    menu "$site_3_0.men64" \
        -activebackground beige -activeforeground #000000 \
        -background $vTcl(actual_gui_menu_bg) -font TkMenuFont \
        -foreground $vTcl(actual_gui_menu_fg) -tearoff 0 
#### Spot menu dumpCmd B
    $site_3_0.men64 add command \
        -command {#lambda : on_mnuTab(0)} -label {Standard Tk Widgets} 
    $site_3_0.men64 add command \
        -command {#lambda : on_mnuTab(1)} -label {ttk Themed Widgets} 
    $site_3_0.men64 add command \
        -command {#lambda : on_mnuTab(2)} -label {Enhanced Widgets} 
    $site_3_0.men64 add command \
        -command {#lambda : on_mnuTab(3)} \
        -label {Special Twists on Normal Widgets} 
    $site_3_0.men64 add separator \
        
    $site_3_0.men64 add command \
        -command {#lambda : on_mnuTab(4)} -label Exit 
    vTcl::widgets::core::popup::createCmd "$top.pop48" \
        -activebackground $vTcl(analog_color_m) -activeforeground black \
        -background $vTcl(actual_gui_bg) -disabledforeground #b8a786 \
        -font TkMenuFont -foreground $vTcl(actual_gui_fg) -tearoff 1 
    global vTcl
    set val vTcl($top.pop48,-proc)
    set vTcl($top.pop48,-proc) popup2
    namespace eval ::widgets::$top.pop48 {}
    set ::widgets::$top.pop48::ClassOption(-proc) popup2
    set ::widgets::$top.pop48::options(-proc) popup2
    set ::widgets::$top.pop48::save(-proc) 1
    vTcl:DefineAlias "$top.pop48" "Popupmenu2" vTcl:WidgetProc "" 1
    $top.pop48 add command \
        -activebackground {} -activeforeground {} -background {} -command {#} \
        -font {} -foreground {} -label Copy 
    $top.pop48 add command \
        -activebackground {} -activeforeground {} -background {} -command {#} \
        -font {} -foreground {} -label Paste 
    $top.pop48 add command \
        -activebackground {} -activeforeground {} -background {} -command {#} \
        -font {} -foreground {} -label Clear 
    $top.pop48 add separator \
        -background {} 
    $top.pop48 add command \
        -activebackground {} -activeforeground {} -background {} \
        -command {#on_btnExit} -font {} -foreground {} -label Exit 
    $top.pop48 add separator \
        -background {} 
    $top.pop48 add command \
        -activebackground {} -activeforeground {} -background {} -command {#} \
        -font {} -foreground {} -label {Close Menu} 
    ###################
    # SETTING GEOMETRY
    ###################
    place $top.but47 \
        -in $top -x 1250 -y 11 -width 93 -relwidth 0 -height 33 -relheight 0 \
        -anchor nw -bordermode ignore 
    place $top.tNo48 \
        -in $top -x -2 -y 60 -width 1358 -relwidth 0 -height 591 -relheight 0 \
        -anchor nw -bordermode ignore 
    place $top.fra47 \
        -in $top -x 1 -y 640 -width 1353 -relwidth 0 -height 58 -relheight 0 \
        -anchor nw -bordermode ignore 

    vTcl:FireEvent $base <<Ready>>
}
proc on_VScale {args} { }
proc on_HScale {args} { }
proc on_RepeatDelay {args} { }
proc on_RepeatInterval {args} { }

proc 36 {args} {return 1}


Window show .
set btop1 ""
if {$vTcl(borrow)} {
    set btop1 .bor[expr int([expr rand() * 100])]
    while {[lsearch $btop1 $vTcl(tops)] != -1} {
        set btop1 .bor[expr int([expr rand() * 100])]
    }
}
set vTcl(btop) $btop1
Window show .top1 $btop1
if {$vTcl(borrow)} {
    $btop1 configure -background plum
}

