** END HEADER -- do not remove this line
//
// Generated on 2018-11-05
//
parameter bModal
local f
f = new Entryfieldtypes1Form()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class Entryfieldtypes1Form of FORM
   with (this)
      metric = 6	// Pixels
      colorNormal = "LightGrey"
      height = 352.0
      left = 840.0
      top = 0.0
      width = 280.0
      text = ""
   endwith

   this.EFBOOLIAN = new ENTRYFIELD(this)
   with (this.EFBOOLIAN)
      height = 22.0
      left = 88.0
      top = 32.0
      width = 39.0
      fontSize = 11.0
      statusMessage = "Boolian: Allows input and display of TRUE, FALSE, T, F, Y or N in upper or lower case."
      speedTip = "Boolian"
      value = false
   endwith

   this.EFNUMERIC = new ENTRYFIELD(this)
   with (this.EFNUMERIC)
      height = 22.0
      left = 88.0
      top = 65.0
      width = 60.0
      picture = "99,999,999.99"
      fontSize = 11.0
      statusMessage = "Numeric Allows a numeric value including 2 decimal places. Decimal point is required. Commas are automatic."
      speedTip = "Numeric"
      value = 0.0
   endwith

   this.EFDATE = new ENTRYFIELD(this)
   with (this.EFDATE)
      height = 22.0
      left = 88.0
      top = 98.0
      width = 81.0
      picture = "99/99/9999"
      fontSize = 11.0
      statusMessage = "Date: Type two digit month, day and four digit year. No separators are required."
      speedTip = "Date"
      value = {2007-08-31}
   endwith

   this.EFINTIGER = new ENTRYFIELD(this)
   with (this.EFINTIGER)
      height = 22.0
      left = 88.0
      top = 131.0
      width = 56.0
      picture = "99,999,999"
      fontSize = 11.0
      statusMessage = "Integer: Integers only. Commas are automatic."
      speedTip = "Intiger"
      value = 0
   endwith

   this.EFCHARACTER = new ENTRYFIELD(this)
   with (this.EFCHARACTER)
      onGotFocus = class::EFCHARACTER_ONGOTFOCUS
      height = 22.0
      left = 88.0
      top = 164.0
      width = 76.0
      fontSize = 11.0
      statusMessage = "Character: Any typable character."
      speedTip = "Character"
      value = "Entryfield1"
   endwith

   this.EFTIME = new ENTRYFIELD(this)
   with (this.EFTIME)
      height = 22.0
      left = 88.0
      top = 197.0
      width = 66.0
      picture = "99:99:99"
      fontSize = 11.0
      statusMessage = "Time: Military (24 hour) time format of hours, minutes and seconds (hh:mm:ss). No separaters are required."
      speedTip = "Time"
      value = "10:00:00"
   endwith

   this.EFDATETIME = new ENTRYFIELD(this)
   with (this.EFDATETIME)
      height = 22.0
      left = 88.0
      top = 230.0
      width = 140.0
      picture = "99/99/9999 99:99:99"
      fontSize = 11.0
      statusMessage = "DateTime: Two digit mont and day, four digit year, and military time format (hhmm:ss). No separaters are required."
      speedTip = "Datetime"
      value = {2007-08-31 10:00:00 AM}
   endwith

   this.CHOLLA = new COMBOBOX(this)
   with (this.CHOLLA)
      onLostFocus = class::CHOLLA_OLF
      onOpen = {;this.height = 23}
      systemTheme = false
      height = 25.0
      left = 88.0
      top = -100.0
      width = 175.0
      fontSize = 11.0
      tabStop = false
      dataSource = 'array {"Cholla"}'
      statusMessage = "Click pushbutton or use <F4> key to display list."
      style = 2	// DropDownList
      dropDownHeight = 132.0
      autoDrop = true
   endwith



   Function EFCHARACTER_onGotFocus()
    * -------------------------------------------------- *
        //local aList
        aList = new ARRAY()
        aList.add("ABC")
        aList.add("def")
        aList.add("GHI")
        aList.add("jkl")
        aList.add("MNO")
        aList.add("pqr")
        aList.add("STU")
        aList.add("vwxyz")
        form.CHOLLA.dataSource = 'ARRAY aList'
        *
        form.oNextFocus = this.before
        form.CHOLLA.width = this.width+18
        form.CHOLLA.top = this.top
***form.CHOLLA.AutoDrop = true
***        form.CHOLLA.visible = true
***form.CHOLLA.pageNo = 1
***form.CHOLLA.AutoDrop = true
        form.CHOLLA.setFocus()
///        this.keyboard "{F4}"  
//      here 'this' is EFCHARACTER (an entryfield object) which doesn't have the 
//      dropdown feature.  
//      keyboard is a command but oRef.keyboard() is a method of the object. The
//      () is required around the argument submitted to the method.
        form.cholla.keyboard("{F4}")  // added MB
   return
    *
    

    Function EFDATE_onGotFocus()
    * --------------------------------------- *
        //local aList
        aList = new ARRAY()
        aList.add(Date())
        form.CHOLLA.dataSource = 'ARRAY aList'
        *
        form.oNextFocus = this.before
        form.CHOLLA.width = this.width
        form.CHOLLA.top = this.top
        form.CHOLLA.left = this.left
***        form.CHOLLA.visible = true
***form.CHOLLA.pageNo = 1
        form.CHOLLA.setFocus()   
    return
    *
    

        Function Cholla_oLF
        * -------------------------*
//        this.autoDrop = false
***        this.visible = false
//this.pageNo = 2
this.top = -100
        if type("form.oNextFocus") # 'U'
            form.oNextFocus.setFocus()
            form.oNextFocus = null
        endif
        form.efcharacter.value = this.value  //added MB
        return
        *
        
        

endclass

/*
   form.aFlavors.add( this.form.newFlavorText.value ) // Add new flavor
   form.flavorCombobox.dataSource += "" // Reassert by adding empty string
*/

<br />
<b>Warning</b>:  Unknown: write failed: No space left on device (28) in <b>Unknown</b> on line <b>0</b><br />
<br />
<b>Warning</b>:  Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in <b>Unknown</b> on line <b>0</b><br />