<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.app</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2994</cardID>
<listID>2433</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>352</width>
<height>408</height>
</cardSize>
<script>-------------------------------------------------------------------------------------Aztech Viewer - Gems Collection©1994 Aztech New Media Corp.Written and Designed by Dario BadiaMay 12, 1994-------------------------------------------------------------------------------------on initializeMainGlobals -- specific globals for each collectionglobal collectionTitle,collectionCatalogPath,fetchPath,hiResPath,lowResPathput "Aztech Gems Collection" into collectionTitle -- title for printoutput "GEM_I:FOR_MAC:GEM_I.FTC;1" into collectionCatalogPath -- the path to the catalogput "GEM_I:FOR_MAC:FETCH.APP;1" into fetchPath -- the path to the Fetch browserput "GEM_I:HI_RES:" into hiResPath -- the path to the hi res folderput "GEM_I:LOW_RES:" into lowResPath -- the path to the low res folderend initializeMainGlobalson startup -- works only with System 7.0if systemVersion() < 7.0 thenanswer "This Viewer runs only under System 7.0 or greater. Please upgrade your"¬&&"system software and try again." with "Quit"doMenu ("Quit HyperCard")lock messagesexit startupend ifpass startupend startupon openStackglobal howManyPics,namesDBinitializeMainGlobalsmenusAddColor install--read the file names databaseput (number of lines in cd field "DB") div 2 into howManyPicsput empty into namesDBput empty into cd button "display popup"put 1 into xrepeat for howManyPicsput namesDB & (line x of cd field "DB") & tab & (line x+1 of cd field "DB") & return into namesDBput (line x of cd field "DB") into line ((x+1) div 2) of cd button "display popup"add 2 to xend repeatpass openStackend openStackon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,dissolve,30end colorMeon closeStackAddColor removepass closeStackend closeStackon menusif CommandKey() = up thendelete menu "Style"delete menu "Font"delete menu "Go"delete menu "Edit"delete menu "File"create menu "File"put "Open Original…" into menu "File" with menuMsg "openOriginal"put "Open Catalog" after menu "File" with menuMsg "openCatalog"put "Print Annotations…" after menu "File" with menuMsg "printAnnotations"put "-" after menu "File"put "Quit" after menu "File"set the commandChar of menuItem "Print Annotations…" of menu "File" to "P"set the commandChar of menuItem "Quit" of menu "File" to "Q"end ifcreate menu "View"put "Next" into menu "View"put "Previous" after menu "View"put "Play Forward" after menu "View"put "Play Backward " after menu "View"put "Pause…" after menu "View"put "Stop" after menu "View"put "-" after menu "View"put "Zoom In" after menu "View"put "-" after menu "View"put "Find First…" after menu "View"put "Find Next" after menu "View"set the enabled of menuItem "Stop" of menu "View" to falseset the commandChar of menuItem "Find First…" of menu "View" to "F"set the commandChar of menuItem "Find Next" of menu "View" to "G"set the commandChar of menuItem "Stop" of menu "View" to "K"create menu "Sort"put "by File Name" into menu "Sort" with menuMsg "sortByName"put "by Annotation" after menu "Sort" with menuMsg "sortByAnnotation"set the checkmark of menuItem "by File Name" of menu "Sort" to trueset the checkmark of menuItem "by Annotation" of menu "Sort" to falseset name of menuItem 1 of menu "Apple" to "About Viewer…"end menuson printAnnotationsglobal namesDB,howManyPics,collectionTitleanswer "Print annotations to current selected printer?" with "Cancel","OK"if it is not "OK" then exit printAnnotationsset cursor to busyput collectionTitle & return & return into cd field "infoDB field"set the itemDelimiter to tabput false into reSortif the checkMark of menuItem "by Annotation" of menu "Sort" thensort lines of namesDB by item 1 of eachput true into reSortend ifrepeat with x=1 to howManyPicsset cursor to busyput (item 1 of line x of namesDB)&": "&(item 2 of line x of namesDB) into line x+3 of cd field "infoDB field"end repeatif reSort then sort lines of namesDB by item 2 of eachset the textFont of cd field "infoDB field" to "Helvetica"set the textSize of cd field "infoDB field" to 10set the textStyle of cd field "infoDB field" to plainset the textSize of line 1 of cd field "infoDB field" to 18set the textStyle of line 1 of cd field "infoDB field" to Boldprint cd field "infoDB field"set the itemDelimiter to commaend printAnnotationson openCatalogglobal collectionCatalogPath,fetchPathopen collectionCatalogPath with fetchPathend openCatalogon showCreditspicture "About",resource,dialog,false,,trueset the loc of window "About" to "47,77"show window "About"wait until mouseClick()close window "About"end showCredits</script>
