Ejemplo Barra de Progreso

Aquí tenéis otro ejemplo de código, esta vez una barra de progreso, que se abre en un dialog nuevo, es muy sencilla de utilizar.

_block
_local Bprog << progress_indicator_dialog.new ( "Generando" )
Bprog.info_string << "Prueba de barra progreso."
Bprog.bar_label << "Generación de frames frames..."
Bprog.image << { :help, _unset }
Bprog.activate ()

Bprog.max_count << 100

_for n _over range(1,100,1)
_loop
_thisthread.sleep(10)

Bprog.progress_changed(n)
_endloop
Bprog.close()
_endblock
$

Si tenéis preguntas sobre el código, me las podéis hacer como comentarios, intentare responder lo antes posible.