~eloaders/i-nex/I-Nex

« back to all changes in this revision

Viewing changes to src/i-nex/.src/Dialog.class

• browse files at revision 730
• compare with another revision
• download diff
• download tarball
• view history from revision 730

Show diffs side-by-side

added

removed

src/i-nex/.src/Dialog.class

1

 

' Gambas class file

2

 

 

3

 

' Copyright(C) 2011-2014, Michał Głowienka aka eloaders <eloaders@linux.pl>

4

 

'

5

 

' This program is free software; you can redistribute it and/or modify

6

 

' it under the terms of the GNU General Public License as published by

7

 

' the Free Software Foundation; either version 3 of the License, or

8

 

' (at your option) any later version.

9

 

'

10

 

' This program is distributed in the hope that it will be useful,

11

 

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

12

 

' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

13

 

' GNU General Public License for more details.

14

 

'

15

 

' You should have received a copy of the GNU General Public License

16

 

' along with this program. If not, see <http://www.gnu.org/licenses/>.

17

 

 

18

 

 

19

 

 

20

 

Static Property Read Paths As String[]

21

 

Static Property {Date} As Date

22

 

Static Property AutoExt As Boolean

23

 

 

24

 

Static Public Function OpenFile(Optional Multi As Boolean) As Boolean

25

 

  

26

 

  Return FFileDialog.OpenFile(Multi)

27

 

  

28

 

End

29

 

 

30

 

Static Public Function SaveFile() As Boolean

31

 

  

32

 

  Return FFileDialog.SaveFile()

33

 

  

34

 

End

35

 

 

36

 

Static Public Function SelectDirectory() As Boolean

37

 

  

38

 

  Return FDirDialog.SelectDirectory()

39

 

  

40

 

End

41

 

 

42

 

 

43

 

Static Private Function Paths_Read() As String[]

44

 

 

45

 

  Return FFileDialog.Paths

46

 

 

47

 

End

48

 

 

49

 

 

50

 

Static Public Function SelectDate() As Boolean

51

 

 

52

 

  Return FInputDate.SelectDate()

53

 

 

54

 

End

55

 

 

56

 

 

57

 

Static Private Function Date_Read() As Date

58

 

 

59

 

  Return FInputDate.Date

60

 

 

61

 

End

62

 

 

63

 

Static Private Sub Date_Write(Value As Date)

64

 

 

65

 

  FInputDate.Date = Value

66

 

 

67

 

End

68

 

 

69

 

Static Private Function AutoExt_Read() As Boolean

70

 

 

71

 

  Return FFileDialog.AutoExt

72

 

 

73

 

End

74

 

 

75

 

Static Private Sub AutoExt_Write(Value As Boolean)

76

 

 

77

 

  FFileDialog.AutoExt = Value

78

 

 

79

 

End

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1