Changeset 349


Ignore:
Timestamp:
Dec 23, 2009, 8:55:15 AM (16 years ago)
Author:
Herwig Bauernfeind
Message:

GUI-Tools: EVFSGUI Version 2.0 GA level code

Location:
branches/guitools-2.0
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/guitools-2.0/evfsgui/changes

    r348 r349  
    1 ToDo:
     1ToDo for 2.x:
    22- Major code refactoring (partly done)
    33- Debug on/off option is badly implemented (rework required)
    44- Create Icon. stem in order to ease maintainance of icons
    5 - We need to create an empty unexpected.tdb
    6 
    7 Version 2.0 beta6 2009-11-24
     5
     6Version 2.0 GA
     7- Added: Provide unexpected.tdb in the installer
     8- Fixed: Detect trailing tabs and blanks in the temporary directory
     9
     10Version 2.0 beta6 2009-12-12
    811+ Added: WPI installer for Plugin, EVFSGUI and Samba Client Utilities
    912         (plus variant that includes EVFS for eCS distribution).

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

    r348 r349  
    88VRXWindow: __VREMainWindow,1,1072,1783,891,3951
    99VRXWindow: __VRESectionListWindow,1,602,11033,11033,3975
    10 VRXWindow: __VREToolsWindow,1,1963,819,6986,1661
     10VRXWindow: __VREToolsWindow,1,1963,819,6989,1659
    1111VRXWindow: __VREWindListWindow,1,470,8528,2650,3150
    1212UserFile: 1

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

    r348 r349  
    131131
    132132    /* Connection details */
    133     ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.mpidxfh ,       "Visible", 1)
    134     ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.passwordfh ,    "Visible", 1)
    135     ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.spasswordfh ,   "Visible", 1)
     133    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.mpidxfh ,       "Visible", 0)
     134    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.passwordfh ,    "Visible", 0)
     135    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.spasswordfh ,   "Visible", 0)
    136136    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.masterFH ,      "Visible", 0)
    137137    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.mtypeFH ,       "Visible", 0)
    … …  
    139139    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.logfilefh ,     "Visible", 0)
    140140    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.loglevelfh ,    "Visible", 0)
    141     ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.hashfh ,        "Visible", 1)
     141    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.hashfh ,        "Visible", 0)
    142142
    143143    ok = VRSet("CN_CONDET", "DetailSort", cd.mpointfh )
    … …  
    246246    CALL NLVSetText 'Menu_View_MiniIcons','Caption', 70
    247247
    248     CALL NLVSetText 'Menu_File_Autostart','Caption', 35
    249     CALL NLVSetText 'Menu_File_CLOSE',    'Caption', 29
    250     CALL NLVSetText 'Menu_File_SAVE',     'Caption', 30
    251     CALL NLVSetText 'Menu_File_LOAD',     'Caption', 31
    252     CALL NLVSetText 'Menu_File_SETTINGS', 'Caption', 47
    253     CALL NLVSetText 'Menu_File_ADVANCED', 'Caption', 40
     248    CALL NLVSetText 'Menu_File_Autostart',           'Caption', 35
     249    CALL NLVSetText 'Menu_File_Autostart_Activate',  'Caption', 76
     250    CALL NLVSetText 'Menu_File_Autostart_Deactivate','Caption', 77
     251    CALL NLVSetText 'Menu_File_CLOSE',               'Caption', 29
     252    CALL NLVSetText 'Menu_File_SAVE',                'Caption', 30
     253    CALL NLVSetText 'Menu_File_LOAD',                'Caption', 31
     254    CALL NLVSetText 'Menu_File_SETTINGS',            'Caption', 47
     255    CALL NLVSetText 'Menu_File_ADVANCED',            'Caption', 40
    254256
    255257    CALL NLVSetText 'Menu_Selected_Connect', 'Caption', 28
    … …  
    10191021/*:VRX         GetChildren
    10201022*/
    1021 GetChildren: PROCEDURE EXPOSE existrec. exc options. fs. cd.
     1023GetChildren: PROCEDURE EXPOSE existrec. exc options. fs. cd. samba.
    10221024    IF options.!debug == 1 THEN SAY time()' GetChildren started'
    10231025    PARSE ARG node, parec
    … …  
    10511053/*:VRX         GetMountPoints
    10521054*/
    1053 GetMountPoints: PROCEDURE EXPOSE existrec. options. fs. cd.
     1055GetMountPoints: PROCEDURE EXPOSE existrec. options. fs. cd. samba.
    10541056    IF options.!debug == 1 THEN SAY time()' GetMountPoints started'
    10551057    CALL VRSet 'CN_CURRENT', 'Painting', 0
    … …  
    11291131    Fatal = 1
    11301132    RestartCount = 0
     1133    if SysSearchPath("PATH", "EVFSCTL.EXE") = "" then ForceNDFS = 1
    11311134
    11321135CtlRestart:
    … …  
    16561659return
    16571660
     1661/*:VRX         Menu_Context_Open_Click
     1662*/
     1663Menu_Context_Open_Click:
     1664    CALL VRMethod 'CN_CURRENT', 'GetRecordList', 'Selected', 'select.'
     1665    IF select.0 < 1 THEN RETURN
     1666
     1667    userdata = VRMethod( 'CN_CURRENT', 'GetRecordAttr', select.1, 'UserData')
     1668    PARSE VAR userdata mountpoint ';' mounts ';' .
     1669
     1670    say mountpoint
     1671    rc = SysOpenObject(mountpoint, "DEFAULT", 1)
     1672return
     1673
    16581674/*:VRX         Menu_Context_Unmount_Click
    16591675*/
    … …  
    16681684return
    16691685
     1686/*:VRX         Menu_File_Autostart_Activate_Click
     1687*/
     1688Menu_File_Autostart_Activate_Click:
     1689    call PB_AUTOSTART_Click
     1690return
     1691
    16701692/*:VRX         Menu_File_Autostart_Click
    16711693*/
    16721694Menu_File_Autostart_Click:
    1673     call PB_AUTOSTART_Click
     1695
     1696return
     1697
     1698/*:VRX         Menu_File_Autostart_Deactivate_Click
     1699*/
     1700Menu_File_Autostart_Deactivate_Click:
     1701    ok = SysDestroyObject("<EVFSGUI_AUTOSTART>")
     1702    IF ok == 1 THEN CALL VRMessage 'Main', NLVGetMessage( 79 ), NLVGetMessage( 1 )
     1703               ELSE CALL VRMessage 'Main', NLVGetMessage( 78 ), NLVGetMessage( 5 ), 'E'
    16741704return
    16751705
    … …  
    17961826/*:VRX         Menu_Selected_Retry_Click
    17971827*/
    1798 Menu_Selected_Retry_Click: PROCEDURE EXPOSE settings. options. vfs. fs. advanced. cd.
     1828Menu_Selected_Retry_Click: PROCEDURE EXPOSE settings. options. vfs. fs. advanced. cd. samba.
    17991829
    18001830    ok = VRMethod( "CN_CONDET", "GetRecordList", "SourceOrSelected", "srcrec." )
    … …  
    19351965/*:VRX         Mount
    19361966*/
    1937 Mount: PROCEDURE EXPOSE settings. options. vfs. fs. advanced. cd.
     1967Mount: PROCEDURE EXPOSE settings. options. vfs. fs. advanced. cd. samba.
    19381968    IF options.!debug == 1 THEN SAY time()' Mount procedure started'
    19391969    /* Set mouse pointer to wait - this operation might take a few seconds */
    … …  
    20702100/*:VRX         MyFreeDriveMap
    20712101*/
    2072 MyFreeDriveMap: procedure expose options. fs.
     2102MyFreeDriveMap: procedure expose options. fs. samba.
    20732103    IF options.!debug == 1 THEN SAY time()' MyFreeDriveMap(proc) started'
    20742104    alldrives = "C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z:"
    … …  
    21472177/*:VRX         ParseResourceData
    21482178*/
    2149 ParseResourceData: PROCEDURE EXPOSE userdata options. advanced. fs. cd.
     2179ParseResourceData: PROCEDURE EXPOSE userdata options. advanced. fs. cd. samba.
    21502180    PARSE ARG userdata, resdata
    21512181    IF options.!debug == 1 THEN SAY time()' ParseResourceData started'
    … …  
    22682298/*:VRX         PB_AUTOSTART_Click
    22692299*/
    2270 PB_AUTOSTART_Click: PROCEDURE EXPOSE settings. options. Profile fs. cd. advanced.
     2300PB_AUTOSTART_Click: PROCEDURE EXPOSE settings. options. Profile fs. cd. advanced. samba.
    22712301    options.!autostart = 1
    22722302    Profile = VRParseFilename(settings.!ini,'DPN')'.'fs.!profileext
    … …  
    23102340/*:VRX         PB_CONDET_SAVE_Click
    23112341*/
    2312 PB_CONDET_SAVE_Click: PROCEDURE EXPOSE settings. options. Profile fs.  cd. advanced.
     2342PB_CONDET_SAVE_Click: PROCEDURE EXPOSE settings. options. Profile fs.  cd. advanced. samba.
    23132343    IF options.!debug == 1 THEN SAY time()' '||"PB_CONDET_SAVE_Click started"
    23142344
    … …  
    23602390/*:VRX         PB_CONNECT_Click
    23612391*/
    2362 PB_CONNECT_Click: PROCEDURE EXPOSE settings. options. fs. advanced. cd.
     2392PB_CONNECT_Click: PROCEDURE EXPOSE settings. options. fs. advanced. cd. samba.
    23632393    IF options.!debug == 1 THEN SAY time()' '||"PB_CONNECT_Click started"
    23642394    p_workgroup = ''
    … …  
    24682498/*:VRX         PB_DETACH_Click
    24692499*/
    2470 PB_DETACH_Click: PROCEDURE EXPOSE settings. options. fs. cd.
     2500PB_DETACH_Click: PROCEDURE EXPOSE settings. options. fs. cd. samba.
    24712501    IF options.!debug == 1 THEN SAY time()' '||"PB_DETACH_Click started"
    24722502    CALL VRMethod 'CN_CURRENT', 'GetRecordList', 'Selected', 'select.'
    … …  
    25282558/*:VRX         PB_LOAD_Click
    25292559*/
    2530 PB_LOAD_Click: PROCEDURE EXPOSE settings. options. advanced. vfs. Profile fs. cd.
     2560PB_LOAD_Click: PROCEDURE EXPOSE settings. options. advanced. vfs. Profile fs. cd. samba.
    25312561    IF options.!autoload == 1 then filename = Profile
    25322562    else filename = VRFileDialog('Main', NLVGetMessage( 55 ), 'L', '*.'fs.!profileext)
    … …  
    27682798/*:VRX         PB_SAVE_Click
    27692799*/
    2770 PB_SAVE_Click: PROCEDURE EXPOSE settings. options. Profile fs. cd. advanced.
     2800PB_SAVE_Click: PROCEDURE EXPOSE settings. options. Profile fs. cd. advanced. samba.
    27712801    call PB_CONDET_SAVE_Click
    27722802
    … …  
    28462876/*:VRX         PB_UNMOUNT_Click
    28472877*/
    2848 PB_UNMOUNT_Click: PROCEDURE EXPOSE settings. options. fs. cd.
     2878PB_UNMOUNT_Click: PROCEDURE EXPOSE settings. options. fs. cd. samba.
    28492879    IF options.!debug == 1 THEN SAY time()' '||"PB_UNMOUNT_Click started"
    28502880    IF options.!debug == 1 THEN SAY time()' '||'options.!editmode = 'options.!editmode
    … …  
    29562986/*:VRX         SaveSettings
    29572987*/
    2958 SaveSettings: PROCEDURE EXPOSE settings. options. fs. advanced. cd.
     2988SaveSettings: PROCEDURE EXPOSE settings. options. fs. advanced. cd. samba.
    29592989    IF options.!debug == 1 THEN SAY time()' '||"SaveSettings started"
    29602990

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

    r348 r349  
    8181EVG0074I: Broadcasts statt dem lokalen Master Browser benutzen
    8282EVG0075I: Als Standardarbeitsgruppe speichern
    83 EVG0076?:
    84 EVG0077?:
    85 EVG0078?:
    86 EVG0079?:
     83EVG0076I: Aktivieren
     84EVG0077I: Deaktivieren
     85EVG0078I: Kein Autostart Objekt gefunden.
     86EVG0079I: Autostart erfolgreich deaktiviert.
    8787; Menu entries
    8888EVG0080I: ~Datei

  • branches/guitools-2.0/evfsgui/evfsi_en.mkm

    r348 r349  
    8181EVG0074I: Use broadcasts instead of local master browser
    8282EVG0075I: Save as default workgroup
    83 EVG0076?:
    84 EVG0077?:
    85 EVG0078?:
    86 EVG0079?:
     83EVG0076I: Enable
     84EVG0077I: Disable
     85EVG0078I: Failure - could not remove Autostart object.
     86EVG0079I: Disabled Autostart successfully.
    8787; Menu entries
    8888EVG0080I: ~File

  • branches/guitools-2.0/evfsgui/evfsi_fr.mkm

    r348 r349  
    8686EVG0074I: Utilisation des broadcasts plut“t que le maŒtre explorateur local
    8787EVG0075I: Enregistrer groupe de travail par d‚faut
    88 EVG0076?:
    89 EVG0077?:
    90 EVG0078?:
    91 EVG0079?:
     88EVG0076I: Activer
     89EVG0077I: D‚sactiver
     90EVG0078I: Impossible de trouver l'objet Lancement auto.
     91EVG0079I: Lancement auto correctement d‚sactiv‚.
    9292; Menu entries
    9393EVG0080I: ~Fichier

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

    r348 r349  
    118118    /* Messages from Samba will go here */
    119119    samba.!error = SysTempFileName(TempDir'smb_err.???')
     120    IF options.!debug == 1 THEN say '  samba.!error   = "'samba.!error'"'
    120121    samba.!msg   = SysTempFileName(TempDir'smb_msg.???')
     122    IF options.!debug == 1 THEN say '  samba.!msg     = "'samba.!error'"'
    121123    /* Use of this file is deprecated */
    122124    ErrorFile  = Tempdir'smbutil.error'

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

    r348 r349  
    2525        IF options.!debug == 1 THEN say '  WARNING! Setting missing TMPDIR   variable to "'TempDir'".'
    2626        ok = value('TMPDIR',TempDir,'OS2ENVIRONMENT')
    27     end   
    28     TempDir       = strip(TempDir,'T','\')||'\' /* make sure there is trailing "\" */
     27    end
     28    /* Remove trailing \, translate tabs into blanks */
     29    TempDir       = translate(strip(TempDir,'T','\'),' ','09'x)
    2930
    30     IF options.!debug == 1 THEN say time()' _InitTempDir() done , will use "'TempDir'"'
     31    /* Check if there are trailing blanks now - this is an error! */
     32    if strip(TempDir) <> TempDir then do
     33        say 'WARNING! Remove trailing blanks and tabs from temporary directory!'
     34        ok = value('TMPDIR',strip(TempDir),'OS2ENVIRONMENT')
     35    end
     36
     37    /* In case it does not exist, create it */
     38    if  \VRFileExists(TempDir) then do
     39        say 'WARNING! Temporary directory had to be created!'
     40        ok = SysMkDir(TempDir)
     41    end
     42
     43    /* make sure there is a trailing "\" */
     44    Tempdir = strip(TempDir)||'\'
     45
     46    IF options.!debug == 1 THEN say time()' _InitTempDir() done, we will use "'TempDir'"'
    3147return
    3248

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

    r348 r349  
    3131_RefreshTreeDisplay:
    3232    say time()' _RefreshTreeDisplay() started'
     33    say '  samba.!msg = "'samba.!msg'"'
    3334    stat = stream(samba.!msg,'c','open read')
    3435    if stat <> "READY:" then return
Note: See TracChangeset for help on using the changeset viewer.