Simple String Input for Panel

Menu "Analysis"
    "Open Calculate Panel",/Q, OpenCalculatePanel()
End
 
Function OpenCalculatePanel()
    DoWindow/K CalculatePanel
    Newpanel /W=(248,115,730,626)/N=CalculatePanel // apear the panel
    modifypanel cbRGB=(0,39168,39168),fixedsize=1 //color of panel
    showtools /A
    setdrawlayer/K userback
    Setdrawenv fsize=20,fstyle=1,textrgb=(65535,65535,65535)
    drawtext 115,32,"Load Files and Parameters"
    //drawpict 2,2,2,1,1    //no: 4 numbers and a picture name are needed here
    Button button1,pos={160,165},size={161,35},proc=buttonproc,title="Load Waves"
    SetVariable sample_name title="sample ",size={200,136},pos={136,100},proc=setvariableproc
Endmacro
 
Function ButtonProc(ctrlname) : ButtonControl
    string ctrlname
    Print "Button pressed"
    // Call your calculate routine here
End
 
Function setvariableproc(ctrlName) : setvariablecontrol
    String ctrlName
    controlinfo setvariableproc
    print s_value
    
    // Call your calculate routine here
End

Menu "Analysis"
    "Open Calculate Panel",/Q, OpenCalculatePanel()
End
 
Function OpenCalculatePanel()
    DoWindow/K CalculatePanel
    Newpanel /W=(248,115,730,626)/N=CalculatePanel // apear the panel
    Button button1,pos={160,165},size={161,35},proc=ButtonProc,title="Load Waves"
    SetVariable sample_name title="sample ",size={200,136},pos={136,100},proc=SetVarProc, value=_STR:"Hello World!"
        return 0
end
 
Function SetVarProc(sva) : SetVariableControl
        STRUCT WMSetVariableAction &sva
 
        switch(sva.eventCode)
               case 1:
               case 2:
               case 3:
                     print sva.sval
                     break
        endswitch
        return 0
end
 
 
Function ButtonProc(ba) : ButtonControl
        STRUCT WMButtonAction &ba
 
        switch(ba.eventCode)
               case 2:
                     print "Button Pressed"
                     break
        endswitch
        return 0
end

// creates selection in analysis pull down menu
 
Menu "Analysis"
    "Open Calculate Panel",/Q, OpenCalculatePanel()
End
 
// creates panel, defines operations 
 
Function OpenCalculatePanel()
 
// make space for the pane to live, name it
 
    DoWindow/K CalculatePanel
    Newpanel /W=(248,115,730,626)/N=CalculatePanel
    
// create a button, with title "Load Waves" that execeutes the procedure ButtonProc when pressed    
    
    Button button1,pos={160,165},size={161,35},proc=ButtonProc,title="String Maker"
        return 0
end
 
 
// ButtonProc runs when the button is pressed.
 
// The action procedure, which may be a function or a macro, has the format:
//Function procName (ctrlName) : ButtonControl
//  String ctrlName
//  ...
//End
// The ": ButtonControl" designation tells Igor to include this procedure in the Procedure pop-up menu in the Button Control dialog.
//A Button action procedure using a structure has the format:
//Function newActionProcName(B_Struct) : ButtonControl
//  STRUCT WMButtonAction &B_Struct
//  ...
//End
 
// i suppose ba stands for "button action" and is the manner in which 
// button is used
 
Function ButtonProc(ba) : ButtonControl
 
// why is WMButtonAction important? It isn't used elsewhere in the code
 
        STRUCT WMButtonAction &ba
 
        switch(ba.eventCode)
        
 // case 2 tells you that the mouse click has been released (click, then let go)
        
               case 2:
                     setdatafolder root:
                     string/g string1 = "string created"
                     youdiditalert()
// break is not strictly necessary but recommended and usually necessary
                     break
        endswitch
        return 0
end
 
function youdiditalert()
doalert 0, "you did it!"
return -1
end

// creates selection in analysis pull down menu
 
Menu "Analysis"
    "Open Calculate Panel",/Q, OpenCalculatePanel()
End
 
// creates panel, defines operations 
 
Function OpenCalculatePanel()
 
// make space for the pane to live, name it
 
    DoWindow/K CalculatePanel
    Newpanel /W=(248,115,730,626)/N=CalculatePanel
    
// create a button, with title "Load Waves" that execeutes the procedure ButtonProc when pressed        
    Button button1,pos={160,165},size={161,35},proc=ButtonProc,title="String Maker"
//  
    SetVariable sample_name title="sample ",size={200,136},pos={136,100},proc=SetVarProc, value=_STR:"sample name"
    SetVariable ref_name title="reference ",size={200,136},pos={136,200},proc=SetVarProc, value=_STR:"reference name"
    SetVariable temp_list title="temperature list ",size={400,136},pos={40,300},proc=SetVarProc, value=_STR:"temperature list;separated by ; ex. 10;20 "
        return 0
end
 
Function SetVarProc(sva) : SetVariableControl
        STRUCT WMSetVariableAction &sva
 
        switch(sva.eventCode)
               case 1:
               case 2:
               case 3:
                     string/g sam = sva.sval
                  if(cmpstr(sva.ctrlname,"temp_list")==0)
                     print sva.ctrlname
                   endif
                     break
        endswitch
        return 0
end

Function SetVarProc(sva) : SetVariableControl
    STRUCT WMSetVariableAction &sva
 
    switch( sva.eventCode )
        case 1: // mouse up
        case 2: // Enter key
        case 3: // Live update
            print "you have changed ", sva.ctrlname
            strswitch(sva.ctrlname)
                case "temp_list":
                    // do stuff here
                    break
                case "...":
                    // do stuff here
                    break
                ...
            endswitch
            break
        case -1: // control being killed
            break
    endswitch
    return 0
end