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/smbmon
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • 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.