dialog color {
  title "Text Changer"
  size -1 -1 325 300
  box "Foreground Color", 3, 5 5 150 250
  list 4, 22 28 110 225
  button "OK", 1, 95 265 50 25, ok 
  button "Cancel", 2, 155 265 50 25, cancel
  text "Bold", 9, 35 265 25 25
  box "Status", 16, 215 256 97 40
  text "On", 12, 224 273 25 25
  radio , 13, 243 272 15 15
  text "Off", 14, 274 273 25 25
  radio , 15, 293 272 15 15
  check "" 10, 60 265 15 15, 
  check "" 11, 60 280 15 15, 
  text "Underline", 8, 10 280 45 25
  box "Background Color", 5, 170 5 150 250
  list 6, 190 28 110 225

}
on *:dialog:color:init:*: {  
  /did -a color 4 White
  /did -a color 4 Black
  /did -a color 4 Dark Blue
  /did -a color 4 Dark Green
  /did -a color 4 Red
  /did -a color 4 Maroon
  /did -a color 4 Purple
  /did -a color 4 Orange
  /did -a color 4 Yellow
  /did -a color 4 Green
  /did -a color 4 Blue-Green
  /did -a color 4 Light Blue
  /did -a color 4 Blue
  /did -a color 4 Pink
  /did -a color 4 Dark Grey
  /did -a color 4 Light Grey
  /did -ck color 4 %foreground
  /did -a color 6 White
  /did -a color 6 Black
  /did -a color 6 Dark Blue
  /did -a color 6 Dark Green
  /did -a color 6 Red
  /did -a color 6 Maroon
  /did -a color 6 Purple
  /did -a color 6 Orange
  /did -a color 6 Yellow
  /did -a color 6 Green
  /did -a color 6 Blue-Green
  /did -a color 6 Light Blue
  /did -a color 6 Blue
  /did -a color 6 Pink
  /did -a color 6 Dark Grey
  /did -a color 6 Light Grey
  /did -ck color 6 %background
  if (%bold == ) {
    did -c color 10
  }
  if (%underline == ) {
    did -c color 11
  }
  if (%color == on) {
    did -c color 13
  }
  else {
    did -c color 15
  }
}
on *:dialog:color:sclick:10: {
  if ($did(color,10).state) {
    /echo Bold text turned on. 
    /set %bold 
  }
  else {
    /echo Bold text turned off. 
    /unset %bold
  }
} 

on *:dialog:color:sclick:11: {
  if ($did(color,11).state) {
    /echo Underline text turned on. 
    /set %underline 
  }
  else {
    /echo Underline text turned off. 
    /unset %underline
  }
} 
on *:dialog:color:sclick:13: {
  /set %color on
  /echo Text Changer turned on.
}
on *:dialog:color:sclick:15: {
  /unset %color
  /echo Text Changer turned off.
}
on *:dialog:color:sclick:1: {
  if ($did(color,4,1) != $null) { /write -c test.txt | /write test.txt $did(color,4,1) }
  if ($did(color,4,2) != $null) { /write test.txt $did(color,4,2) }
  if ($did(color,4,3) != $null) { /write test.txt $did(color,4,3) }
}
on *:dialog:color:sclick:4: {
  if ($did(color,4).sel == 1) { /echo  Foreground color switched to white. | set %foreground 00 }
  if ($did(color,4).sel == 2) { /echo  Foreground color switched to black. | set %foreground 01 }
  if ($did(color,4).sel == 3) { /echo  Foreground color switched to 02dark blue. | set %foreground 02 }
  if ($did(color,4).sel == 4) { /echo  Foreground color switched to 03dark green. | set %foreground 03 }
  if ($did(color,4).sel == 5) { /echo  Foreground color switched to 04red. | set %foreground 04 }
  if ($did(color,4).sel == 6) { /echo  Foreground color switched to 05maroon. | set %foreground 05 }
  if ($did(color,4).sel == 7) { /echo  Foreground color switched to 06purple. | set %foreground 06 }
  if ($did(color,4).sel == 8) { /echo  Foreground color switched to 07orange. | set %foreground 07 }
  if ($did(color,4).sel == 9) { /echo  Foreground color switched to 08yellow. | set %foreground 08 }
  if ($did(color,4).sel == 10) { /echo  Foreground color switched to 09green. | set %foreground 09 }
  if ($did(color,4).sel == 11) { /echo  Foreground color switched to 10blue-green. | set %foreground 10 }
  if ($did(color,4).sel == 12) { /echo  Foreground color switched to 11light blue. | set %foreground 11 }
  if ($did(color,4).sel == 13) { /echo  Foreground color switched to 12blue. | set %foreground 12 }
  if ($did(color,4).sel == 14) { /echo  Foreground color switched to 13pink. | set %foreground 13 }
  if ($did(color,4).sel == 15) { /echo  Foreground color switched to 14dark grey. | set %foreground 14 }
  if ($did(color,4).sel == 16) { /echo  Foreground color switched to 15light grey. | set %foreground 15  }
}
on *:dialog:color:sclick:6: {
  if ($did(color,6).sel == 1) { /echo  Background color switched to white. | set %background 00 }
  if ($did(color,6).sel == 2) { /echo  Background color switched to black. | set %background 01 }
  if ($did(color,6).sel == 3) { /echo  Background color switched to 02dark blue. | set %background 02 }
  if ($did(color,6).sel == 4) { /echo  Background color switched to 03dark green. | set %background 03 }
  if ($did(color,6).sel == 5) { /echo  Background color switched to 04red. | set %background 04 }
  if ($did(color,6).sel == 6) { /echo  Background color switched to 05maroon. | set %background 05 }
  if ($did(color,6).sel == 7) { /echo  Background color switched to 06purple. | set %background 06 }
  if ($did(color,6).sel == 8) { /echo  Background color switched to 07orange. | set %background 07 }
  if ($did(color,6).sel == 9) { /echo  Background color switched to 08yellow. | set %background 08 }
  if ($did(color,6).sel == 10) { /echo  Background color switched to 09green. | set %background 09 }
  if ($did(color,6).sel == 11) { /echo  Background color switched to 10blue-green. | set %background 10 }
  if ($did(color,6).sel == 12) { /echo  Background color switched to 11light blue. | set %background 11 }
  if ($did(color,6).sel == 13) { /echo  Background color switched to 12blue. | set %background 12 }
  if ($did(color,6).sel == 14) { /echo  Background color switched to 13pink. | set %background 13 }
  if ($did(color,6).sel == 15) { /echo  Background color switched to 14dark grey. | set %background 14 }
  if ($did(color,6).sel == 16) { /echo  Background color switched to 15light grey. | /set %background 15  }
}
on *:input:*  { 
  if (($left($1,1) != /) && (%color == on)) { 
    msg $active %bold $+ %underline $+  $+ %foreground $+ , $+ %background $+ $$1- | haltdef 
  }
}