Miscellany

alias Chan {
  dialog -ma Chan Chan_table
}

dialog Chan_table {
  title "Channel Designer v0.1 ~ Made by Puppy ~"
  size -1 -1 502 301
}

on *:dialog:Chan:*:*: {
  if ($devent == init) {
    dcx Mark $dname Chan_cb
    xdialog -b $dname +tzyos

    ;// Call initilisation alias
    Chan_init_dcx
  }
}

alias -l Chan_init_dcx {
  ;// Initialising control: (Tab 1)
  xdialog -c $dname 1 tab 97 51 300 200 tabstop notheme top

  ;// Initialising control: Info (Tab Item 2)
  xdid -a $dname 1 0 0 Info $chr(9) 2 panel 4 22 292 174 0 0 300 200

  ;// Initialising control: Please visit this link for more information on this script : http://forum.swiftirc.net (Text 4)
  xdid -c $dname 2 4 text 2 1 300 100
  xdid -t $dname 4 Please visit this link for more information on this script : http://forum.swiftirc.net

  ;// Initialising control: Topics (Tab Item 3)
  xdid -a $dname 1 0 0 Topics $chr(9) 3 panel 500 500 300 200 0 0 300 200

  ;// Initialising control: Accept (Button 5)
  xdid -c $dname 3 5 button 121 149 75 20 tabstop
  xdid -t $dname 5 Accept

  ;// Initialising control: (Scroll 7)
  xdid -c $dname 3 7 scroll 5 6 20 150 tabstop vertical

  ;// Initialising control: Exit (Button 6)
  xdid -c $dname 3 6 button 211 149 75 20 tabstop
  xdid -t $dname 6 Exit

}

;// Callback alias for Chan
alias Chan_cb {
  if ($2 != mouse) {
    echo $color(info) -s */ Chan_cb: $1-
  }
}

;//
menu status,channel {
  Chan : Chan
}