(define (clasificar elemento)   ;;;;; ventana emergente para casificar elementos que no esten en el diccionario
    (set 'puntero 0)
    (win-dialog 'pop_up 'VentanaPrincipal 800 0 390 300 "Clasificar")
    (prop-color 'pop_up 247 247 247)
    (win-label 'Palabra 'pop_up 10 10 90 20 "Palabra:")
    (prop-color 'Palabra 247 247 247)
    (win-editline 'PalabraCla 'pop_up 10 35 350 25)
    (win-pushbutton 'clasificar 'pop_up 10 70 70 25 "Agregar" 'agregarPalabra)
    (win-pushbutton 'bas 'pop_up 110 70 90 25 "A la Basura" 'alaBasura)
    (win-pushbutton 'agregar 'pop_up 230 70 130 25 "Clasificar Palabra" '_clasificarPalabra)
    (win-label 'catego 'pop_up 100 10 300 25 "Categoria:" )
    (prop-color 'catego 247 247 247)
    (win-combobox 'combo 'pop_up 170 6 190  20000)
    (listbox-fill 'combo (map string categorias))
    (win-checkbox 'che 'pop_up 10 100 200 20 "Otra Categoria" 'check-event)
    (prop-color 'che 247 247 247)
    (win-editline 'otracat 'pop_up 10 120 200 25)
    (prop-enabled 'otracat 0)
    (win-scrollbar 'scr 'pop_up 10 170 360 30 "" 'scrollbar-action)
    (prop-range 'scr 1 (- (length a) 1))
    (win-label 'sigpal 'pop_up 10 220 105 25 "Siguiente Palabra:")
    (prop-color 'sigpal 247 247 247)
    (win-label 'sigpalval 'pop_up 125 220 105 25 "")
    (prop-color 'sigpalval 247 247 247)
    (prop-text 'PalabraCla (string (nth puntero a)))
    (prop-value 'scr 1)
    (prop-text 'sigpalval (string (nth 1 a)))
)