<< IF COLS(bb.packlist) < 3 THEN bb.message = "Pack List is Empty" IF bb.checkingicon = "YES" THEN goto bb.path+"checkicon.html" ELSE goto bb.path+"buildfilelist.html" /IF /IF bb.tdir1 = GETCOLEND(bb.packlist,1,".JPG") bb.tdir2 = GETCOLEND(bb.packlist,1,".GIF") IF COLS(bb.tdir2) > 1 THEN IF COLS(bb.tdir1) > 1 THEN APPEND bb.tdir2 TO bb.tdir1 /APPEND ELSE bb.tdir1 = bb.tdir2 /IF /IF IF COLS(bb.tdir1) > 1 THEN FOR NAME=bb.idx VALUE=1 TO ROWS(bb.tdir1) DO bb.tdir1[1,bb.idx] = bb.packdir + "/" + bb.tdir1[1,bb.idx] /FOR /IF bb.tdir2 = "" bb.tmp = GETCOLEQ(bb.packlist,2,"DIR") IF COLS(bb.tmp) > 1 THEN FOR NAME=bb.tmp ROWNAME=bb.row DO bb.flist = bbcheckdir (bb.row[3],".JPG") IF bb.flist <> "EMPTY" THEN IF bb.tdir1 = "" THEN bb.tdir1 = bb.flist ELSE APPEND bb.flist TO bb.tdir1 /APPEND /IF /IF bb.flist = bbcheckdir (bb.row[3],".GIF") IF bb.flist <> "EMPTY" THEN IF bb.tdir1 = "" THEN bb.tdir1 = bb.flist ELSE APPEND bb.flist TO bb.tdir1 /APPEND /IF /IF /FOR /IF bb.tdir1=getcolnoteq(bb.tdir1,1,"") bb.tdir1=sortcol(bb.tdir1,1) ### set image var to correct path ###/# IF fm.select.x = "error" THEN IF bb.tempiconfile = "error" THEN bb.tempiconfile="/system/desktop/icons/generic.gif" tempiconfile="/system/desktop/icons/generic.gif" else IF locate(tempiconfile,"/system/desktop/icons/") <> 1 THEN tempiconfile=bb.packdir+'/'+bb.tempiconfile /IF /IF /IF fm.select.x="error" >> Aestiva Bundle Bee
<>
 
Bundle Wizard
 
Step 3: Click an image within this bundle to select the Aestiva Desktop icon
for this application. Then click "Continue".

If you are creating a Bundle that will not need a Desktop icon, click  HERE
< "YES" THEN DISPLAY '' /DISPLAY /IF >>   
 
<< IF bb.iconfile = "NONE" THEN DISPLAY "No Current Icon" /DISPLAY ELSE DISPLAY "Current Icon:      " /DISPLAY /IF >> >','IconSelect','resizable=yes,scrollbars=yes,status=no,menubar=no,height=525,width=550')">Select from System Icons
Images within this bundle:
<< IF bb.message <> "ERROR" THEN DISPLAY "" /DISPLAY bb.message = "ERROR" /IF >> ' /DISPLAY /FOR /IF >>
"+bb.message + "
<< IF fm.start="error" or fm.start="" THEN fm.start="1" /IF webpub.view.prev = webpub.view webpub.view = 20 fm.end=fm.start+webpub.view-1 total.files=rows(bb.tdir1) page.count=roundup(rows(bb.tdir1)/webpub.view) current.page=fm.end/webpub.view currentimagelist=gettable(bb.tdir1,1,5,fm.start,fm.end) # DISPLAY # "currentimagelist:
"+ # "
"+layout(currentimagelist,"")+"
",[1],"", # [2],"",[3],"

" # /DISPLAY /# IF currentimagelist[1,1] <> "" THEN FOR name=currentimagelist rowname=r DO DISPLAY '
  << IF isinteger(webpub.view) and total.files>webpub.view THEN DISPLAY '   ' /DISPLAY /IF >> <> << webpub.view = webpub.view.prev i = 1 display "" /display FOR name=bb.tdir1 rowname=r DO display "" /display i = i + 1 /FOR display "
"+i+""+r[1]+""+r[2]+""+r[3]+""+r[4]+"
" /display >> <> < "error" THEN goto page /IF >> <> <>