Changeset 334 for branches


Ignore:
Timestamp:
Sep 24, 2009, 9:00:53 AM (16 years ago)
Author:
Herwig Bauernfeind
Message:

GUI-Tools: SMBMON V.next (Adding sorting dialog)

Location:
branches/guitools-2.0
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • branches/guitools-2.0/evfsgui/changes

    r332 r334  
    1 Version 2 (Next) project:
    2 Already done:
     1ToDo:
     2- Major code refactoring (partly done)
     3- Debug on/off option is badly implemented (rework required)
     4- Create Icon. stem in order to ease maintainance of icons
     5
     6Known problem:
     7- printer share detection is guessing only, however there is no known method
     8  to do this properly
     9
     10Version 2.0 beta2
     11- Added: Started updating/implementing helpfile
     12- Fixed: Ticket #105: Temporary files not removed
     13- Fixed: Ticket #106: Icon in global settings dialog not properly aligned
     14
     15Version 2.0 beta1 2009-09-15:
    316- Added: Browsing code from smbmon
    417- Added: D'n'd support for file shares
    … …  
    619- Added: main menu bar
    720- Added: New advanced settings
    8 - Added: "Old" 1.x look and feel (default for now)
     21- Added: "Old" 1.x look and feel
    922- Added: Main window is resizable
    1023- Added: Splitbar between panels
    … …  
    6578- Fixed: Autostart mode was broken
    6679
    67 ToDo:
    68 - Major code refactoring (partly done)
    69 - Debug on/off option is badly implemented (rework required)
    70 - Create Icon. stem in order to ease maintainance of icons
     80Version 1.3.7 - changes not relevant for 2.0
    7181
    72 Known problem:
    73 - printer share detection is guessing only, however there is no known method
    74   to do this properly
    75 
     82Version 1.3.6
     83!Fixed: When connecting to a complete server, the workgroup got lost during the
     84        connecting process.
     85Version 1.3.5
     86!Fixed: Error in profile file parsing logic could lead to double entries
     87        for LOGFILE and LOGLEVEL (possibly having side effects on EASUPPORT)
    7688Version 1.3.4
    7789!Fixed: Readonly connection option did not work (was not implemented)

  • branches/guitools-2.0/evfsgui/evfsgui.VRP

    r332 r334  
    22VRX: evfsgui.VRX
    33VXOFile: VRSPLIT
    4 MacroPath: VRM: U:\Develop\Samba\guitools-2.0\smbclgui
     4MacroPath: VRM: U:\Develop\Samba\guitools-2.0\evfsgui
    55EXEPath:
    66RunParameters:
    7 RunDirectory:
     7RunDirectory: U:\Develop\Samba\guitools-2.0\evfsgui
    88VRXWindow: __VREMainWindow,1,530,2457,879,4071
    99VRXWindow: __VRESectionListWindow,1,337,11708,11623,3686
    10 VRXWindow: __VREToolsWindow,1,518,530,6990,1659
     10VRXWindow: __VREToolsWindow,1,518,530,6987,1665
    1111VRXWindow: __VREWindListWindow,1,482,7661,2650,3150
    1212UserFile: 1
    1313UserWindow: Main,1
     14UserWindow: SW_ADVANCED,1
    1415UserWindow: SW_PROGRESS,1
     16UserWindow: SW_SETTINGS,1

  • branches/guitools-2.0/evfsgui/evfsgui.VRX

    r332 r334  
    12471247    ok = VRset("DT_CURRENT","Top",     8)
    12481248    ok = VRset("DT_CURRENT","Left",    8)
     1249    ok = VRset("DT_CURRENT","Height",  213)
    12491250    ok = VRset("DT_CURRENT","Width",   VRGet("GB_CURRENT3","Width") - 24)
    12501251

  • branches/guitools-2.0/evfsgui/evfsi_de.ipf

    r315 r334  
    1 :userdoc.:title.EVFS Onlinehilfe
     1:userdoc.:title.Samba Client GUI Onlinehilfe
    22:docprof toc=123.
    33.***************************************************
    … …  
    77:h1 res=100.Konzept
    88
    9 :font facename='Default' size=0x0.:p.Das eComStation Virtual File System for SMB (EVFS) verfolgt
     9:font facename='Default' size=0x0.Das eComStation Virtual File System for SMB (EVFS) verfolgt
    1010folgendes Konzept&colon.
    1111
    … …  
    3838und Verzeichnisnamen im Netz zur Verf&ue.gung stellen.
    3939Netzwerk-Drucker werden von EVFS nicht unterst&ue.tzt (es gibt
    40 jedoch andere Tools mit denen sich das bewerjkstelligen
    41 l&ae.sst).
    42 
    43 :h1 res=200.Hauptfenster
    44 
    45 :font facename='Default' size=0x0.:p.Das eComStation Virtual File System for SMB (EVFS) ist ein
    46 Netzwerk-Client basierend auf Samba und NetDrive. Es wurde
    47 entworfen&comma. um einen einfachen Zugriff auf freigegebene
    48 Dateien und Verzeichnisse in auf SMB-basierten lokalen Netzen zu
    49 erhalten. Informationen &ue.ber die grundlegenden Konzepte der
    50 EVFS finden Sie in dieser Datei.
     40jedoch andere Tools mit denen sich das bewerkstelligen l&ae.sst).
     41
     42:h1 res=200.Hauptmen
     43
     44:font facename='Default' size=0x0.leer
     45
     46:h1 res=300.Kommandozeilenoptionen
     47
     48:font facename='Default' size=0x0.Profiledatei
     49:p.-nogui
     50:p.-ndfs
     51
     52:h1 res=400.Hauptfenster
     53
     54:font facename='Default' size=0x0.Das eComStation Virtual File System for SMB (EVFS) ist ein Netzwerk-Client basierend auf Samba und NetDrive. Es wurde entworfen&comma. um einen einfachen Zugriff auf freigegebene Dateien und Verzeichnisse in auf
     55SMB-basierten lokalen Netzen zu erhalten.
     56Informationen &ue.ber die grundlegenden Konzepte der EVFS finden Sie in dieser Datei.
    5157
    5258:p.Die EVFS Graphical User Interface (EVFSGUI) ist eine einfache
    … …  
    5460Hauptfenster von EVFSGUI.
    5561
    56 :p.:hp2.Aktuelle Resourcen (linker Teil des Fensters)
    57 
    58 :p.:ehp2.Das Bedienfeld f&ue.r aktuelle Ressourcen auf der linken Seite
     62:h2 res=420.Aktuelle Verbindungen
     63
     64:font facename='Default' size=0x0.:p.Das Bedienfeld f&ue.r aktuelle Ressourcen auf der linken Seite
    5965des Fensters zeigt alle virtuellen EVFS Laufwerke und
    6066Mount-Points&comma. die derzeit angelegt sind&comma. und die
    … …  
    8995ausw&ae.hlbare Men&ue.eintr&ae.ge.
    9096
    91 :p.:hp2.Neue Ressource (rechter Teil des Fensters):ehp2.&colon.
    92 
    93 :p.Das neue Ressource-Panel auf der rechten Seite&comma. erlaubt
     97:h2 res=430.Dialogansicht
     98
     99:font facename='Default' size=0x0.Das neue Ressource-Panel auf der rechten Seite&comma. erlaubt
    94100Ihnen&comma. eine neue Ressource zu definieren und zu verbinden.
    95101
    … …  
    167173ausgef&ue.llt wurden.
    168174
    169 
    170 :p.:hp2.Schaltfl&ae.chen am Hauptfenster:ehp2.&colon.
    171 
    172 :p.:hp2.Autostart:ehp2.&colon. Erzeugt ein Objekt im Autostart-Ordner&comma.
     175:h2 res=440.Netzwerkumgebung
     176
     177:font facename='Default' size=0x0.leer
     178
     179:h2 res=450.Verbindungsdetails
     180
     181:font facename='Default' size=0x0.leer
     182
     183:h2 res=460.Schaltfl„chen am Hauptfenster
     184
     185:font facename='Default' size=0x0.:p.:hp2.Autostart:ehp2.&colon. Erzeugt ein Objekt im Autostart-Ordner&comma.
    173186welches ein zuvor gespeichertes Profil beim Start des Computers
    174187automatisch l&ae.dt&comma. und die gespeicherten Verbindungen
    … …  
    199212:p.:hp2.Hilfe:ehp2.&colon. Zeigt die Hilfe f&ue.r das Hauptfenster.
    200213
    201 :h1 res=300.Erweiterte Verbindungsoptionen
    202 
    203 :font facename='Default' size=0x0.:p.Dieses Fenster enth&ae.lt die folgenden Optionen&colon.
     214:h2 res=470.Minisymbole
     215
     216:font facename='Default' size=0x0.leer
     217
     218:h1 res=500.Erweiterte Verbindungsoptionen
     219
     220:font facename='Default' size=0x0.Dieses Fenster enth&ae.lt die folgenden Optionen&colon.
    204221
    205222:p.:hp2.Anzahl der Bl&oe.cke 64 kB&colon.
    … …  
    225242eingestellt werden k&oe.nnen&comma. wirken auf alle weiteren
    226243Verbindungsoperationen&comma. die mit dem Hauptfenster des
     244
    227245Programmes durchgef&ue.hrt werden&comma. bis Sie das Programm
    228246beenden. Allerdings werden sie beim n&ae.chsten Start von
    229247EVFSGUI wieder auf die urspr&ue.nglichen Werte zur&ue.ckgestellt.
    230248
    231 :h1 res=400.Produktinformation
    232 
    233 :font facename='Default' size=0x0.:p.eComStation Virtual File System for SMB Graphical User Interface
     249:h1 res=600.Globale Einstellungen
     250
     251:font facename='Default' size=0x0.leer
     252
     253:h1 res=700.Produktinformation
     254
     255:font facename='Default' size=0x0.eComStation Virtual File System for SMB Graphical User Interface
    234256(EVFSGUI)
    235257
    236 :p.Version 1.3 (Mai&comma. 2009)
    237 
    238 :p.(C) 2008 Alex Taylor&comma. diverse &Ae.nderungen&colon. Herwig
    239 Bauernfeind. All rights reserved.
     258:p.Version 2.0 (September&comma. 2009)
     259
     260:p.(c) 2009 Herwig Bauernfeind&comma. teilweise auch (c) 2007-2009
     261Alex Taylor. All rights reserved.
    240262
    241263:p.Es wird die Erlaubnis an Serenity Systems International und

  • branches/guitools-2.0/shared/smbtree.vrs

    r328 r334  
    5353    smbtreeline.0 = sl
    5454    ok = stream(samba.!msg,'c','close')
     55    ok = SysFileDelete(samba.!msg)
    5556
    5657    do sl = 1 to smbtreeline.0
    … …  
    9495                        end
    9596                    end
     97                    ok = SysFileDelete(samba.!msg)
    9698                    ipstr = strip(ipstr,,',')
    9799                    ok = VRMethod( "CN_smbtree", "SetFieldData", smbtree.!machine, IPFH, IPStr)
    … …  
    117119                        Master= strip(Master,,',')
    118120                        ok = stream(samba.!msg,'c','close')
     121                        ok = SysFileDelete(samba.!msg)
    119122                        ok = VRMethod( "CN_smbtree", "SetFieldData", smbtree.!machine, MBFH, Master,MacFH,MAC)
    120123                    end
    … …  
    177180    end
    178181return res
    179 

  • branches/guitools-2.0/smbmon/changes

    r329 r334  
    11Version 1.9.xxx
    2                         WIP: Add findsmb functionality
    3                         WIP: Adopt changes in smbmon.vrs done for evfsgui
     2                        +Added: findsmb functionality
     3                        +Added: Optionally use big icons
     4                        +Added: smbmon.vrs: Refresh network neighbourhood in
     5                                background
     6                        +Added: EVFSGUI-like throbber for network neighbourhood
     7                        *Changed: Flatened menu structure
    48Version 0.9.25 27-06-2009
    59                        +Added: Check free space on TMPDIR

  • branches/guitools-2.0/smbmon/smbmon.rc

    r315 r334  
    2525icon 47 daemon_off.ico
    2626icon 48 pid.ico
     27BITMAP 111  eBall_01.bmp
     28BITMAP 112  eBall_02.bmp
     29BITMAP 113  eBall_03.bmp
     30BITMAP 114  eBall_04.bmp
     31BITMAP 115  eBall_05.bmp
     32BITMAP 116  eBall_06.bmp
     33BITMAP 117  eBall_07.bmp
     34BITMAP 118  eBall_08.bmp
     35BITMAP 119  eBall_09.bmp
     36BITMAP 120  eBall_10.bmp
     37BITMAP 121  eBall_11.bmp
     38BITMAP 122  eBall_12.bmp
     39BITMAP 123  eBall_13.bmp
     40BITMAP 124  eBall_14.bmp
     41BITMAP 125  eBall_15.bmp
     42BITMAP 126  eBall_16.bmp
     43BITMAP 127  eBall_17.bmp
     44BITMAP 128  eBall_18.bmp
     45BITMAP 129  eBall_19.bmp
     46BITMAP 130  eBall_20.bmp
     47BITMAP 131  eBall_21.bmp
     48BITMAP 132  eBall_22.bmp
     49BITMAP 133  eBall_23.bmp
     50BITMAP 134  eBall_24.bmp
     51BITMAP 135  eBall_25.bmp

  • branches/guitools-2.0/smbmon/smbmon.vrp

    r329 r334  
    77VRXWindow: __VREMainWindow,1,2180,3710,940,8000
    88VRXWindow: __VRESectionListWindow,1,2650,12093,9359,3300
    9 VRXWindow: __VREToolsWindow,1,2204,1590,6989,1663
     9VRXWindow: __VREToolsWindow,1,2204,1590,6989,1659
    1010VRXWindow: __VREWindListWindow,1,265,12093,2650,3150
    1111UserFile: 1

  • branches/guitools-2.0/smbmon/smbmon.vrx

    r315 r334  
    198198    say '_ContainerInit() done.'
    199199return
     200/*:VRX         _ContainerSort
     201*/
     202_ContainerSort:
     203    ok = VRMethod( "LB_SortFields", "GetSelectedList", "SortFields." )
     204    if Fields.0 = 0 then return
     205    idx = SortFields.1
     206    ok = VRset( Container, "DetailSort", Fields.idx )
     207    ok = VRSet( Container, "Sort", SortOrder )
     208    ok = VRMethod( Container, "SortRecords" )
     209return
     210
    200211/*:VRX         _GuessIcon
    201212*/
    … …  
    259270    call _INILayoutRead "CN_smbtree"
    260271
     272    ok = VRset("CN_DAEMONS", "MiniIcons", \advanced.!bigicons)
     273    ok = VRset("CN_SMBTREE", "MiniIcons", \advanced.!bigicons)
     274    ok = VRset("ContextMenu_Tree_MiniIcons",  "Checked", \advanced.!bigicons)
     275    ok = VRset("ContextMenu_Daemons_MiniIcons",  "Checked", \advanced.!bigicons)
     276
    261277    if _ChkTempFreeSpace() < 262144 then do
    262278        Msg.Type = "W"
    … …  
    355371                      else ok = VRREdirectStdIO("OFF")
    356372
     373    advanced.!bigicons = VRGetIni( "Settings", "BigIcons", OurINI)
     374    if advanced.!bigicons = "" then advanced.!bigicons = 0
     375
    357376    /* For Browse page */
    358377    FirstRun = 1
    … …  
    387406    ok = VRSetIni( "Settings", "TreeView",     VRGet("CN_smbtree","View"),        OurINI,'NoClose')
    388407    ok = VRSetIni( "Settings", "NoMsgBox",     NoMsgBox,                       OurINI,'NoClose')
     408    ok = VRSetIni( "Settings", "BigIcons",     \VRGet("CN_SMBTREE", "MiniIcons"),OurINI,'NoClose')
    389409
    390410    ok = VRSetIni( "Options",  "Debug",    options.!debug,             OurINI, 'NoClose' )     
    … …  
    483503    CALL NLVSetText 'CB_NoMsgBox',    'Caption',  27
    484504
    485     CALL NLVSetText 'ContextMenu_Daemons_View',   'Caption', 31   
     505    CALL NLVSetText 'ContextMenu_Daemons_Sort',   'Caption', 35
    486506    CALL NLVSetText 'ContextMenu_Daemons_Ping',   'Caption', 32
    487507    CALL NLVSetText 'ContextMenu_Daemons_Details','Caption', 118
    488508    CALL NLVSetText 'ContextMenu_Daemons_Tree',   'Caption', 120
    489509
    490     CALL NLVSetText 'ContextMenu_Service_CloseSHare',   'Caption', 70
     510    CALL NLVSetText 'ContextMenu_Files_Sort',     'Caption', 35
     511
     512    CALL NLVSetText 'ContextMenu_Service_Sort',   'Caption', 35
     513    CALL NLVSetText 'ContextMenu_Service_CloseSHare', 'Caption', 70
    491514
    492515    CALL NLVSetText 'ContextMenu_Users_SendMsg', 'Caption', 80
     516    CALL NLVSetText 'ContextMenu_Users_Sort',    'Caption', 35   
     517
    493518    CALL NLVSetText 'ContextMenu_Tree_SendMsg',  'Caption', 80
    494     CALL NLVSetText 'ContextMenu_Tree_View',     'Caption', 31    
     519    CALL NLVSetText 'ContextMenu_Tree_Sort',     'Caption', 35   
    495520    CALL NLVSetText 'ContextMenu_Tree_Tree',     'Caption', 120
    496521    CALL NLVSetText 'ContextMenu_Tree_Details',  'Caption', 118
    … …  
    10681093        ok = VRSet("TM_refresh","Enabled", 0)
    10691094        DRH = VRInfo("Record")
     1095        OH = VRInfo("Object")
    10701096        ok = VRset("ContextMenu_Daemons_Sep1","Visible", 0 )
    10711097        ok = VRset("ContextMenu_Daemons_Ping","Visible", (DRH <> "") )
    … …  
    11001126    else do
    11011127        RH = VRInfo("Record")
     1128        OH = VRInfo("Object")
    11021129        if RH <> "" then do
    1103             /* Does not exist yet
    1104             ok = VRMethod( "Contextmenu_Files", "Popup", , , "", "PositionOnItem" ) */
     1130            ok = VRMethod( "Contextmenu_Files", "Popup", , , "", "PositionOnItem" )
    11051131        end
    11061132    end
    … …  
    11141140    ok = VRSet("TM_refresh","Enabled", 0)
    11151141        SRH = VRInfo("Record")
     1142        OH = VRInfo("Object")
    11161143        if SRH <> "" then do
    11171144            Service = VRMethod("CN_Service", "GetFieldData", SRH, ServiceFH)
    … …  
    11411168    else do
    11421169        RH = VRInfo("Record")
     1170        OH = VRInfo("Object")
     1171say "OH="VRGet(OH,"Name")
    11431172        if RH <> "" then do
    11441173            CurMachine = VRMethod( "CN_users", "GetFieldData", RH, UMachineFH )
    … …  
    12271256    ok = VRset("ContextMenu_Daemons_Details","Enabled",0)
    12281257    ok = VRSet("TM_refresh","Enabled", 1)
     1258return
     1259
     1260/*:VRX         ContextMenu_Daemons_MiniIcons_Click
     1261*/
     1262ContextMenu_Daemons_MiniIcons_Click:
     1263    advanced.!bigicons = \advanced.!bigicons
     1264    ok = VRset("CN_DAEMONS", "MiniIcons", \advanced.!bigicons)
     1265    ok = VRset("CN_SMBTREE", "MiniIcons", \advanced.!bigicons)
     1266    ok = VRset("ContextMenu_Tree_MiniIcons",  "Checked", \advanced.!bigicons)
     1267    ok = VRset("ContextMenu_Daemons_MiniIcons",  "Checked", \advanced.!bigicons)
    12291268return
    12301269
    … …  
    12521291return
    12531292
     1293/*:VRX         ContextMenu_Daemons_Sort_Click
     1294*/
     1295ContextMenu_Daemons_Sort_Click:
     1296    window = VRLoadSecondary( "SW_SORT", "W" )
     1297return
     1298
    12541299/*:VRX         ContextMenu_Daemons_Tree_Click
    12551300*/
    … …  
    12591304    ok = VRset("ContextMenu_Daemons_Details","Enabled",1)
    12601305    ok = VRSet("TM_refresh","Enabled", 1)
     1306return
     1307
     1308/*:VRX         ContextMenu_Files_Sort_Click
     1309*/
     1310ContextMenu_Files_Sort_Click:
     1311    window = VRLoadSecondary( "SW_SORT", "W" )
    12611312return
    12621313
    … …  
    12771328return
    12781329
     1330/*:VRX         ContextMenu_Service_Sort_Click
     1331*/
     1332ContextMenu_Service_Sort_Click:
     1333    window = VRLoadSecondary( "SW_SORT", "W" )
     1334return
     1335
    12791336/*:VRX         ContextMenu_Tree_Details_Click
    12801337*/
    … …  
    12841341    ok = VRset("ContextMenu_Tree_Details","Enabled",0)
    12851342    ok = VRset("ContextMenu_Tree_Icons","Enabled",1)
     1343    ok = VRset("TM_Throbber", "Enabled", 1)
     1344    ok = VRset("Pict_Throbber", "Visible", 0)
    12861345    call _RefreshTree
    12871346return
    … …  
    12941353    ok = VRset("ContextMenu_Tree_Tree","Enabled",1)
    12951354    ok = VRset("ContextMenu_Tree_Details","Enabled",1)
     1355    ok = VRset("TM_Throbber", "Enabled", 1)
     1356    ok = VRset("Pict_Throbber", "Visible", 1)
    12961357    call _RefreshTree
     1358return
     1359
     1360/*:VRX         ContextMenu_Tree_MiniIcons_Click
     1361*/
     1362ContextMenu_Tree_MiniIcons_Click:
     1363    advanced.!bigicons = \advanced.!bigicons
     1364    ok = VRset("CN_DAEMONS", "MiniIcons", \advanced.!bigicons)
     1365    ok = VRset("CN_SMBTREE", "MiniIcons", \advanced.!bigicons)
     1366    ok = VRset("ContextMenu_Tree_MiniIcons",  "Checked", \advanced.!bigicons)
     1367    ok = VRset("ContextMenu_Daemons_MiniIcons",  "Checked", \advanced.!bigicons)
    12971368return
    12981369
    … …  
    13011372ContextMenu_Tree_SendMsg_Click:
    13021373    call _SendMsg
     1374return
     1375
     1376/*:VRX         ContextMenu_Tree_Sort_Click
     1377*/
     1378ContextMenu_Tree_Sort_Click:
     1379    window = VRLoadSecondary( "SW_SORT", "W" )
    13031380return
    13041381
    … …  
    13101387    ok = VRset("ContextMenu_Tree_Details","Enabled",1)
    13111388    ok = VRset("ContextMenu_Tree_Icons","Enabled",1)
     1389    ok = VRset("TM_Throbber", "Enabled", 1)
     1390    ok = VRset("Pict_Throbber", "Visible", 1)
    13121391    call _RefreshTree
    13131392return
    … …  
    13171396ContextMenu_Users_SendMsg_Click:
    13181397    call _SendMsg
     1398return
     1399
     1400/*:VRX         ContextMenu_Users_Sort_Click
     1401*/
     1402ContextMenu_Users_Sort_Click:
     1403    window = VRLoadSecondary( "SW_SORT", "W" )
    13191404return
    13201405
    … …  
    14361521return
    14371522
     1523/*:VRX         LB_SortFields_Click
     1524*/
     1525LB_SortFields_Click:
     1526    call _ContainerSort
     1527return
     1528
    14381529/*:VRX         Main_Activate
    14391530*/
    … …  
    14611552    call _GUIInit
    14621553   
    1463     str = 'call TAB_'CurrentPageNr'_Click'; interpret str
     1554    str = 'call TAB_'CurrentPageNr'_Click';
     1555say str
     1556interpret str
     1557say 'Done 'str
     1558    if CurrentPageNr <> 5 then do
     1559        ok = VRSet("TM_Throbber", "Enabled", 1)
     1560        call _RefreshTree
     1561    end
    14641562    ok = VRMethod("PB_Refresh","SetFocus")
    1465     call _Refresh
    1466     if FirstRun = 1 & CurrentPageNr = 5 then call _RefreshTree
    14671563return
    14681564/*:VRX         Main_Deactivate
    … …  
    15321628    ok = VRset("CN_smbtree","Height", VRGet("Page_5","Height")-120)
    15331629
    1534    
     1630    ok = VRset("PICT_THROBBER", "Left",  VRGet("CN_SMBTREE","Width")%2-240)   
     1631    ok = VRset("PICT_THROBBER", "Top",   VRGet("CN_SMBTREE","Height")%2-200)
     1632
    15351633
    15361634    ButtonDist= 980
    … …  
    16541752PB_Refresh_Click:
    16551753    ok = SysSleep(0.3)
    1656     if CurrentPageNr = 5
    1657         then call _RefreshTree
    1658         else call _Refresh
     1754    if CurrentPageNr = 5 then do
     1755        ok = VRset("Pict_Throbber", "Visible", 1)
     1756        ok = VRset("TM_Throbber", "Enabled", 1)
     1757        call _RefreshTree
     1758    end
     1759    else call _Refresh
     1760return
     1761
     1762/*:VRX         PB_Sort_Cancel_Click
     1763*/
     1764PB_Sort_Cancel_Click:
     1765    ok = VRset( Container, "DetailSort", Old.SortField )
     1766    ok = VRSet( Container, "Sort", Old.SortOrder )
     1767    ok = VRMethod( Container, "SortRecords" )
     1768    drop Old.
     1769    call SW_SORT_Close
     1770return
     1771
     1772/*:VRX         PB_Sort_OK_Click
     1773*/
     1774PB_Sort_OK_Click:
     1775    drop Old.
     1776    call SW_SORT_Close
    16591777return
    16601778
    … …  
    17071825return
    17081826
     1827/*:VRX         RB_Sort_Ascending_Click
     1828*/
     1829RB_Sort_Ascending_Click:
     1830    SortOrder = "Ascending"
     1831    call _ContainerSort
     1832return
     1833
     1834/*:VRX         RB_Sort_Descending_Click
     1835*/
     1836RB_Sort_Descending_Click:
     1837    SortOrder = "Descending"
     1838    call _ContainerSort
     1839return
     1840
     1841/*:VRX         RB_Sort_None_Click
     1842*/
     1843RB_Sort_None_Click:
     1844    SortOrder = "None"
     1845    call _ContainerSort
     1846return
     1847
    17091848/*:VRX         SPIN_Intervall_Change
    17101849*/
    … …  
    17201859return
    17211860
     1861/*:VRX         SW_SORT_Close
     1862*/
     1863SW_SORT_Close:
     1864    call SW_SORT_Fini
     1865return
     1866
     1867/*:VRX         SW_SORT_Create
     1868*/
     1869SW_SORT_Create:
     1870    call SW_SORT_Init
     1871
     1872    CALL NLVSetText 'SW_SORT',              'Caption', 35
     1873    CALL NLVSetText 'PB_Sort_OK',           'Caption', 2
     1874    CALL NLVSetText 'PB_Sort_Cancel',       'Caption', 3
     1875
     1876    CALL NLVSetText 'RB_Sort_Ascending',    'Caption', 90
     1877    CALL NLVSetText 'RB_Sort_Descending',   'Caption', 91
     1878    CALL NLVSetText 'RB_Sort_None',         'Caption', 92
     1879
     1880    Container = OH
     1881say OH
     1882say Container
     1883    ok = VRMethod(Container, "GetFieldList", "Fields." )
     1884
     1885    SortOrder = "None"
     1886
     1887    do I = 1 to Fields.0
     1888        ok = VRMethod("LB_SortFields","AddString", VRMethod(Container, "GetFieldAttr", fields.I, "Title" ))
     1889    end   
     1890    Old.SortField = VRGet( Container, "DetailSort" )
     1891    Old.SortOrder = VRGet( Container, "Sort" )
     1892say Old.SortField
     1893say Old.SortOrder
     1894return
     1895
     1896/*:VRX         SW_SORT_Fini
     1897*/
     1898SW_SORT_Fini:
     1899    window = VRInfo( "Window" )
     1900    call VRDestroy window
     1901    drop window
     1902return
     1903/*:VRX         SW_SORT_Init
     1904*/
     1905SW_SORT_Init:
     1906    window = VRInfo( "Object" )
     1907    if( \VRIsChildOf( window, "Notebook" ) ) then do
     1908        call VRMethod window, "CenterWindow"
     1909        call VRSet window, "Visible", 1
     1910        call VRMethod window, "Activate"
     1911    end
     1912    drop window
     1913return
     1914
    17221915/*:VRX         TAB_1_Click
    17231916*/
    17241917TAB_1_Click:
     1918    if VRGet("TM_Throbber","Enabled") = 1 then ok = VRset("Pict_Throbber", "Visible", 0)
    17251919    call Activate 1
    17261920return
    … …  
    17291923*/
    17301924TAB_2_Click:
     1925    if VRGet("TM_Throbber","Enabled") = 1 then ok = VRset("Pict_Throbber", "Visible", 0)
    17311926    call Activate 2
    17321927return
    … …  
    17351930*/
    17361931TAB_3_Click:
     1932    if VRGet("TM_Throbber","Enabled") = 1 then ok = VRset("Pict_Throbber", "Visible", 0)
    17371933    call Activate 3
    17381934return
    … …  
    17411937*/
    17421938TAB_4_Click:
     1939    if VRGet("TM_Throbber","Enabled") = 1 then ok = VRset("Pict_Throbber", "Visible", 0)
    17431940    call Activate 4
    17441941return
    … …  
    17471944*/
    17481945TAB_5_Click:
     1946    if VRGet("TM_Throbber", "Enabled") then ok = VRset("Pict_Throbber", "Visible", 1)
    17491947    call Activate 5
    1750     if FirstRun = 1 then call _RefreshTree
     1948    if FirstRun = 1 then do
     1949        ok = VRset("TM_Throbber", "Enabled", 1)
     1950        ok = VRset("Pict_Throbber", "Visible", 1)
     1951        call _RefreshTree
     1952    end
    17511953return
    17521954
    … …  
    17541956*/
    17551957TAB_6_Click:
     1958    if VRGet("TM_Throbber","Enabled") = 1 then ok = VRset("Pict_Throbber", "Visible", 0)
    17561959    call Activate 6
    17571960return
    … …  
    17701973return
    17711974
     1975/*:VRX         TM_Throbber_Trigger
     1976*/
     1977TM_Throbber_Trigger:
     1978    pIdx = VRGet("Pict_Throbber","PicturePath")
     1979    parse var pIdx '#' pidx
     1980    pidx = pidx + 1
     1981    if pidx = 136 then pidx = 111
     1982    ok = VRSet("Pict_Throbber","PicturePath","#"pidx)
     1983return
     1984

  • branches/guitools-2.0/smbmon/smbmon_de.mkm

    r315 r334  
    3939SMM0033I: "%1"-Prozess stoppen
    4040SMM0034I: Den "%1"-Prozess wirklich stoppen?
    41 SMM0035?:
     41SMM0035I: Sortieren
    4242SMM0036?:
    4343SMM0037?:
    … …  
    9898SMM0088?:
    9999SMM0089?:
    100 SMM0090?:
    101 SMM0091?:
    102 SMM0092?:
     100SMM0090I: Aufsteigend
     101SMM0091I: Absteigend
     102SMM0092I: Nicht sortieren
    103103SMM0093?:
    104104SMM0094?:
    … …  
    139139SMM0128?:
    140140SMM0129?:
    141 ; User container columsn
     141; User container columns
    142142SMM0130I: PID
    143143SMM0131I: Benutzer

  • branches/guitools-2.0/smbmon/smbmon_en.mkm

    r315 r334  
    3939SMM0033I: Shutdown "%1"-daemon
    4040SMM0034I: Really shutdown "%1"-daemon?
    41 SMM0035?:
     41SMM0035I: Sort
    4242SMM0036?:
    4343SMM0037?:
    … …  
    9898SMM0088?:
    9999SMM0089?:
    100 SMM0090?:
    101 SMM0091?:
    102 SMM0092?:
     100SMM0090I: Ascending
     101SMM0091I: Descending
     102SMM0092I: None
    103103SMM0093?:
    104104SMM0094?:

  • branches/guitools-2.0/smbmon/smbmon_es.mkm

    r315 r334  
    3939SMM0033I: Apagar "%1"-daemon
    4040SMM0034I: Realmente apagar "%1"-daemon?
    41 SMM0035?:
     41SMM0035I: Ordenar
    4242SMM0036?:
    4343SMM0037?:
    … …  
    9898SMM0088?:
    9999SMM0089?:
    100 SMM0090?:
    101 SMM0091?:
    102 SMM0092?:
     100SMM0090I: Ascendente
     101SMM0091I: Descendente
     102SMM0092I: Ordenar no
    103103SMM0093?:
    104104SMM0094?:

  • branches/guitools-2.0/smbmon/smbmon_fr.mkm

    r315 r334  
    4141SMM0033I: Arrˆter le d‚mon-"%1"
    4242SMM0034I: Voulez-vous r‚ellement arrˆter le d‚mon-"%1" ?
    43 SMM0035?:
     43SMM0035I: Trier
    4444SMM0036?:
    4545SMM0037?:
    … …  
    101101SMM0088?:
    102102SMM0089?:
    103 SMM0090?:
    104 SMM0091?:
    105 SMM0092?:
     103SMM0090I: Ascendant
     104SMM0091I: Descendant
     105SMM0092I: Ne pas regrouper
    106106SMM0093?:
    107107SMM0094?:

  • branches/guitools-2.0/smbmon/smbmon_sv.mkm

    r315 r334  
    3939SMM0033I: St„ng ned "%1"
    4040SMM0034I: Skall verkligen "%1" stoppas?
    41 SMM0035?:
     41SMM0035I: Sortera
    4242SMM0036?:
    4343SMM0037?:
    … …  
    9898SMM0088?:
    9999SMM0089?:
    100 SMM0090?:
    101 SMM0091?:
    102 SMM0092?:
     100SMM0090I: Upp
     101SMM0091I: Nere
     102SMM0092I: Sortera inte
    103103SMM0093?:
    104104SMM0094?:
Note: See TracChangeset for help on using the changeset viewer.