rem 'Set node-specific icons in a tree control
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
im! = sysgui!.getImageManager()
basis$ = "com/basis/bbj/images/basis-b.gif"
basis! = im!.loadImageFromServerJar(basis$)
image$ = "com/basis/bbj/images/red-ball.gif"
image! = im!.loadImageFromServerJar(image$)
next$ = "com/basis/bbj/images/NavigatorNext.gif"
next! = im!.loadImageFromServerJar(next$)
prev$ = "com/basis/bbj/images/NavigatorPrevious.gif"
prev! = im!.loadImageFromServerJar(prev$)
window! = sysgui!.addWindow(100,100,300,300,"BBjTree",$00090003$)
window!.setCallback(window!.ON_CLOSE,"eoj")
tree! = window!.addTree(101,0,0,300,300)
root_id = 0
tree!.setRoot(root_id,"Musical Tree")
tree!.setNodeIcon(root_id, basis!)
rem 'tree!.setLeafIcon(image!)
rem 'tree!.setCollapsedIcon(prev!)
rem 'tree!.setExpandedIcon(next!)
dim music$[2,4]
music$[0,0]="The Beatles"
music$[0,1]="Hey Jude"
music$[0,2]="Let It Be"
music$[0,3]="Twist and Shout"
music$[0,4]="Yesterday"
music$[1,0]="Paul Simon"
music$[1,1]="Bridge Over TroubledWater"
music$[1,2]="Hearts and Bones"
music$[1,3]="Kathy's Song"
music$[1,4]="The Sound of Silence"
music$[2,0]="Willie Nelson"
music$[2,1]="Always On My Mind"
music$[2,2]="Getting Over You"
music$[2,3]="Old Fords and NaturalStone"
music$[2,4]="This Morning"
parent_id = root_id
for artist = 0 to 2
node_id = node_id + 1
tree!.addExpandableNode(node_id,parent_id, music$[artist,0])
tree!.setNodeIcon(node_id, image!)
song_parent_id = node_id
for song = 1 to 4
node_id = node_id +1
tree!.addNode(node_id,song_parent_id, music$[artist,song])
tree!.setNodeIcon(node_id,image!)
if (node_id=10) then
tree!.setNodeIcon(node_id,next!)
tree!.setNodeSelectedImage(node_id,prev!)
endif
next song
next artist
process_events
eoj:
release
|
