All pastes #816669 Raw Edit

Mine

public text v1 · immutable
·published 2007-12-14 22:22 UTC
rendered paste body
on *:INPUT:*:{
  if (%Colours1 == true) { 
    if ( $left($1,1) == ! || $left($1,1) == @ ) { msg $active $1- | halt }
    if ( $left($1,1) == / ) { $$1- | halt } 
    if (%commandwidexp isin $1 || %commandwidacm isin $1 ) { msg $active $1- | halt }
    else {
      msg $active %Coloursunderline $+ %Coloursbold $+ %Colourscolors $+ $1- | halt 
    } 
  } 
}
menu * {
  Colours:/Colours
}
alias Colours /dialog -m Colours Colours
dialog Colours {
  title "Louis|'s Text-Style Selector."
  size -1 -1 100 100
  option dbu
  check      "Activé", 14, 5 2 50 10 
  check        "Bold", 15, 5 12 50 10 
  check   "Underline", 16, 5 22 50 10 
  text  "Colours", 1337, 5 35 20 10, nowrap
  radio   "2", 22, 5 42 20 10
  radio   "3", 23, 25 42 20 10
  radio   "4", 24, 45 42 20 10
  radio   "5", 25, 65 42 20 10
  radio   "6", 26, 85 42 20 10
  radio   "7", 27, 5 52 20 10
  radio   "8", 28, 25 52 20 10
  radio   "9", 29, 45 52 20 10
  radio   "10", 30, 65 52 20 10
  radio   "11", 31, 85 52 20 10
  radio   "12", 32, 5 62 20 10
  radio   "13", 33, 25 62 20 10
  radio   "14", 34, 45 62 20 10
  radio   "15", 35, 65 62 20 10
  button        "Ok!", 20, 10 80 40 15, ok
}
on *:dialog:Colours:sclick:14:{
  if ($did(14).state == 1) {
    set %Colours1 True 
  } 
  elseif ($did(14).state == 0) {
    unset %Colours1 
  }
}
on *:dialog:Colours:init:*:{ 
  if (%Colours1 != $null) { did -c $dname 14 }
  if (%Coloursunderline != $null) { did -c $dname 16 }
  if (%Coloursbold != $null) { did -c $dname 15 }
  if (%Colourscolors != $null) { did -c $dname $calc($replace(%Colourscolors,,) + 20) && did -c $dname 23  }
}
on *:dialog:Colours:sclick:15:{ 
  if ($did(15).state == 1) { 
    set %Coloursbold  
  } 
  elseif ($did(15).state == 0) { 
  unset %Coloursbold } 
}

on *:dialog:Colours:sclick:16:{
  if ($did(16).state == 1) { 
    set %Coloursunderline  
  }  
  elseif ($did(16).state == 0) { 
    unset %Coloursunderline 
  }
}

on *:dialog:Colours:sclick:22:{
  if ($did(22).state == 1) {
    set %Colourscolors 2 
  } 
  elseif ($did(22).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:23:{ 
  if ($did(23).state == 1) {
    set %Colourscolors 3 
  } 
  elseif ($did(23).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:24:{ 
  if ($did(24).state == 1) { 
    set %Colourscolors 4
  } 
  elseif ($did(24).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:25:{ 
  if ($did(25).state == 1) {
    set %Colourscolors 5 
  } 
  elseif ($did(25).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:26:{
  if ($did(26).state == 1) {
    set %Colourscolors 6 
  }
  elseif ($did(26).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:27:{
  if ($did(27).state == 1) {
    set %Colourscolors 7 
  } 
  elseif ($did(27).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:28:{
  if ($did(28).state == 1) {
    set %Colourscolors 8 
  } 
  elseif ($did(28).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:29:{ 
  if ($did(29).state == 1) { 
    set %Colourscolors 9 
  } 
  elseif ($did(29).state == 0) { 
    unset %Colourscolors
  } 
}

on *:dialog:Colours:sclick:30:{ 
  if ($did(30).state == 1) {
    set %Colourscolors 10 
  } 
  elseif ($did(30).state == 0) { 
    unset %Colourscolors 
  } 
}

on *:dialog:Colours:sclick:31:{ 
  if ($did(31).state == 1) { 
    set %Colourscolors 11 
  } 
  elseif ($did(31).state == 0) { 
    unset %Colourscolors
  } 
}

on *:dialog:Colours:sclick:32:{ 
  if ($did(32).state == 1) {
    set %Colourscolors 12 
  } 
  elseif ($did(32).state == 0) {
    unset %Colourscolors
  } 
}

on *:dialog:Colours:sclick:33:{
  if ($did(33).state == 1) { 
    set %Colourscolors 13
  }  
  elseif ($did(33).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:34:{ 
  if ($did(34).state == 1) { 
    set %Colourscolors 14 
  } 
  elseif ($did(34).state == 0) { 
    unset %Colourscolors 
  }
}

on *:dialog:Colours:sclick:35:{
  if ($did(35).state == 1) { 
    set %Colourscolors 15 
  } 
  elseif ($did(35).state == 0) { 
    unset %Colourscolors 
  }
}