cmds.red

Red [
   Title: "Red - functions"
   Author: "Guaracy Monteiro"
   Version: 0.0.1
   Needs: 'View
]

;#include %help.red ; help.red from %environment/console

fn: copy []

foreach w sort words-of system/words [
   if all [word? w any-function? get/any :w] [
      append fn w
    ]
] 

view [
   title "Red - functions"
   l: text-list 150x300 data [] on-change [a/text: fetch-help fn/(l/selected)]
   a: area 500x300
   do [
      foreach f fn [
	 append l/data mold f
      ]
   ]
]