Groups Manager

By Firstmate on Feb 08, 2009

Well, it's a groups manager. Type /groupm to start it. Load in remotes.

P.S. Don't get confused with Scakk's version: http://www.hawkee.com/snippet/5115/ His is a remote groups manager.

;Group Manager v0.1
;Made by Firstmate
alias groupm dialog $iif($dialog(group),-v,-dm) group group
dialog Group {
  title "Group Manager"
  size -1 -1 120 85
  option dbu
  list 1, 4 13 39 70, size
  text "Groups", 2, 5 1 49 9
  box "Status", 3, 50 15 58 24
  radio "On", 4, 54 24 21 10
  radio "Off", 5, 80 24 24 10
  box "Path", 6, 50 43 58 28
  edit "", 7, 54 54 50 10, read autohs
  text "Made by Firstmate", 8, 59 75 50 8
}
on *:dialog:group:init:0: {
  var %i = 1, %x = $group(0)
  while (%i <= %x) { did -a group 1 $group(%i) | inc %i }
}
on *:dialog:group:sclick:1: {
  var %group = $did(group,1,$did(group,1).sel)
  did -u group 4 | did -u group 5
  did -c group $iif($group(%group).status == on,4,5)
  did -ra group 7 $group(%group).fname
}
on *:dialog:group:sclick:4: {
  var %group = $did(group,1,$did(group,1).sel)
  .enable %group
  did -u group 5 | did -c group 4 
}
on *:dialog:group:sclick:5: {
  var %group = $did(group,1,$did(group,1).sel)
  .disable %group
  did -u group 4 | did -c group 5 
}

Comments

Sign in to comment.
Prelude   -  Feb 08, 2009

Looks good FM. 7/10

 Respond  
Scakk   -  Feb 08, 2009

I made a dialog one also http://www.hawkee.com/snippet/5114/

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.