home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Web / Homesite / data1.cab / HS_Wizards / HTML / Frames_HandleFrame.wml < prev    next >
Text File  |  1999-04-12  |  2KB  |  75 lines
  1. <!---- frame ---->
  2. <WIZSET i = 0>
  3. <WIZLOOP index="attribute" list="$${Evaluate('Frame' & Level)}">
  4.     <WIZSET i = i + 1>
  5.     <WIZIF i eq 2>
  6.         <WIZSET Name = attribute>
  7.     <WIZELSEIF i eq 3>
  8.         <WIZSET Src = attribute>
  9.     <WIZELSEIF i eq 4>
  10.         <WIZSET NoResize = attribute>
  11.     <WIZELSEIF i eq 5>
  12.         <WIZSET Scrolling = attribute>
  13.     <WIZELSEIF i eq 6>
  14.         <WIZSET FrameBorder = attribute>
  15.     <WIZELSEIF i eq 7>
  16.         <WIZSET MarginWidth = attribute>
  17.     <WIZELSEIF i eq 8>
  18.         <WIZSET MarginHeight = attribute>
  19.     </WIZIF>
  20. </WIZLOOP>
  21.  
  22.  
  23. <!---- Tag name ---->
  24. <WIZSET FrameTagName = DefaultCase('FRAME')>
  25.  
  26. <!---- NAME attribute ---->
  27. <WIZSET aName = ' ' & DefaultCase('NAME') & '="' & Name & '"'>
  28.  
  29. <!---- SRC attribute ---->
  30. <WIZSET aSrc = ' ' & DefaultCase('SRC') & '="' & Src & '"'>
  31.  
  32. <!---- NORESIZE attribute ---->
  33. <WIZIF NoResize>
  34.     <WIZSET aNoResize = ' ' & DefaultCase('NORESIZE')>
  35. <WIZELSE>
  36.     <WIZSET aNoResize = ''>
  37. </WIZIF>
  38.  
  39. <!---- SCROLLING attribute ---->
  40. <WIZIF Scrolling eq 0>
  41.     <WIZSET aScrolling = ' ' & DefaultCase('SCROLLING') & '="auto"'>
  42. <WIZELSEIF Scrolling eq 1>
  43.     <WIZSET aScrolling = ' ' & DefaultCase('SCROLLING') & '="yes"'>
  44. <WIZELSE>
  45.     <WIZSET aScrolling = ' ' & DefaultCase('SCROLLING') & '="no"'>
  46. </WIZIF>
  47.  
  48. <!---- FRAMEBORDER attribute ---->
  49. <WIZIF FrameBorder>
  50.     <WIZSET aFrameBorder = ' ' & DefaultCase('FRAMEBORDER') & '="1"'>
  51. <WIZELSE>
  52.     <WIZSET aFrameBorder = ' ' & DefaultCase('FRAMEBORDER') & '="0"'>
  53. </WIZIF>
  54.  
  55. <!---- MARGINWIDTH attribute ---->
  56. <WIZIF Trim(MarginWidth) neq ''>
  57.     <WIZSET aMarginWidth = ' ' & DefaultCase('MARGINWIDTH') & '="' & MarginWidth & '"'>
  58. <WIZELSE>
  59.     <WIZSET aMarginWidth = ''>
  60. </WIZIF>
  61.  
  62. <!---- MARGINHEIGHT attribute ---->
  63. <WIZIF Trim(MarginHeight) neq ''>
  64.     <WIZSET aMarginHeight = ' ' & DefaultCase('MARGINHEIGHT') & '="' & MarginHeight & '"'>
  65. <WIZELSE>
  66.     <WIZSET aMarginHeight = ''>
  67. </WIZIF>
  68.  
  69. >
  70. $${RepeatString( ' ', 4*Level )}<$${FrameTagName}$${aName}$${aSrc}$${aMarginWidth}$${aMarginHeight}$${aScrolling}$${aFrameBorder}$${aNoResize}
  71.  
  72.  
  73.  
  74.  
  75.