[VarDef,numberOfLayers,0] [VarDef,layerName(256),""] [VarDef,layerInt(256),0] //****routine to find the number of layers***************** [RoutineDef,GetLayers, [VarSet,numberOfLayers,0] [If,[IsEnabled,Tool:Layers:Layers Scrollbar], //store current scroll bar position [VarSet,tmpScrPos,[IGetSecondary,Tool:Layers:Layers Scrollbar]] //set scroll bar to a maximum to ensure it is at the top [ISet,Tool:Layers:Layers Scrollbar,0,256] [VarSet,numberOfLayers,[IGetSecondary,Tool:Layers:Layers Scrollbar]+1] [ISet,Tool:Layers:Layers Scrollbar,0,tmpScrPos]//reset scroll bar , [If,[IsEnabled,"Tool:Layers:Layer Intensity"], [VarSet,numberOfLayers,1] ] ] ]//end routine //****routine to get names of all layers***************** [RoutineDef,GetLayerNames, [If,[IsEnabled,"Tool:Layers:Layer Intensity"], //go to top of list [Loop,numberOfLayers, [If,[IsEnabled,Tool:Layers:SelectUp], [IPress,Tool:Layers:SelectUp] , [LoopExit] ] ] //get the names [Loop,numberOfLayers, [VarSet,layerName(n),[IGetTitle,"Tool:Layers:Layer Intensity",0]] [VarSet,layerInt(n),[IGet,"Tool:Layers:Layer Intensity"]] [If,[IsEnabled,Tool:Layers:SelectDown], [IPress,Tool:Layers:SelectDown] ] ,n] ] ] [IButton,GetNames,"Get the names for all layers", [RoutineCall,GetLayers] [RoutineCall,GetLayerNames] [If,numberOfLayers, [Note,[StrMerge,"There are ",[Val,numberOfLayers]," Layers :\n\n"],,-1] , [Note,"There are no layers",,3][Exit] ] [Loop,numberOfLayers, [Note,[StrMerge,"Layer ",[Val,n]," : ",[Var,layerName(n)]," : ",[Var,layerInt(n)],"\n"],,-1] ,n] [Note,""] ]//end button