I use an icon collection that is a whole pile (around 2000) of png images stored in a hierarchy of folders (eg Objects and People/48×48/plain/). It has become annoying finding and importing these images one by one into my applications as needed so I wrote a little drag and drop plugin to import images into a stack whenever they are dropped. It works until you have an app your working on that uses drag and drop and then it fails so I thought I’d give the rev image library setup a go. Rather than import images into libraries by hand I decided to slap together a little recursive image library from folder script. Copy the code to a button then click it. The library name is built out of the names of the folders starting with the one you selected.
on mouseUp local tLibraryFileA answer folder "Choose a folder:" if the result is "cancel" then exit mouseUp recursiveImageLibrary it,"",tLibraryFileA repeat for each line tLine in the keys of tLibraryFileA createImageLibrary tLine,tLibraryFileA[tLine] end repeat end mouseUp on recursiveImageLibrary pFolder,pLibraryName,@pLibraryFileA local tOldFolder put the defaultFolder into tOldFolder set the defaultFolder to pFolder set the itemDel to "/" if pLibraryName <> "" then put " " after pLibraryName put item -1 of pFolder after pLibraryName set the itemDel to "." repeat for each line tFile in the files if item -1 of tFile is among the items of "jpg.png.gif" then put pFolder&"/"&tFile&cr after pLibraryFileA[pLibraryName] end if end repeat repeat for each line tFolder in line 2 to -1 of the folders recursiveImageLibrary pFolder&"/"&tFolder,pLibraryName,pLibraryFileA end repeat end recursiveImageLibrary on createImageLibrary pLibraryName,pLibraryFiles local tHighID,tList -- create the stack put 230000 into tHighID if char 1 to 6 of pLibraryName is not "revLib" then put "revLib" before pLibraryName if there is a stack pLibraryName then answer error "A library with the same name ("&pLibraryName&") as this library already exists." with "Cancel" exit createImageLibrary end if put revAbsoluteFolderListing(revEnvironmentUserResourcesPath("Icon Libraries",true)) into tList put cr & "revGeneralIcons" & cr & "revCompatibilityIcons1" after tList repeat for each line l in tList if l is empty or there is not a stack l then next repeat if the name of stack l is pLibraryName then answer error "That library already exists." with "Cancel" exit createImageLibrary end if put the ID of stack l into item (the number of items in tHighID+1) of tHighID end repeat if there is a file (pLibraryName & ".rev") then answer error "A library with the name" && pLibraryName & ".rev" && "already exists." with "Cancel" exit createImageLibrary end if set the name of the templateStack to pLibraryName set the destroyStack of the templateStack to false lock messages set the style of the templateStack to "modeless" create invisible stack reset the templateStack set the mainStack of stack pLibraryName to pLibraryName set the ID of stack pLibraryName to (max(tHighID)+1) set the fileName of stack pLibraryName to revEnvironmentUserResourcesPath("Icon Libraries") & "/" & pLibraryName & ".rev" set the defaultStack to pLibraryName -- just to make sure -- now import all the images repeat for each line tImage in pLibraryFiles if there is a file tImage then if tImage is not empty then import paint from file tImage end if end if end repeat compact stack pLibraryName save stack pLibraryName close stack pLibraryName unlock messages end createImageLibrary
OK, once you are done there are two IDE mods that you should make.
If you had a big hierarchy of folders like me you will probably want to sort the image library list so choose View > Revolution UI Elements In Lists from the menu then open up the application browser and find the images card of the revImageLibrary stack and edit the script. Just after “delete last char of tStacksList” add “sort tStacksList”
Next for some reason way back in the depths of time the good people at RunRev forgot to upgrade the icon chooser to support image libraries. “What’s the point of image libraries without them being in the icon chooser?” I hear you ask. Very good question.
Replace the preOpenStack handler in revIconChooser card 1 with:
on preOpenStack put revAbsoluteFolderListing(revEnvironmentResourcesPath("Icon Libraries")) into tEnvironmentIcons put revAbsoluteFolderListing(revEnvironmentUserResourcesPath("Icon Libraries")) into tUserIcons put revCombineFilePaths(tUserIcons,tEnvironmentIcons) into tList repeat for each line l in tList if there is not a stack l then next repeat -- windows placeholder if char 1 to 6 of the short name of stack l is "revLib" then put char 7 to -1 of the short name of stack l & cr after tStacksList else if char 1 to 3 of the short name of stack l is "rev" then put char 4 to -1 of the short name of stack l & cr after tStacksList else put the short name of stack l & cr after tStacksList end repeat delete last char of tStacksList sort tStacksList put the text of btn "library chooser" into tText if the platform is "MacOS" then put "-" into tDivider else put empty into tDivider if tStacksList is not empty then put line 1 to 5 tText & cr & tDivider & cr & tStacksList into btn "library chooser" else put line 1 to 5 of tText into btn "library chooser" send "menuPick" && the label of btn "library chooser" to btn "library chooser" set the thumbPosition of scrollbar "iconchooserscrollbar" to 0 put the cCurrentIcon of this stack into fld "ID" # TH-2008-03-06 : Fix for bug 5987 set the pageIncrement of scrollbar "iconchooserscrollbar" to 20 set the lineIncrement of scrollbar "iconchooserscrollbar" to 10 end preOpenStack
Then edit the script of the “library chooser” button on that card. Where it says:
else put "rev" & pWhich into tStackName
else put "rev" & pWhich into tStackName if there is not a stack tStackName then put "revLib"&pWhich into tStackName end if end if