All pastes #442410 Raw Edit

Something

public text v1 · immutable
·published 2007-04-16 08:11 UTC
rendered paste body
alias F8 { dialog -m CustomOutline CustomOutline }
dialog CustomOutline {
  title "Outline Dialog v1.1 By UnbOrN"
  size -1 -1 136 68
  option dbu
  edit "", 1, 2 7 49 10, autohs
  box "Custom Outline", 2, 1 0 134 20
  edit "", 3, 84 7 49 10, autohs
  text "Text Here...", 4, 51 8 33 8, center
  text "Welcome to UnbOrN's Text Outliner. Basically to use, enter Text and Color Codes into the TextBoxes, and hit Save. Whenever you Speak, It will Add the Prefixes and Suffixes. To Exit, still using Outlines, Hit 'Exit'. To stop using Outlines, hit 'EndOutlines'.", 5, 1 35 134 32, center
  button "Save", 6, 3 20 37 12
  button "End Outlines", 7, 49 20 37 12
  button "Exit", 8, 96 20 37 12, ok cancel
}


on *:DIALOG:CustomOutline:init:0:{
  did -a CustomOutline 1 %prefix
  did -a CustomOutline 3 %suffix
}

on *:DIALOG:CustomOutline:sclick:6:{ 
  set %prefix $did(1).text
  set %suffix $did(3).text
  did -ra CustomOutline 5 Suffix And Prefix Saved Successfully.
  .enable #custominput
}

on *:DIALOG:CustomOutline:sclick:7:{
  unset %prefix
  unset %suffix
  .disable #custominput
  did -r CustomOutline 1
  did -r CustomOutline 3
  did -ra CustomOutline 5 Suffix and Prefix Deleted.
}
#custominput on
on *:INPUT:*:{ 
  if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { 
    msg $active $+(%prefix,,$chr(32),$1-,$chr(32),,%suffix)
    halt 
  } 
}
#custominput end