[script]
n0=alias d.fcgui dialog -om fserveclient fserveclient
n1=menu menubar {
n2=  Fserve Command GUI 1.0
n3=  .Activate FCGUI 1.0:d.fcgui
n4=}
n5=dialog fserveclient {
n6=  title "Fserve Command GUI 1.0"
n7=  size -1 -1 158 123
n8=  option dbu
n9=  button "DIR" 2, 15 15 39 11,
n10=  button "CD.." 3, 60 15 39 11,
n11=  button "QUIT" 4, 105 15 39 11,
n12=  button "CD <DIR>" 5, 15 30 39 11,
n13=  button "GET <file>" 6, 60 30 39 11,
n14=  box "Fserve Client GUI" 7, 5 0 149 95,
n15=  button "WHO" 8, 60 50 39 11,
n16=  button "SENDS" 9, 15 50 39 11,
n17=  button "READ <file>" 10, 105 30 39 11,
n18=  button "QUEUES" 11, 105 50 39 11,
n19=  button "CLR_QUEUES" 12, 15 65 39 11,
n20=  button "STATS" 13, 60 65 39 11,
n21=  button "LS" 14, 105 65 39 11,
n22=  button "HELP" 15, 60 80 39 11,
n23=  button "" 17, 25 10 44 16, Ok hide
n24=  menu "File", 18 18
n25=  item "Exit", 19, 18
n26=}
n27=on *:dialog:fserveclient:menu:19:dialog -x $dname
n28=on *:dialog:fserveclient:sclick:*:{
n29=  if ($server == $null) { echo -s *** NOT CONNECTED }
n30=  else {
n31=    goto $did
n32=    :2
n33=    msg $active dir
n34=    goto end
n35=    :3
n36=    msg $active cd..
n37=    goto end
n38=    :4
n39=    msg $active quit
n40=    close -c $remove($active,=)
n41=    goto end
n42=    :5
n43=    msg $active cd $cb
n44=    goto end
n45=    :6
n46=    msg $active get $cb
n47=    goto end
n48=    :8
n49=    msg $active who
n50=    goto end
n51=    :9
n52=    msg $active sends
n53=    goto end
n54=    :10
n55=    msg $active read $cb
n56=    goto end
n57=    :11
n58=    msg $active queues
n59=    goto end
n60=    :12
n61=    msg $active clr_queues
n62=    goto end
n63=    :13
n64=    msg $active stats
n65=    goto end
n66=    :14
n67=    msg $active ls
n68=    goto end
n69=    :15
n70=    msg $active help
n71=    goto end
n72=    :end
n73=  }
n74=}
n75=;Compiled by the Leprechaun Dialog creator on Thu Feb 15 12:52:46 2001 (www.leprechaunscript.cjb.net)