+ real_canvas->scroll_to (0, 0);
+ }
+}
+
+void borrar_clave ()
+{
+ if (!tree)
+ {
+ Gtk::MessageDialog d("No hay un arbol creado, por favor primero cree un arbol!",
+ false, Gtk::MESSAGE_ERROR, Gtk::BUTTONS_OK, true);
+ d.run();
+ return;
+ }
+ KeyDialog d("Borrar");
+ if (d.run () == Gtk::RESPONSE_OK)
+ {
+ Glib::ustring str_key = d.key();
+ if (tree->type() == BTree::KEY_FIXED)
+ {
+ ClaveFija c(atoi(str_key.c_str()), 0);
+ tree->DelKey(c);
+ }
+ else
+ {
+ ClaveVariable c(str_key, 0);
+ tree->DelKey(c);
+ }
+ delete tree->last_selected;
+ tree->AddNode (0);
+ real_canvas->scroll_to (0, 0);
+ }
+}
+
+void buscar_clave ()
+{
+ if (!tree)
+ {
+ Gtk::MessageDialog d("No hay un arbol creado, por favor primero cree un arbol!",
+ false, Gtk::MESSAGE_ERROR, Gtk::BUTTONS_OK, true);
+ d.run();
+ return;
+ }
+ KeyDialog d("Buscar");
+ while (true) // Repite hasta que se encuentre algo o se cancele
+ {
+ if (d.run () == Gtk::RESPONSE_OK)
+ {
+ BTreeFindResult* result = 0;
+ Clave *c = NULL;
+ Glib::ustring str_key = d.key();
+ if (tree->type() == BTree::KEY_FIXED)
+ {
+ c = new ClaveFija (atoi(str_key.c_str()), 0);
+ result = tree->FindKey(*c);
+ }
+ else
+ {
+ c = new ClaveVariable (str_key, 0);
+ result = tree->FindKey(*c);
+ }
+ if (result)
+ {
+ tree->Clear ();
+ tree->AddNode(result->node);
+ tree->HighliteKey (*c);
+ delete result;
+ delete c;
+ real_canvas->scroll_to (0, 0);
+ return; // Encontramos, salimos
+ }
+ if (c) delete c;
+ Gtk::MessageDialog msg("Clave no encontrada!", false,
+ Gtk::MESSAGE_ERROR, Gtk::BUTTONS_OK, true);
+ msg.run();
+ // Seguimos intentando
+ }
+ else return; // Cancelaron, salimos