Public feed #894353

Untitled

public text v1 · immutable
Raw Edit
·published 2008-02-06 21:56 UTC
rendered paste body
alias XBConnect {
  dialog -ma XBConnect XBConnect_table
}

dialog XBConnect_table {
  title "DCX Test Dialog"
  size -1 -1 567 284
}

on *:dialog:XBConnect:*:*: {
  if ($devent == init) {
    dcx Mark $dname XBConnect_cb
    xdialog -b $dname +tybs

    ;// Call initilisation alias
    XBConnect_init_dcx
  }
}

alias -l XBConnect_init_dcx {
  ;// Initialising control: Button (Button 1)
  xdialog -c $dname 1 button 8 224 75 30 default tabstop
  xdid -t $dname 1 Button

  ;// Initialising control: (Toolbar 8)
  xdialog -c $dname 8 toolbar 0 0 559 28 flat top list tooltips arrows tabstop
  xdid -l $dname 8 16
  xdid -m $dname 8 0

  ;// Initialising control: Find... (Edit 4)
  xdialog -c $dname 4 edit 12 255 150 20 autohs tabstop return left
  xdid -a $dname 4 Find...

  ;// Initialising control: Button (Button 3)
  xdialog -c $dname 3 button 174 224 75 30 tabstop
  xdid -t $dname 3 Button

  ;// Initialising control: %d %% (Progressbar 6)
  xdialog -c $dname 6 pbar 453 254 100 20 smooth
  xdid -r $dname 6 0 100
  xdid -v $dname 6 0
  xdid -i $dname 6 % $+ d % $+ %

  ;// Initialising control: Clan Details (Box 5)
  xdialog -c $dname 5 box 291 44 250 200 right
  xdid -t $dname 5 Clan Details
  xdid -l $dname 5 root $chr(9) +pl 0 1 0 0

  ;// Initialising control: Button (Button 2)
  xdialog -c $dname 2 button 91 224 75 30 tabstop
  xdid -t $dname 2 Button

  ;// Initialising control: (Panel 7)
  xdialog -c $dname 7 panel 12 58 250 150

}

;// Callback alias for XBConnect
alias XBConnect_cb {
}

;// quick-access menu item
menu status,channel {
  XBConnect : XBConnect
}