Example of Minimal Hand coded ABC form, using WindowMgrEst & and ctCostCodes (a window component)

UI_PRE_Update.clw

UI_PRE_Update PROCEDURE

QuickWindow WINDOW('Update Project Equipment'),AT(,,328,70),CENTER,MDI,GRAY,IMM,MASK,AUTO,SYSTEM,HLP('~Update_Project_Equipment'),FONT('Segoe UI',8)
        SHEET,AT(1,1,326,47),USE(?CurrentTab),WIZARD
            TAB('Project Equipment'),USE(?TAB1)
                PROMPT('&Equipment ID'),AT(5,7),USE(?PrE:Equip_ID:Prompt)
                ENTRY(@s15),AT(65,7,75,10),USE(PRE:Equip_ID),FONT(,,,FONT:bold),MSG('Equipment ID'),REQ,OVR
                PROMPT('&Description'),AT(5,20),USE(?PrE:Descr:Prompt)
                ENTRY(@s40),AT(65,20,175,10),USE(PRE:Descr),MSG('Description'),OVR
                PROMPT('Co&st / Day'),AT(5,33),USE(?PrE:Daily_Rate:Prompt)
                SPIN(@n$10.2),AT(65,33,62,10),USE(PRE:Daily_Rate),RIGHT,MSG('Cost per Day'),INS,RANGE(0,999999.99),STEP(1)
                PROMPT('Cost Code'),AT(137,34),USE(?PrE:PC_Code:Prompt),DISABLE,HIDE
                COMBO(@s10),AT(179,34,62,10),USE(PRE:PC_Code),DISABLE,HIDE,LEFT,MSG('Project Cost Accounting Code'),UPR,DROP(1),FROM('')
            END
        END
        BUTTON('&OK'),AT(215,49,55,19),USE(?OK),ICON('OK.ICO'),DEFAULT,LEFT
        BUTTON('&Cancel'),AT(271,49,55,19),USE(?Cancel),ICON('CANCEL.ICO'),LEFT
    END
                                
ThisWindow           CLASS(WindowManagerEst)
Open                   PROCEDURE(*Window pWindow,<*Window pOwner>),DERIVED
                     END 
                     
oCostCodes           ctCostCodes
 CODE    
  ThisWindow.BelongsToProject( PRE:Project_ID )   
  ThisWindow.TablesNeeded     = 'PRE,PCS'   
  ThisWindow.OkControl        = ?OK   
  GlobalResponse = ThisWindow.Go(QuickWindow, RmPRE, 'UpdatePrEquip','TT',WinMgrEst:No_ImperialMetric) 

ThisWindow.Open            PROCEDURE(*Window pWindow,<*Window pOwner>)
  CODE   
  SELF.AddItem(?Cancel,RequestCancelled) 
  PARENT.Open(pWindow,pOwner) 
  SELF.AddItem(oCostCodes.WindowComponent)
  oCostCodes.WindowType = WindowType:Form
  oCostCodes.Add( ?PrE:PC_Code:Prompt, ?PRE:PC_Code, 'Cost Code','Equipment')