HTML Page Genorator

By `Green on Mar 04, 2009

i don't know what to say for a intro lol :) and my first snippet for a while

dialog HTML {
  title "HTML Page Generator"
  size -1 -1 239 177
  option dbu
  tab "Page Maker", 1, 1 1 236 246
  box "Page", 3, 1 17 235 159, tab 1
  text "Title", 4, 9 26 25 8, tab 1 center
  edit "", 5, 36 25 196 10, tab 1 autohs
  box "Body Editor", 6, 5 56 223 62, tab 1
  combo 7, 10 73 44 94, tab 1 size drop
  text "Text Color", 12, 10 64 43 8, tab 1 center
  button "GENERATE!", 19, 98 121 37 17, tab 1 flat
  combo 8, 64 74 44 94, tab 1 size drop
  text "Vlink", 13, 64 64 43 8, tab 1 center
  combo 9, 116 74 44 94, tab 1 size drop
  text "Hlink", 14, 117 65 43 8, tab 1 center
  text "Alink", 15, 170 64 43 8, tab 1 center
  combo 10, 171 74 44 94, tab 1 size drop
  combo 11, 10 93 44 94, tab 1 size drop
  text "BG color", 16, 10 84 43 8, tab 1 center
  edit "", 17, 6 151 223 23, tab 1 autohs hsbar
  text "HTML Page Code", 18, 7 141 221 8, tab 1 center
  edit "", 28, 10 105 211 10, tab 1 autohs
  text "Background image URL", 29, 56 94 163 8, tab 1 center
  text "What you want you page to say. (put embed codes and links here)", 30, 9 36 222 8, tab 1 center
  edit "", 31, 9 46 223 10, tab 1 autohs
  tab "Other Stuff", 2
  box "Link to a Website or Another page", 20, 3 15 233 87, tab 2
  text "Link", 21, 5 24 229 8, tab 2 center
  edit "http://", 22, 5 34 229 10, tab 2 autohs
  text "Link Text", 23, 5 45 228 8, tab 2 center
  edit "", 24, 5 55 229 10, tab 2 autohs
  link "", 25, 7 91 226 8, tab 2
  button "GENERATE!", 26, 6 66 227 11, tab 2
  edit "", 27, 6 79 227 10, tab 2 autohs
  box "Text Editor", 32, 5 104 232 81, tab 2
  combo 33, 8 123 36 50, tab 2 size drop
  text "Text Size", 34, 8 113 35 8, tab 2 center
  combo 35, 50 123 42 50, tab 2 size drop
  text "Text Color", 36, 50 113 41 8, tab 2 center
  button "GENERATE!", 41, 8 149 224 11, tab 2
  edit "", 42, 8 162 224 10, tab 2
  edit "", 37, 8 137 224 10, tab 2
  text "Enter text here", 38, 95 128 136 8, tab 2 center
}
on *:dialog:html:*:*:{
  if ($devent == init) {
    did -ca html 5 Home Page
    did -ca html 7,35 Black
    did -ca html 8 Blue
    did -ca html 9 Purple
    did -ca html 10 Green
    did -ca html 11 White
    did -ca html 33 1
    didtok html 33 44 2,3,4,5,6,8,9,10
    didtok $dname 7,8,9,10,11,35 44 Red,Blue,Green,Black,White,Purple
  }
  if ($devent == sclick) {
    if ($did == 19) {
      did -ra html 17 <html><header><title> $+ $did(5) $+ </title></header><body background=" $+ $did(28) $+ " text=" $+ $did(7) $+ " bgcolor=" $+ $did(11) $+ " link=" $+ $did(8) $+ " vlink=" $+ $did(9) $+ " alink=" $+ $did(10) $+ " $+ > $+ $did(31) $+ </header></body></html>
    }
    if ($did == 26) {
      did -ra html 25 $did(24)
      did -ra html 27 <a href=" $+ $did(22) $+ "> $+ $did(24) $+ </a>
    }
    if ($did == 41) {
      did -ra html 42 <font size=+ $+ $did(33) color=" $+ $did(35) $+ "> $+ $did(37) $+ </font>
    }
  }
}
menu * {
  HTML Page Maker: dialog -m html html
}

Like Page Follow Author

Comments

`Green - Mar 04, 2009

i don't know how to make it more then one line in the $did(17) i can get it all to go to the box but i don't know how to make it more then one line. or else i would have

Respond

Kirby - Mar 04, 2009

Very nice, concise dialog script `Green!
You might want to change these two edit boxes to readonly though.

  edit "", 17, 6 151 223 23, tab 1 autohs hsbar readonly
  edit "", 42, 8 162 224 10, tab 2 readonly

Maybe for the edit box ($did 31) under "What you want you page to say. (put embed codes and links here)", maybe make it multi-line (along with $did 17).

Respond