Drawing on layers ... or not

function DrawStuff(string gname, string layer, variable isChecked)
    if(isChecked)
        SetDrawLayer/W=$gname $layer
        DrawText 0.2,0.2,"stuff drawn!"
    else
        SetDrawLayer/W=$gname/K $layer
    endif
end

•display
•DrawStuff("Graph0", "ProgBack", 1)
•DrawStuff("Graph0", "ProgBack", 0)

function doPanel(string win)
    NewPanel/N=ctrlPanel/W=(0,0,100,100) /EXT=0/HOST=$win 
    CheckBox checkGrid, win=ctrlPanel, pos={15,25},size={61.00,16.00},proc=myCheckProc
    CheckBox checkGrid,win=ctrlPanel,title="draw stuff",value=0
end
 
Function myCheckProc(cba) : CheckBoxControl
    STRUCT WMCheckboxAction &cba
    
    string HostName, cmd
    string layer = "ProgBack"
    
    switch( cba.eventCode )
        case 2: // mouse up
            HostName = StringFromList(0,cba.win,"#")
            sprintf cmd "DrawStuff(\"%s\", \"%s\", %g)", HostName, layer, cba.checked
            print cmd
            drawStuff(HostName, layer, cba.Checked)
            break
        case -1: // control being killed
            break
    endswitch
 
    return 0
End

print IgorInfo(3)
  OS:macOS;OSVERSION:10.15.7;LOCALE:US;IGORFILEVERSION:9.01B01;