BBjTree::setDragEnabled

Description

In BBj 8.0 and higher, this method sets whether the BBjTree control should allow drag operations.

Syntax

Return Value

Method

void

setDragEnabled(boolean enable)

Parameters

Variable

Description

enable

Sets whether drag operations are enabled.

0 = Disable drag operations

1 = Enable drag operation (default).

Return Value

None.

Remarks

By default, drag operations are enabled.

Example

rem ' setDragEnabled

sysgui=unt
open (sysgui)"X0"
sysgui!=BBjAPI().getSysGui()
parent_id=0
node_id=100
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 Troubled Waters"
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 Natural Stone"
MUSIC$[2,4]="This Morning"
window!=sysgui!.addWindow(200,200,300,250,"Musical Tree",$0093$,$$)
tree!=window!.addTree(101,0,0,300,250)
tree!.setDragEnabled(0)
dragEnabled = tree!.getDragEnabled()
tree!.setRoot(parent_id,"Musical Tree")
FOR ARTIST=0 TO 2
  node_id=node_id+1
  tree!.addExpandableNode(node_id,parent_id,MUSIC$[ARTIST,0])
  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])
  NEXT SONG
NEXT ARTIST
window!.setVisible(1)
CALLBACK(ON_TREE_SELECT,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_DESELECT,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_EXPAND,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_COLLAPSE,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_EDIT_STOP,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_MOUSE_UP,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_MOUSE_DOWN,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_DOUBLE_CLICK,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_RIGHT_MOUSE_UP,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_TREE_RIGHT_MOUSE_DOWN,TREE_MOUSE,sysgui!.getContext(),tree!.getID())
CALLBACK(ON_CLOSE,APP_CLOSE,sysgui!.getContext())
PROCESS_EVENTS
tree_mouse:
dim event$:tmpl(sysgui),generic$:noticetpl(0,0)
event$=sysgui!.getLastEventString()
generic$=notice(sysgui,event.x)
dim notice$:noticetpl(generic.objtype,event.flags)
notice$=generic$
switch notice.code
   case 1; print "Node",notice.node," selected"; break
   case 2; print "Node",notice.node," deselected"; break
   case 3; print "Node",notice.node," expanded"; break
   case 4; print "Node",notice.node," collapsed"; break
   case 5; print "Node",notice.node," editing stopped"; break
   case 6; if notice.lparam then print "Mouse down" else print "Mouse up" fi; break
   case 7; print "Mouse double click"; break
   case 8; if notice.lparam then print "Right mouse down" else print "Right mouse up" fi; break
   print "Unknown event",notice.code
swend
return
APP_CLOSE:
RELEASE

See Also

BBjAPI

BBjSysGui

BBjControl

See the BBj Object Diagram for an illustration of the relationship between BBj Objects.



______________________________________________________________________________________

Copyright BASIS International Ltd. BBj®, Visual PRO/5®, PRO/5®, and BBx® are registered trademarks.