Index: trunk/doc/user/06_feature/scripting/rosetta/13_hello_dad/ex.tcl
===================================================================
--- trunk/doc/user/06_feature/scripting/rosetta/13_hello_dad/ex.tcl	(nonexistent)
+++ trunk/doc/user/06_feature/scripting/rosetta/13_hello_dad/ex.tcl	(revision 20996)
@@ -0,0 +1,11 @@
+proc hello {} {
+	dad "heldi" "new"
+	dad "heldi" "begin_vbox"
+		dad "heldi" "label" "Hello"
+		dad "heldi" "label" "world!"
+	dad "heldi" "end"
+	dad "heldi" "run_modal" "hello-world" ""
+	return 0
+}
+
+fgw_func_reg "hello"