Users can attach "Icons" from the NPR.ICON dictionary to "Desktop" style menus for the NUI Workstation.
These are the steps for creating a report that displays all of the bitmaps (from NPR.BMP) that are connected to icons:
IF{/DONE; 1^/DONE^/Z.SCHED.LOG^/R.FRAGMENT, @Not(@.gui) @W.err("This report should be run from the NUI Workstation only!"); @SETUP, @GET.TEMP.LIST, @DISPLAY, @CLEAN.UP},END;DISPLAY""^CNT^NUM^DONE,DO{+(/TEMP[CNT],filename)^CNT&@Not(DONE) @DISPLAY.ICON}DISPLAY.ICON@Mouse.pointer(@Z.mouse.ptr.hour.glass),IF{@Add(1,NUM)\15=0 84;NUM\15-1*6}^COL,NUM-1/15*3^ROW,TITLE_"\"_filename^FILE,@Pos(ROW,COL)^#,@Button.create(11,10,5,100,50,0,FILE)^/ICON.HANDLE[CNT],CNT^/HANDLE.MAP[/ICON.HANDLE[CNT]],@Button.tooltip(/ICON.HANDLE[CNT],"Please click here for info on bitmap "_filename),IF{NUM=105!@Not(+/TEMP[CNT]) @Mouse.pointer(@Z.mouse.ptr.std.arrow), @REMOVE.BUTTONS}REMOVE.BUTTONS%Z.init.build.folders("T")^TBF,@Pos(23,20)^#,@Button.create(11,10,5,100,50,0,TBF_"\"_"left arrow.bmp")^PREV,@Button.tooltip(PREV,"Previous set of bitmaps"),@Pos(23,40)^#,@Button.create(11,10,5,100,50,0,TBF_"\"_"exit.bmp")^EXIT,@Button.tooltip(EXIT,"Exit"),@Pos(23,60)^#,@Button.create(11,10,5,100,50,0,TBF_"\"_"right arrow.bmp")^NEXT,@Button.tooltip(NEXT,"Next set of bitmaps"),IF{@Not(+/TEMP[CNT]) @Button.disable(NEXT)},IF{@Not(-/TEMP[CNT-104]) @Button.disable(PREV)},DO