From - Tue Sep  8 08:14:55 1998
Return-Path: <owner-tkdesk@shaknet.clark.net>
Received: from mail.wiesbaden.netsurf.de (bolik@localhost [127.0.0.1])
	by localhost (8.8.5/8.8.5) with ESMTP id HAA00236
	for <bolik>; Mon, 7 Sep 1998 07:31:40 +0200
Received: from shaknet.clark.net by wiesbaden.netsurf.de with esmtp
	(Smail3.1.28.1 #10) id m0zFTGf-001lfsa; Sun, 6 Sep 98 03:05 MET DST
Received: (from root@localhost)
	by shaknet.clark.net (8.8.7/8.8.7) id SAA05434
	for tkdesk-outgoing; Sat, 5 Sep 1998 18:36:58 -0500
Message-ID: <35F1C368.65F3446@urz.uni-heidelberg.de>
Date: Sun, 06 Sep 1998 01:04:08 +0200
From: Christopher Arndt <christopher.arndt@urz.uni-heidelberg.de>
Organization: Universitaet Heidelberg
X-Mailer: Mozilla 4.05 [en] (X11; I; Linux 2.0.32 i586)
MIME-Version: 1.0
To: mailing list TkDesk <tkdesk@shaknet.clark.net>
Subject: tkdesk Stuff for the contrib dir
Content-Type: text/plain; charset=iso-8859-1
X-MIME-Autoconverted: from quoted-printable to 8bit by shaknet.clark.net id SAA05432
Sender: owner-tkdesk@shaknet.clark.net
Precedence: bulk
Reply-To: Christopher Arndt <christopher.arndt@urz.uni-heidelberg.de>
X-MIME-Autoconverted: from 8bit to quoted-printable by shaknet.clark.net id SAA05434
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from quoted-printable to 8bit by localhost id HAA00236
X-Mozilla-Status: 8001

Christopher Arndt <christopher.arndt@urz.uni-heidelberg.de>

Majordomo 1.94.4
Hi everybody,

this is how I intgrated Tkdesk into fvwm to create a Win95ish start
Menu (icons are included in newer fvwm distributions, maybe with
different names)

----- excerpt from ~/.fvwm95rc ------------

# Use send to communicate with Tk-based Programms
AddToFunc "Send" "I" Exec echo "send -async $0 {$1};exit" | wish

#Some Sub-menus for the Start menu

# System Settings
AddToMenu "Settings"
+ "&Systemsteuerung %prefs_grp16.xpm"	Exec control-panel &
+ "&Window Manager %mini-windows.xpm%"	Exec ed-tkdesk ~/.fvwm95rc &
+ "&Drucker %printer.xpm%"		Exec kljettool &

# Search Tools
DestroyMenu "Search"
AddToMenu "Search" \
  "&Dateien/Ordner... %filesearch16.xpm%" Function Send tkdesk
{dsk_find_files}

# This is for the Start menu of the FvwmTaskBar

DestroyMenu "StartMenu"
AddToMenu "StartMenu@linux-menu.xpm@^navy^" \
  "&Programme%programs.xpm%"	Popup AppGroups
#+ "&Dokumente%documents.xpm%"	Popup DocHistory
# Sorry, dont know how to do this
+ "&Einstellungen%settings.xpm%" Popup Settings
+ "&Suchen%find1.xpm%"		Popup Search
+ "&Hilfe%help.xpm%"		Exec  tkinfo &
+ "&Ausfhren...%run.xpm%"	Function Send tkdesk {dsk_ask_exec}
# Could also use the TkDesk server here
+ ""					Nop
+ "Bilschirmschut&z%standby.xpm%"	Exec    xset s activate &
+ "&Beenden...%shutdown.xpm%"		Exec    tklogout
# Normally just use fvwms Quit command here

------------end------------------

BTW, it would be great to have a list of all functions of TkDesk that
one may want to call from other programms!
(like the function descriptions, that are scattered over the Tcl source
code)

-- 
Mfg,

Chris

