The files contained in this repository can be downloaded to your computer using a svn client.
On Linux you simply type the command displayed below.
This URL has Read-Only access.
root / trunk / DomotiGa / FLogfiles.class @ 101
History | View | Annotate | Download (1 kB)
| 1 | ' Gambas class file |
|---|---|
| 2 | |
| 3 | ' Description: |
| 4 | ' FLogfiles.class |
| 5 | ' Display the different types of logs. |
| 6 | ' Logs are not stored in db or file at the moment. |
| 7 | ' And windows are cleared after it reached max buffers size (see main settings) |
| 8 | |
| 9 | ' Development Status: |
| 10 | ' Working. |
| 11 | |
| 12 | ' DomotiGa - an open source home automation program. |
| 13 | ' Copyright(C) 2008 Ron Klinkien |
| 14 | |
| 15 | ' Read file called COPYING for license details. |
| 16 | |
| 17 | PUBLIC bPaused AS Boolean |
| 18 | |
| 19 | PUBLIC SUB Form_Resize() |
| 20 | |
| 21 | txtMainLog.Move(4, 30, ME.ClientWidth - 10, ME.ClientHeight - 31) |
| 22 | txtSpeakLog.Move(4, 30, ME.ClientWidth - 10, ME.ClientHeight - 31) |
| 23 | txtDebugLog.Move(4, 30, ME.ClientWidth - 10, ME.ClientHeight - 31) |
| 24 | HBox1.Width = ME.ClientWidth - 15 |
| 25 | |
| 26 | END |
| 27 | |
| 28 | PUBLIC SUB btnMain_Click() |
| 29 | |
| 30 | txtDebugLog.Hide |
| 31 | txtSpeakLog.Hide |
| 32 | txtMainLog.Show |
| 33 | |
| 34 | END |
| 35 | |
| 36 | PUBLIC SUB btnSpeak_Click() |
| 37 | |
| 38 | txtSpeakLog.Show |
| 39 | txtMainLog.Hide |
| 40 | txtDebugLog.Hide |
| 41 | |
| 42 | END |
| 43 | |
| 44 | PUBLIC SUB btnDebug_Click() |
| 45 | |
| 46 | txtDebugLog.Show |
| 47 | txtMainLog.Hide |
| 48 | txtSpeakLog.Hide |
| 49 | |
| 50 | END |
| 51 | |
| 52 | PUBLIC SUB tbtnPause_Click() |
| 53 | |
| 54 | bPaused = tbtnPause.Value |
| 55 | |
| 56 | END |