File: Feedback

package info (click to toggle)
fvwm-crystal 3.3.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 19,748 kB
  • ctags: 793
  • sloc: sh: 2,815; cs: 880; python: 875; makefile: 212
file content (80 lines) | stat: -rw-r--r-- 3,163 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
# User feedback for FVWM-Crystal
#
# Version:	1.0.0
# Licence: 	GPL 2
#
# Author:	Dominique Michel <dominique_libre@users.sourceforget.net>	
#
# Created:	<07/15/2013>
# Changed:	<07/15/2013>
#
# Description:	Launch a form with information on how to send feedback or receive support.
#		It will also look for $BROWSER and set it if needed
#
# syntax: 	 Module FvwmForm UserFeedback-Dialog

# User feedback form {{{1
All (UserFeedback-Dialog) Close
DestroyModuleConfig UserFeedback-Dialog: *
*UserFeedback-Dialog: Title "$[gt.User feedback]"
*UserFeedback-Dialog: Text "$[gt.You are welcomed to send feedback to the developer:]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Text "$[gt.bug reports, suggestions, patches, ideas,]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Text "$[gt.congratulations or complaints.]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Text "$[gt.This will help him make this software better.]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Button quit " $[gt.Send feedback (for support keep reading)] " ^M
*UserFeedback-Dialog: Command MailDev
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Text "$[gt.To get support, the best places are the]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Text "$[gt.FVWM-Crystal users email list, or the]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Text "$[gt.fvwm-crystal IRC channel on FreeNode:]"
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Button quit " $[gt.Go to the FVWM-Crystal users email list] " ^N
*UserFeedback-Dialog: Command BrowseEmailList
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Button quit " $[gt.Go to the fvwm-crystal IRC channel] " ^O
*UserFeedback-Dialog: Command CrystalIRC
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Line center
*UserFeedback-Dialog: Button quit " $[gt.Not now] " ^[
*UserFeedback-Dialog: Command Nop
*UserFeedback-Dialog: Line center

DestroyFunc MailDev
AddToFunc MailDev
+ I X $[BROWSER] mailto:dominique_libre@users.sourceforge.net

DestroyFunc BrowseEmailList
AddToFunc BrowseEmailList
+ I X $[BROWSER] https://mail.gna.org/listinfo/fvwm-crystal-users

DestroyFunc CrystalIRC
AddToFunc CrystalIRC
+ I X $[BROWSER] irc://irc.freenode.net:6667/fvwm-crystal

DestroyFunc SetBrowser
AddToFunc SetBrowser
+ I SavePreferences BROWSER "SetEnv BROWSER $0"
+ I SetEnv BROWSER "$0"

# Set browser form {{{1
All (SetBrowser-Dialog) Close
DestroyModuleConfig SetBrowser-Dialog: *
*SetBrowser-Dialog: Title "$[gt.Default browser]"
*SetBrowser-Dialog: Text "$[gt.Enter the default browser]"
*SetBrowser-Dialog: Line center
*SetBrowser-Dialog: Input browser 40 "/usr/bin/firefox"
*SetBrowser-Dialog: Line center
*SetBrowser-Dialog: Line center
*SetBrowser-Dialog: Button quit " $[gt.Save] " ^M
*SetBrowser-Dialog: Command SetBrowser "$(browser)"
*SetBrowser-Dialog: Line center

# Check if $BROWSER exist, if not chek preference, if not set it.{{{1
PipeRead 'if [ "$BROWSER" = "" ]; then if [ -f "$FVWM_USERDIR/preferences/BROWSER" ]; then echo LoadPreferences BROWSER; else echo Module FvwmForm SetBrowser-Dialog; fi; fi'