~chihchun/myunity/myunity_zhTW : revision 1

1

' Gambas module file

2

' This file is part of MyUnity

3

'

4

5

6

' Authors: Fabio "Pixel" Colinelli <pixel.ubuntu@gmail.com>

7

' Davide "Pedro" Pedrelli <pobox.davide@gmail.com>

8

' Sergio "Giowile" Gridelli <sergio.gridelli@gmail.com>

9

' Andrea "warp10" Colangelo <warp10@ubuntu.com>

10

'

11

' This program IS free software; you can redistribute it AND / OR modify

12

' it under the terms OF the GNU General PUBLIC License AS published by

13

' the Free Software Foundation; version 3 OF the License.

14

'

15

' This program IS distributed IN the hope that it will be useful,

16

' but WITHOUT ANY WARRANTY; without even the implied warranty OF

17

' MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.See the

18

' GNU General PUBLIC License FOR more details.

19

'

20

' You should have received a COPY OF the GNU General PUBLIC License

21

'

22

' along WITH this program; IF NOT, WRITE TO the Free Software

23

' Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110 - 1301, USA.

24

25

PUBLIC icon_size AS Integer 'dimensione icone nel launcher

26

PUBLIC autohide_animation AS Integer 'modalità di visualizzazione del launcher

27

PUBLIC launcher_hide_mode AS Integer 'tipologia di apparizione del launcher

28

PUBLIC panel_opacity AS Float 'trasparenza del pannello superiore

29

PUBLIC dash_blur_experimental AS Integer 'trasparenza della dash

30

PUBLIC devices_option AS Integer 'modalità di visualizzazione dei dispositivi

31

PUBLIC backlight_mode AS Integer 'retro illuminazione delle icone del launcher

32

PUBLIC launcher_opacity AS Float 'trasparenza del launcher

33

PUBLIC trash_icon_visible AS String 'cestino si o no sul desktop (stringa booleana)

34

PUBLIC home_icon_visible AS String 'home si o no sul desktop (stringa booleana)

35

PUBLIC volumes_visible AS String 'devices si o no sul desktop (stringa booleana)

36

PUBLIC network_icon_visible AS String 'rete si o no sul desktop (stringa booleana)

37

PUBLIC document_font_name AS String 'tipo font documenti

38

PUBLIC font_name AS String 'font di sistema

39

PUBLIC monospace_font_name AS String 'font monospace di sistema

40

PUBLIC hinting AS String 'tipo di hinting del font

41

PUBLIC antialiasing AS String 'tipo di antialias del font

42

43

PUBLIC SUB Main()

44

lettura_configurazione()

45

FMain.Show()

46

47

END

48

49

PUBLIC SUB lettura_configurazione()

50

DIM tmp_shell AS String 'temporanea di assegnazione

51

52

tmp_shell = "gsettings get org.gnome.settings-daemon.plugins.xsettings "

53

SHELL tmp_shell & "antialiasing" TO antialiasing

54

SHELL tmp_shell & "hinting" TO hinting

55

56

tmp_shell = "gsettings get org.gnome.desktop.interface "

57

SHELL tmp_shell & "document-font-name" TO document_font_name

58

SHELL tmp_shell & "font-name" TO font_name

59

SHELL tmp_shell & "monospace-font-name" TO monospace_font_name

60

61

tmp_shell = "gsettings get org.gnome.nautilus.desktop "

62

SHELL tmp_shell & "trash-icon-visible" TO trash_icon_visible

63

SHELL tmp_shell & "home-icon-visible" TO home_icon_visible

64

SHELL tmp_shell & "volumes-visible" TO volumes_visible

65

SHELL tmp_shell & "network-icon-visible" TO network_icon_visible

66

67

tmp_shell = "gconftool --get /apps/compiz-1/plugins/unityshell/screen0/options/"

68

SHELL tmp_shell & "launcher_opacity" TO launcher_opacity

69

SHELL tmp_shell & "backlight_mode" TO backlight_mode

70

SHELL tmp_shell & "devices_option" TO devices_option

71

SHELL tmp_shell & "dash_blur_experimental" TO dash_blur_experimental

72

SHELL tmp_shell & "icon_size" TO icon_size

73

SHELL tmp_shell & "autohide_animation" TO autohide_animation

74

SHELL tmp_shell & "launcher_hide_mode" TO launcher_hide_mode

75

SHELL tmp_shell & "panel_opacity" TO panel_opacity

76

END

77

78

PUBLIC SUB compiz_set(caratteristica AS String, tipo AS String, valore AS String)

79

SHELL "gconftool --set /apps/compiz-1/plugins/unityshell/screen0/options/" & caratteristica & " --type=" & tipo & " " & Chr$(34) & valore & Chr$(34)

80

END

81

82

PUBLIC SUB desktop_set(caratteristica AS String, valore AS String)

83

SHELL "gsettings set org.gnome.nautilus.desktop " & caratteristica & " " & valore

84

END

85

86

PUBLIC SUB font_set(caratteristica AS String, valore AS String)

87

SHELL "gsettings set org.gnome.settings-daemon.plugins.xsettings " & caratteristica & " " & valore

88

END

89

90