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
}
}