###
###
# Object which is the vessel for many other objects
# particularly dynamic widgets
###
tool::define ::taotk::meta::form {
  superclass ::tool::ui::form ::taotk::meta::megawidget
  
  method form::default {f field args} {
    set p $f.$field
    if {[winfo exists $p]} return
    set l $f.$field#l
    set u $f.$field#u
    
    set subform $method
    set metadata [my meta getnull $subform $field]
    set argsdata [::tool::args_to_options {*}$args]
    dict set formdata subform $method
    dict set formdata field $field
    dict set formdata post_command [namespace code [list my meta set $subform %field% %value%]]
    set value [my meta getnull $subform $field value] 

    set objname [my FormObject ::taotk::ui::element.tk $metadata $argsdata $formdata]
    $objname tkdraw $p $value   
    $objname tklabel $l [$objname cget label $field] [$objname cget description]
    $objname tklabel $u [$objname cget units]

    grid $l $p $u -sticky news
    grid configure $u -sticky news

    grid configure $l -sticky news
    grid configure $p -padx 2 -sticky news
    grid columnconfigure $f $l -minsize 200 
    grid columnconfigure $f $p -minsize 400
    return $objname
  }

  # title: Display a dynamic widget representing an option
  method form::option {f field args} {
    set p $f.$field
    if {[winfo exists $p]} return
    set l $f.$field#l
    set u $f.$field#u

    set subform option
    set metadata [my meta getnull $subform $field]
    set argsdata [::tool::args_to_options {*}$args]
    dict set formdata field $field
    dict set formdata post_command [namespace code {my config set %field% %value%}]
    dict set formdata subform $subform
    
    if {[dict exists $argsdata value]} {
      set value [dict get $argsdata value]
    } else {
      set value [my cget $field]
    }
    
    set objname [my FormObject ::taotk::ui::element.tk $metadata $argsdata $formdata]
    $objname tkdraw $p $value
    $objname tklabel $l [$objname cget label $field] [$objname cget description]
    $objname tklabel $u [$objname cget units]

    grid $l $p $u -sticky news
    grid configure $u -sticky news

    grid configure $l -sticky news
    grid configure $p -padx 2 -sticky news
    grid columnconfigure $f $l -minsize 200 
    grid columnconfigure $f $p -minsize 400
    return $objname
  }

}
###
# END: form.tcl
###







###
# START: stylesheet.tcl
###
option add *highlightThickness 0

