// Trigger example object->sync
/*
Display object information when the user
selects a new object
*/
Trigger currentObjectTrigger = null

DB baseDB = null
DBE infoDBE = null

void newObjectEvent(Trigger t)
{ // Callback routine for trigger events
  // Object causing the trigger
  Object o = object(t)
  // Create output
  Buffer disp = create
  disp = "Current Object: "
  disp += o."Absolute Number" "\n"
  disp += "Level: "
  disp += level(o) ""
  // Display output
  set(infoDBE, tempStringOf(disp))
  // Delete buffer
  delete disp
}

// Create the dialog box
baseDB = create("Object trigger example")
infoDBE = text(baseDB, "", "", 200, 70, true)
// Start the trigger
currentObjectTrigger = trigger(module->object, sync, 10, newObjectEvent)
// Show the dialog box
show baseDB
// Show the dia