\ LeCroy parameter capturing                 Andrew J. Korsak, Ph.D. 05jun2000
\                                               ve3fzk@arrl.net

\ Based on Windilog.f by Friedrich Prinz


:OBJECT LeCroySetup&ParameterDisplay <SUPER WINDOW

400 bytes lineBuf   \ as in WinDemo             ajk 08jun2000

      ListControl List_1     \ a list box
 ComboListControl CbList_1   \ a combo list box
     GroupControl Group_1    \ a frame around a group
      EditControl Edit_1     \ an edit window
      EditControl Edit_2     \ an edit window
      EditControl Edit_3     \ an edit window
      EditControl Edit_4     \ an edit window
    StaticControl Text_1     \ a static text window
    StaticControl Text_2     \ a static text window
    StaticControl Text_3     \ a static text window
    ButtonControl Button_1   \ a button
     CheckControl Check_1    \ a check box
     RadioControl Radio_1    \ a radio button
     RadioControl Radio_2    \ another radio button

:M ClassInit:   ( -- )
                ClassInit: super
                ;M

:M ExWindowStyle: ( -- style )
                ExWindowStyle: SUPER
                ;M

:M WindowStyle: ( -- style )
                WindowStyle: SUPER
                WS_BORDER OR
                WS_OVERLAPPED OR
                ;M

:M WindowTitle: ( -- title )
                z" LeCroy DSO Setup and Parameter Capture" ;M

:M StartSize:   ( -- width height )
                350 300 ;M

:M StartPos:    ( -- x y )
                30 30 ;M

\ ========================================================================
\ Copied and adapted from WinView.f                      ajk 08jun2000
:M GetList:     { n -- a1 n1 }      \ content of n-th item in list box
                lineBuf 1+ rel>abs n LB_GETTEXT
                GetID: List_1  SendDlgItemMessage: self drop
                0 n LB_GETTEXTLEN
                GetID: List_1  SendDlgItemMessage: self lineBuf c!
                lineBuf count
                ;M
\ ========================================================================
\ Adapted from Windilog:                                 ajk 08jun2000
:M SetEditBox:  ( string_adr cnt editbox# -- )   case
        0 of ( adr cnt )  SetText: Edit_1 endof \ set the window message
        1 of ( adr cnt )  SetText: Edit_2 endof \ set the window message
        2 of ( adr cnt )  SetText: Edit_3 endof \ set the window message
        3 of ( adr cnt )  SetText: Edit_4 endof \ set the window message
        endcase ;M



:M Close:       ( -- )
\                GetText: Edit_1  cr type cr
                Close: SUPER
                ;M

:M On_Init:     ( -- )
                self                Start: Check_1
                4 60 60 20           Move: Check_1
                s" STOP "         SetText: Check_1

                self                Start: Radio_1
                95 50 105 20        Move: Radio_1
                s" NORMAL " SetText: Radio_1
                WS_GROUP           +Style: Radio_1 \ Start a group

                self                Start: Radio_2
                95 70 105 20        Move: Radio_2
              \  BS_CENTER          +Style: Radio_2 \ and centering
                s" SINGLE " SetText: Radio_2

                self                Start: Group_1    \ Completed group 1
                90 30 110 70         Move: Group_1
                s" Run Mode"        SetText: Group_1


                self                Start: List_1
                4 140 60 65         Move: List_1
                0 0 LB_RESETCONTENT GetID: List_1 SendDlgItemMessage: self drop
z" WID" rel>abs 0 LB_ADDSTRING    GetID: List_1 SendDlgItemMessage: self drop
z" FREQ" rel>abs 0 LB_ADDSTRING    GetID: List_1 SendDlgItemMessage: self drop
z" PKPK" rel>abs 0 LB_ADDSTRING    GetID: List_1 SendDlgItemMessage: self drop
z" TOP" rel>abs 0 LB_ADDSTRING    GetID: List_1 SendDlgItemMessage: self drop

                self                Start: CbList_1
                4 230 60 100         Move: CbList_1
                0 0 CB_RESETCONTENT GetID: CbList_1 SendDlgItemMessage: self drop
z" AMPL " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" AREA " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" BASE " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" DUTY " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" OVSN " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" OVSP " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" PKPK " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" RISE " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" TOP " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
z" WID " rel>abs 0 CB_ADDSTRING    GetID: CbList_1 SendDlgItemMessage: self drop
                0 0 CB_SETCURSEL    GetID: CbList_1 SendDlgItemMessage: self drop



                self                Start: Text_1 \ start up static text
                WS_GROUP           +Style: Text_1 \ End a group
                SS_CENTER          +Style: Text_1 \ and centering
                WS_BORDER          +Style: Text_1 \ and border to style
                4  4 250 20          Move: Text_1 \ position the window
   s" Default DSO Sweep Mode"   SetText: Text_1 \ set the window message

                self                Start: Text_2 \ start up static text
                WS_GROUP           +Style: Text_2 \ End a group
                SS_CENTER          +Style: Text_2 \ and centering
             \   WS_BORDER          +Style: Text_2 \ and border to style
                4  120 150 20          Move: Text_2 \ position the window
   s" Selected Parameters"   SetText: Text_2 \ set the window message

                self                Start: Text_3 \ start up static text
                WS_GROUP           +Style: Text_3 \ End a group
                SS_CENTER          +Style: Text_3 \ and centering
             \   WS_BORDER          +Style: Text_3 \ and border to style
                4  210 150 20          Move: Text_3 \ position the window
   s" Available Parameters"   SetText: Text_3 \ set the window message


                self                Start: Edit_1
                65 140  400 16          Move: Edit_1
                s" 000.00                  "        SetText: Edit_1

                self                Start: Edit_2
                65 156  400 16          Move: Edit_2
                s" 000.00                  "        SetText: Edit_2

                self                Start: Edit_3
                65 172  400 16          Move: Edit_3
                s" 000.00                  "        SetText: Edit_3

                self                Start: Edit_4
                65 188  400 16          Move: Edit_4
                s" 000.00                  "        SetText: Edit_4

                IDCANCEL                SetID: Button_1
                self                Start: Button_1
                245 55 70 25        Move: Button_1
                s" EXIT"            SetText: Button_1
                                 GetStyle: Button_1
                BS_DEFPUSHBUTTON   +Style: Button_1
                ;M

:M On_Paint:    ( -- )          \ screen redraw procedure
                0 0 StartSize: self LTGRAY FillArea: dc
                ;M

:M WM_COMMAND   ( hwnd msg wparam lparam -- res )
        over LOWORD ( ID )
        case
                IDCANCEL            of Close: self          endof
                GetID: Check_1  of GetID: Check_1 IsDlgButtonChecked: self
                                   if      beep
                                   then                 endof
        endcase
        0 ;M

;OBJECT

: ES          ( -- )
                Start: LeCroySetup&ParameterDisplay ;