###
# topic: 8557f63e6b7b9ec1ffec6791db74c7828276f24b

    set has_consolas [expr {"Consolas" in [font families]}]
    if {$has_consolas} {
      switch $::tao::platform {
        macosx {
          switch $field {
            font-fixed        {return {Consolas 10}}
            font-button-fixed {return {Consolas 10}}
            font-button-small {return {Consolas 10}}
            font-button-bold  {return {Consolas 8 bold}}
            font-canvas       {return {Consolas 10}}
            font-popups       {return {Consolas 10}}
          }
        }
        default {
          switch $field {
            font-fixed        {return {Consolas 10}}

  }
  option height {
    default 5
    mirror text
  }
  option font {
    mirror text
    type font
    default TkDefaultFont
    description {Base display font}
  }
  option wrap {
    mirror text
    widget select
    values {none char word}

  superclass string
  option state {
    mirror entry
    widget select
    values {normal readonly disabled}
    default readonly
  }
 
  method CalculateValueWidth values {
    set w 0
    set n 0
    foreach v $values {
      incr n
      set l [string length $v]
      incr bins($l)
      if {$l > $w} {
        set w $l
      }
    }
    if { $w > 30} {
      set w 30
    }
    if {$w < 10} {
      return 10
    }
    return [expt {$w+1}]
  }
    
  method Widget_Edit {} {
    if {[my EnterMode edit window varname]} return
    set values [my CalculateValues]
    if {[my readonly]} {
      ::ttk::label $window.m -style [my Style label] -textvariable $varname -width [my CalculateValueWidth $values]
      pack $window.m -side left -expand 1 -fill x
      return

      pack $window.e -side left
    }
    bind $window.e <KeyRelease-Return> [namespace code "my validate"]
    bind $window.e <KeyPress-Escape> [namespace code {my display}]
    bind $window.e <<ComboboxSelected>> [namespace code "my validate"]
    #after idle [list ::ttk::combobox::Post $window.e]
  }
  
  noop method Widget_Subform {tkpath varname} {
    set opts [list -textvariable ${varname} -width [my cget width]]
    set wstate [my cget state]
    set values [my CalculateValues]
    ::ttk::combobox $tkpath -style [my Style combobox] {*}$opts -takefocus 1 \
      -state $wstate -values $values
    my graft mainframe $tkpath hullwidget $tkpath hull $tkpath nativewidget $tkpath

}


# description: A {pick from a finite list} widget
::taotk::ui::element register combobox {
  superclass select

  
  method Widget_Edit {} {
    if {[my EnterMode edit window varname]} return
    if {[my readonly]} {
      ::ttk::label $window.m -style [my Style label] -textvariable $varname -width [my cget width]
      pack $window.m -side left -expand 1 -fill x
      return
    }

    bind $window.e <KeyRelease-Return> [namespace code {my validate}]
    bind $window.e <<ComboboxSelected>> [namespace code {my validate}]
    #ttk::combobox::Post $window.e
  }
}


tool::define ::taotk::ui::element::history {  
  superclass select
  meta set is claim: {[dict getnull $info history] eq 1}
  option state {
    widget select
    values {normal readonly disabled}
    default normal
  }

     # -validatecommand [namespace code {my Validate %P}] \
     # -validate focusout \
     # -invalidcommand [namespace code {my ErrorInvalid %P}]
     # * Does not work at present, consitently returns "Error 1"
     ####
    ttk::button $window.b \
      -text SAVE -style [my Style button small] \
      -command [namespace code {my validate}]    
    ttk::button $window.rand \
      -text RAND -style [my Style button small] \
      -command [namespace code {my Validate [::tao::uuid_short]}] 
    ttk::button $window.x \
      -text CANCEL -style [my Style button small] \
      -command [namespace code {my Widget_Display}] \
      -balloon {Cancel [Esc]}


    bind $window.m <Key-Return> [namespace code {my validate}]
    bind $window.m <Key-Escape> [namespace code {my Widget_Display}]
    pack $window.x $window.b $window.rand -side right -fill y
      
    my graft nativewidget $window.m
    pack $window.m -side left -expand 1 -fill x
    focus $window.m
    $window.m icursor end
    #bind $window <Leave> [namespace code {my Widget_Display}]
  }
  
}
###
# END: string.tcl
###
###
# START: textpopup.tcl
###

    if {[my EnterMode edit window varname]} return
    set readonly [my readonly]
    set label View
    my graft button $window.button
    ::ttk::button $window.button -style [my Style button small [my cget row]] -text $label -command [namespace code {my InvokePopup}]
    grid $window.button -sticky news
 }
 
  method initialize {} {
    my graft text ::noop
  }

  method InvokePopup {} {
    package require ctext
    set w [my widget subwindow popup]
    destroy $w
    set readonly [my readonly]
    set field [my cget field]
 
    toplevel $w
    wm title $w [list Editing $field]
    #[winfo toplevel [my organ nativewidget]]
    my graft text $w.t
    ttk::label $w.l -text "Editing $field"
    ctext $w.t -yscrollcommand "$w.vsb set" -xscrollcommand "$w.hsb set" \
      -width 70 -wrap none -font [::taotk::stylesheet cget font-editor]
    ttk::scrollbar $w.vsb -orient vertical -command "$w.t yview"
    ttk::scrollbar $w.hsb -orient horizontal -command "$w.t xview"

    my Highlight
    my <text> delete 0.0 end
    my <text> insert 0.0 [my Value_Display [my Value_Get]]
    
    ttk::frame $w.b -style [my Style frame]
    
    ttk::button $w.b.save -text "Save" -command [namespace code {my validate}]
    ttk::button $w.b.close -text "Close" -command "destroy $w"
    ttk::sizegrip $w.b.sizegrip
    if {!$readonly} {
      pack $w.b.save -side left -fill y
    } 
    pack $w.b.sizegrip $w.b.close -side right -fill y
  
    pack $w.l -side top -fill x
    pack $w.b -side bottom -fill x
    pack $w.hsb -side bottom -fill x -padx [list 0 [winfo reqwidth $w.vsb]]

    pack $w.t -side left -fill both -expand 1
    pack $w.vsb -side left -fill y
  }

  option offer_reset {default 0}
  option reset_value {default {}}

  method ApplySelectedValue newvalue {
    set varname [my cget textvariable]
    set $varname $newvalue
  }
  
  # Implement a subform instance
  method form_edit {tkpath varname fconfig} {
    destroy $tkpath
    set opts [list -textvariable ${varname} -width [my cget width]]
    switch [dict getnull $fconfig type] {
      select {
        ::ttk::combobox $tkpath {*}$opts -values [if_null [dict getnull $fconfig values] [dict getnull $fconfig options]] -state readonly

    foreach key {<Return>} {
      bind [my organ nativewidget] $key [namespace code {my validate}]
    }
    foreach key {<Escape>} {
      bind [my organ nativewidget] $key [namespace code {my <form> display}]
    }
  }
  
  method Widget_Get {} {
    my variable displayvalue
    set w [my organ nativewidget]
    if {[winfo exists $w]} {
      set displayvalue [$w get]
    }
    return $displayvalue
  }
  
  method get {} {
    set value [my Widget_Get]
    return $value
  }
}

::taotk::ui::element register vector {
  superclass string ::taotk::meta::form
  meta set const wide_field: 1

  option command {default {}}
  option delimeter {default ", "}
  
  method SubElement {field tkpath varname args} {
    my variable subobj_map
    set fconfig [dict merge {*}$args]
    set objname [info object namespace [self]]::$field
    dict set fconfig field $field
    dict set fconfig row [my cget row]
    dict set fconfig textvariable $varname
    if {[info command $objname] eq {}} {
      ::taotk::ui::element.vector create $objname
    }
    $objname attach [list form [self]] $fconfig
    $objname form_edit $tkpath $varname $fconfig
    return $objname
  }
  
  method Widget_Get {} {
    my variable formelement_fields local_array
    set result [array get local_array]
    foreach {obj field} $formelement_fields {
      dict set result $field [$obj get]
    }
    return $result
  }
  
  method Widget_Edit {} {
    if {[my EnterMode edit window varname]} return
    set subobj_map {}
    set readonly  [my readonly]
    set vectorvar [my varname local_array]
    set labelrow {}
    set widgetrow {}
    set row  [if_null [my cget row] 0]
    ttk::frame $window.m -style [my Style frame]
    foreach {vfield vfieldinfo} [my Vector_Fields] {
      ttk::label $window.m.$vfield#l -style [my stylesheet widget_style label {} $row] -text "$vfield:"
      set subobj [my SubElement $vfield $window.m.$vfield ${vectorvar}($vfield) {widget entry} $vfieldinfo]
      dict set subobj_map $vfield $subobj
      lappend labelrow $window.m.$vfield#l 
      lappend widgetrow $window.m.$vfield      
    }
    grid {*}$labelrow -sticky news
    grid {*}$widgetrow -sticky news
    pack $window.m

    ttk::button $window.b \
      -text SAVE -style [my Style button small] \

      ttk::button $window.null \
        -text RESET -style [my Style button small] \
        -command [namespace code [list my Widget_Reset_Value]]
        pack $window.x $window.b $window.null -side right -fill y
    } else {
      pack $window.x $window.b -side right -fill y
    }
      
    my graft nativewidget $window.m
    pack $window.m -side left -expand 1 -fill x
    [lindex $subobj_map 1] widget focus
  }
  
  method Widget_Reset_Value {} {
    my Validate [my cget reset_value]
    my Widget_Display
    my Value_Display [my cget reset_value]
  }
}

::taotk::ui::element register physics {
  superclass string
  
  method Widget_Edit {} {
    if {[my EnterMode edit window varname]} return

    if {[string is integer -strict [my cget width]]} {
      lappend opts -width [my cget width]
    }
    destroy {*}[winfo children $window]
    my variable irm_value system_units user_value system_options
    ttk::label $window.irm -textvariable [my varname irm_value] -width 6 \
      -style [my Style label]
    ttk::entry $window.m -textvariable [my varname user_value] -width 10 \
      -style [my Style entry]

    set options [my cget options]
    ttk::combobox $window.userunit -textvariable [my varname user_units] -width 20 \
      -style [my Style combobox] -values $system_options
      
    bind $window.userunit [namespace code {my Change_Units}]
     # -validatecommand [namespace code {my Validate %P}] \
     # -validate focusout \
     # -invalidcommand [namespace code {my ErrorInvalid %P}]
     # * Does not work at present, consitently returns "Error 1"
     ####
    ttk::button $window.b \

      ttk::button $window.null \
        -text NULL -style [my Style button small] \
        -command [namespace code {my Widget_Reset_Value}]
        pack $window.x $window.b $window.null -side right -fill y
    } else {
      pack $window.x $window.b -side right -fill y
    }
      
    my graft nativewidget $window.m
    pack $window.irm $window.m $window.userunit -side left -expand 1 -fill x
    focus $window.m
    $window.m icursor end
  }

  method Widget_Get {} {

      if {![info exists $variable]} {
        set label Create
      } elseif {[set $variable] eq {}} {
        set label Create
      }
    }
    ::ttk::button $p -style [my Style button small] -text $label -command [namespace code {my popup}]
    
    xylist_window $p $field $array $readonly"

  }

  method popup {} {}
}
###