home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / email / sime / simdemo.z / phonemsg.frm < prev    next >
Text File  |  1997-12-09  |  1KB  |  29 lines
  1. #ECSFORM
  2. #
  3. # phonemsg.tcl
  4. #
  5.  
  6. form settitle "Phone Message"
  7. label l1 -parent formwin -title "From" -left 20 -top 6 -right 120 -bottom 35
  8. txeditline from -parent formwin -left 140 -top 6 -right 440 -bottom 35 -command ""
  9. form setheader subject "Phone Message"
  10. label l2 -parent formwin -title "Phone" -left 20 -top 39 -right 120 -bottom 68
  11. txeditline number -parent formwin -left 140 -top 39 -right 440 -bottom 68 -command ""
  12. label l3 -parent formwin -title "Company/Loc" -left 20 -top 72 -right 120 -bottom 101
  13. txeditline company -parent formwin -left 140 -top 72 -right 440 -bottom 101 -command ""
  14. label l4 -parent formwin -title "Message" -left 20 -top 105 -right 120 -bottom 134
  15. txedit message -parent formwin -left 140 -top 105 -right 440 -bottom 200 -command ""
  16.  
  17. proc form_completion {} {
  18. # note "begin of form_completion in phonemsg.frm"
  19. #    form setheader subject "Phone Message from [get_ctl_title from]"
  20.     set subject_changed [form headerMod "garbage"]
  21. # note "subject changed = $subject_changed"
  22.     if {$subject_changed == "1"} {return}
  23.     set from_field [txeditctl from get]
  24. # note "from_field in phonemsg = <$from_field>"    
  25.     if {$from_field == ""} {return}
  26. #note "subject in phone msg will be set to $from_field"
  27.     form setheader subject "Phone Message from $from_field"
  28. }
  29.