Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
44 lines (36 sloc) 1.01 KB
Red [
Title: "launcher.red"
Needs: 'View
References: [
{Rebol/Red Color Names} http://rebol2.blogspot.com/2012/03/color-names.html
]
]
if not exists? apps-list-file: %config/launcher.apps-list.red [
make-dir %config
write apps-list-file read http://miniapps.red/config/launcher.apps-list.red
]
do read apps-list-file
if not exists? apps-icons-list-file: %config/launcher.apps-icons-list.red [
make-dir %config
write apps-icons-list-file read http://miniapps.red/config/launcher.apps-icons-list.red
]
do read apps-icons-list-file
win: copy [
title "Launcher"
backdrop gold
style cell: image (cell-size)
style cell-with-caption: cell font-name "algerian" font-size 14
]
append win apps-list
print rejoin [
"You can customize the apps list in "
{"}
to-local-file clean-path apps-list-file
{"}
newline
"You can customize the apps icons list in "
{"}
to-local-file clean-path apps-icons-list-file
{"}
]
view layout compose win