Forums Scripts & Popups dialog init

on *:dialog:[color:red]name[/color]:init:*: did -b $dname [color:red]ID_OF_BUTTON[/color]
on *:dialog:[color:red]name[/color]:sclick:[color:red]ID_OF_LISTBOX[/color]: did -e $dname [color:red]ID_OF_BUTTON[/color]

  button "Add", 7, 112 40 20 10, flat default tab 1
  button "Add", 14, 112 40 20 10, flat default tab 2

dialog t {
  title ""
  size -1 -1 300 300
  option dbu
  list 1, 0 0 300 270, vsbar
  button "clear", 2, 270 270 20 20
  button "add item", 3, 240 270 20 20
}
on *:dialog:t:mouse:*:{
  if ($did(2).enabled) && (!$did(1).lines) did -b $dname 2
  elseif ($did(1).lines) && (!$did(2).enabled) did -e $dname 2
}
on *:dialog:t:sclick:2: did -r $dname 1
on *:dialog:t:sclick:3: did -a $dname 1 test

  
  if ($did = 49) { 
    if ($did(46,1).sel) { 
 some code that re-loads contents of .txt into list
    }
    if ($did(46,0).sel) { .did -b protect 49 }
  ;this is where it should disable button 49
  }

    if ([color:red]![/color]$did(46,0).sel) { .did -b protect 49 }

  if ([color:red]![/color]$did(46,0).sel) { .did -b protect 49 }

if ($did(name,id,0)[color:red].sel[/color] == 0)

dialog list {
  title "List Box"
  size -1 -1 200 100
  option dbu
  list 100, 20 20 160 60
  button "Add", 900, 30 75 60 10
  button "Remove", 901, 110 75 60 10
}

;; disable the remove button when starting
on *:dialog:list:init:0:{
  did -b list 901
}

;; Add something to the listbox, 
;; and if something is added, enable the remove button
on *:dialog:list:sclick:900:{
  if ($cb(0)) { 
    did -a list 100 $cb 
    did -e list 901 
  }
} 

;; Remove a line from the list
;; if the list is empty, disable the remove button
on *:dialog:list:sclick:901:{
  did -d list 100 $did(list,100).sel
  if (!$did(list,100).lines) { did -b list 901 }
} 

alias list dialog -m list list

dialog list {
  title "List Box"
  size -1 -1 200 100
  option dbu
  tab "One", 1, 0 0 200 100
  tab "Two", 2
  list 100, 20 20 160 60, tab 1
  button "Add", 900, 30 75 60 10, tab 1
  button "Remove", 901, 110 75 60 10, tab 1
  list 101, 20 20 160 60, tab 2
  button "Add", 902, 30 75 60 10, tab 2
  button "Remove", 903, 110 75 60 10, tab 2
}
on *:dialog:list:init:0:{
  did -b list 901,903
}
on *:dialog:list:sclick:1:{
  did -t list 100 1
}
on *:dialog:list:sclick:2:{
  did -t list 101 1
}
on *:dialog:list:sclick:900:{
  if ($cb(0)) { 
    did -a list 100 $cb 
    did -e list 901 
  }
}  
on *:dialog:list:sclick:901:{
  did -d list 100 $did(list,100).sel
  if (!$did(list,100).lines) { did -b list 901 }
}

on *:dialog:list:sclick:902:{
  if ($cb(0)) { 
    did -a list 101 $cb 
    did -e list 903 
  }
}  
on *:dialog:list:sclick:903:{
  did -d list 101 $did(list,101).sel
  if (!$did(list,101).lines) { did -b list 903 }
}

alias listme dialog -m listme listme

dialog listme {
  title "listme Box"
  size -1 -1 200 100
  option dbu
  tab "One", 1, 0 0 200 100
  tab "Two", 2
  list 100, 20 20 160 60, tab 1
  button "Add", 900, 30 75 60 10, tab 1
  button "Remove", 901, 110 75 60 10, tab 1
  list 101, 20 20 160 60, tab 2
  button "Add", 902, 30 75 60 10, tab 2
  button "Remove", 903, 110 75 60 10, tab 2
}
on *:dialog:listme:init:0:{
  did -b listme 901,903
}
on *:dialog:listme:sclick:1:{
  did -t listme 100 1
}
on *:dialog:listme:sclick:2:{
  did -t listme 101 1
}
on *:dialog:listme:sclick:900:{
  if ($cb(0)) { 
    did -a listme 100 $cb 
    did -e listme 901 
  }
}  
on *:dialog:listme:sclick:901:{
  did -d listme 100 $did(listme,100).sel
  if (!$did(listme,100).lines) { did -b listme 901 }
}

on *:dialog:listme:sclick:902:{
  if ($cb(0)) { 
    did -a listme 101 $cb 
    did -e listme 903 
  }
}  
on *:dialog:listme:sclick:903:{
  did -d listme 101 $did(listme,101).sel
  if (!$did(listme,101).lines) { did -b listme 903 }
}

on *:dialog:listme:sclick:901:{
  if (!$did(100).sel) || (!$did(100).lines) { 
    did -b listme 901 
    return
  }
  did -d listme 100 $did(100).sel
  did -b listme 901
}

on *:dialog:listme:sclick:100: did -e listme 901