Changeset 347 for branches


Ignore:
Timestamp:
Nov 15, 2009, 7:02:45 PM (16 years ago)
Author:
Herwig Bauernfeind
Message:

GUI-Tools: EVFSGUI Version 2.0 beta5 level code

Location:
branches/guitools-2.0
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • branches/guitools-2.0/evfsgui/changes

    r346 r347  
    33- Debug on/off option is badly implemented (rework required)
    44- Create Icon. stem in order to ease maintainance of icons
     5
     6Version 2.0 beta5 2009-11-15
     7+ Added: Manually entered servers are automatically integrated into the
     8         network neighbourhood
     9- Fixed: IP address servers (without a name) can be browsed properly now.
     10- Fixed: Detect missing upcase tables (and don't fall over)
     11- Fixed: If nothing is found, network neighbourhood should be empty (and
     12         not display an unnamed workgroup icon).
     13- Fixed: When immediate authentification for browsing was enabled, the
     14         main window was not redrawn properly.
     15- Fixed: Changed statusbar size (should look better)
    516
    617Version 2.0 beta4 2009-11-03:
    … …  
    1324         
    1425Version 2.0 beta2 2009-10-25:
    15 - Added: English helpfile
    16 - Added: German helpfile
    17 - Added: French helpfile (partly done, requires completion by Guillaume)
    18 - Added: Information about server dialog
    19 - Added: Dialog also uses information from network neighbourhood
    20 - Added: Detection of "dead" (non accessible) servers (which are still in the
     26+ Added: English helpfile
     27+ Added: German helpfile
     28+ Added: French helpfile (partly done, requires completion by Guillaume)
     29+ Added: Information about server dialog
     30+ Added: Dialog also uses information from network neighbourhood
     31+ Added: Detection of "dead" (non accessible) servers (which are still in the
    2132         browse list)
    2233- Changed: Dialog entry fields now use WarpSans Bold font (matches style of
    … …  
    2839
    2940Version 2.0 beta1 2009-09-15:
    30 - Added: Browsing code from smbmon
    31 - Added: D'n'd support for file shares
    32 - Added: Connection wizard dialogs
    33 - Added: main menu bar
    34 - Added: New advanced settings
    35 - Added: "Old" 1.x look and feel
    36 - Added: Main window is resizable
    37 - Added: Splitbar between panels
    38 - Added: Create rudimentary %ETC%\samba\smb.conf
    39 - Added: Connection details view (preliminary)
    40 - Added: Double connection detection using md5 hashes
    41 - Added: New profile saving code
    42 - Added: Remove menu option (preliminary for passive connections only)
    43 - Added: smbtree.vrs: Optionally do not show hidden shares
    44 - Added: smbtree.vrs: Enhanced guessicon()
    45 - Added: Preliminary context menus for Browse View and Connection details view
    46 - Added: "Retry" for passive connections (only manually for now)
    47 - Added: Drag and drop for passive connections
    48 - Added: Hide columns not useful for endusers
    49 - Added: NLV enable (parts of) connection details
    50 - Added: Disabled old profile saving code
    51 - Added: Sort smbtree view ascending
    52 - Added: Optionally turn on/off special ($) shares
    53 - Added: Optionally use big icons
    54 - Added: Profile files may be dropped onto the current connections container
    55 - Added: Login dialog behaviour matches the one from smbusers now
    56 - Added: Preliminary handling of smbtree error messages
    57 - Added: Optionally save passive connections across sessions
    58 - Added: French message file (thanks to Guillaume Gay)
     41+ Added: Browsing code from smbmon
     42+ Added: D'n'd support for file shares
     43+ Added: Connection wizard dialogs
     44+ Added: main menu bar
     45+ Added: New advanced settings
     46+ Added: "Old" 1.x look and feel
     47+ Added: Main window is resizable
     48+ Added: Splitbar between panels
     49+ Added: Create rudimentary %ETC%\samba\smb.conf
     50+ Added: Connection details view (preliminary)
     51+ Added: Double connection detection using md5 hashes
     52+ Added: New profile saving code
     53+ Added: Remove menu option (preliminary for passive connections only)
     54+ Added: smbtree.vrs: Optionally do not show hidden shares
     55+ Added: smbtree.vrs: Enhanced guessicon()
     56+ Added: Preliminary context menus for Browse View and Connection details view
     57+ Added: "Retry" for passive connections (only manually for now)
     58+ Added: Drag and drop for passive connections
     59+ Added: Hide columns not useful for endusers
     60+ Added: NLV enable (parts of) connection details
     61+ Added: Disabled old profile saving code
     62+ Added: Sort smbtree view ascending
     63+ Added: Optionally turn on/off special ($) shares
     64+ Added: Optionally use big icons
     65+ Added: Profile files may be dropped onto the current connections container
     66+ Added: Login dialog behaviour matches the one from smbusers now
     67+ Added: Preliminary handling of smbtree error messages
     68+ Added: Optionally save passive connections across sessions
     69+ Added: French message file (thanks to Guillaume Gay)
    5970- Changed: Several changes in GUI style (as suggested by Alex Taylor)
    6071- Changed: Left align buttons in current connections panel (as suggested by

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

    r346 r347  
    88VRXWindow: __VREMainWindow,1,1072,1783,891,3951
    99VRXWindow: __VRESectionListWindow,1,602,11708,11033,3342
    10 VRXWindow: __VREToolsWindow,1,1963,819,6992,1665
     10VRXWindow: __VREToolsWindow,1,1963,819,6986,1665
    1111UserFile: 1
    1212UserWindow: Main,1
     13UserWindow: SW_LOGIN,1

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

    r345 r347  
    818818    end
    819819return rc
     820/*:VRX         DT_STATUSBAR_ContextMenu
     821*/
     822DT_STATUSBAR_ContextMenu:
     823    ok = VRSet("DT_STATUSBAR","Caption", VRGet("Main", "HintText"))
     824return
     825
    820826/*:VRX         EF_PASSWORD1_KeyPress
    821827*/
    … …  
    841847*/
    842848EF_SERVER_Change:
     849    Now = VRGet("EF_SERVER","value")
     850    if Now = "" then return
     851    ok = SysSleep(1)
     852    if Now <> VRGet("EF_SERVER","value") then return
     853
     854    /* Do nothing for incomplete IP addresses */
     855    if strip(translate(VRGet("EF_SERVER","value"),copies(' ',11),'01234567890.')) = "" & length(VRGet("EF_SERVER","value")) < 7 then return
    843856
    844857    ok = VRMethod( "CN_smbtree", "GetRecordList", "Visible", "rh." )
    845858
    846 
     859    FoundServer = 0
    847860
    848861    do I = 1 to rh.0
    … …  
    878891                end
    879892            end
     893            FoundServer = 1
    880894            leave
    881895        end
    882     end 
     896    end
     897    if Foundserver = 0 then do
     898        machine = VRGet("EF_SERVER","value")
     899        smbtree.!machine = VRMethod( "CN_smbtree", "AddRecord",,, machine)
     900        /* We make any machine as sleeping initially */
     901        ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!machine, "Icon","#61:PMWP.DLL")
     902        ok = VRMethod( "CN_smbtree", "SetRecordAttr", smbtree.!machine, "ReadOnly", 1)
     903        ok = VRMethod( "CN_smbtree", "SetFieldData",  smbtree.!machine, NBFH, machine)
     904        call _RefreshShares
     905    end
    883906return
    884907
    … …  
    13061329    CALL VRSet "TM_AUTOCLOSE", "ENABLED", 1 */
    13071330    ELSE do
    1308         if advanced.!browseauth == 1 then window = VRLoadSecondary( "SW_LOGIN", "W" )
     1331        if advanced.!browseauth == 1 then do
     1332            window = VRLoadSecondary( "SW_LOGIN", "W" )
     1333            call Main_Resize
     1334        end
    13091335        if advanced.!browseimme == 1 then call PB_REFRESH_Click
    13101336    end
    … …  
    14681494    ok = VRSet("GB_STATUSBAR","Left", FWidth-24)
    14691495    ok = VRSet("GB_STATUSBAR","Top", VRGet("Main","Height")-VRGet("GB_STATUSBAR","Height")-FWidth-640+24)
    1470     ok = VRSet("GB_STATUSBAR","Width", VRGet("Main","Width")-2*FWidth-2*32)
     1496    ok = VRSet("GB_STATUSBAR","Width", VRGet("Main","Width")-2*FWidth-2*24-12)
    14711497
    14721498    ok = VRset("DT_STATUSBAR","Top",     8)
    1473     ok = VRset("DT_STATUSBAR","Left",    8+24)
    1474     ok = VRset("DT_STATUSBAR","Width",   VRGet("GB_CURRENT","Width")+VRGet("GB_SMBTREE","Width")+60-24*3)
     1499    ok = VRset("DT_STATUSBAR","Left",    8)
     1500    ok = VRset("DT_STATUSBAR","Width",   VRGet("GB_CURRENT","Width")+VRGet("GB_SMBTREE","Width")+60-24*2)
    14751501
    14761502    ok = VRset("Main","Painting", 1)
    … …  
    16231649    parse var userdata . '|' userdata
    16241650
     1651    say samba.!smbclientexe' -L "'strip(machine)'" -N 'debuglevel' 2>'samba.!msg' 1>NUL'
    16251652    address cmd samba.!smbclientexe' -L "'strip(machine)'" -N 'debuglevel' 2>'samba.!msg' 1>NUL'
    16261653    infoline = linein(samba.!msg)
     1654    if word(infoline,1) = "creating" then do /* upcase tables are missing */
     1655        say "Missing upcase tables detected!"
     1656        infoline = linein(samba.!msg)
     1657        infoline = linein(samba.!msg)
     1658    end
     1659    say '"'Infoline'"'
    16271660    ok = stream(samba.!msg,'c','close')
    16281661    ok = SysFileDelete(samba.!msg)

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

    r345 r347  
    6060:p.:hp2.Speichern:ehp2.&colon. Damit k&oe.nnen Sie die gegenw&ae.rtig aktiven
    6161Mount-Points und Ressourcen in einem Profil speichern. Ein Profil
    62 ist eine reine Text-Datei (mit der Erweiterung .evp bei
    63 Verwendung von EVFS oder .ndc bei der Verwendung von
    64 Netdrive)&comma. in der die aktuellen Verbindungsdaten
    65 gespeichert werden.
     62ist eine reine Text-Datei (mit der Erweiterung :hp2.evp:ehp2. bei Verwendung
     63von EVFS oder :hp2.ndc:ehp2. bei der Verwendung von Netdrive)&comma. in der
     64die aktuellen Verbindungsdaten gespeichert werden.
    6665
    6766:p.:hp2.Autostart:ehp2.&colon. Erzeugt ein Objekt im Autostart-Ordner&comma.
    … …  
    8281Panels (aktuelle Verbindungen)
    8382
    84 :p.Ansicht&colon.
     83:p.Ansicht&colon. Erlaubt die Auswahl der verschiedenen
     84Darstellungsm&oe.glichkeiten des Programmes.
    8585
    8686:p.Ausgew&ae.hlt:ehp2.&colon. Reflektiert das Kontextmen&ue. des rechten
    … …  
    109109:dl break=fit tsize=16.
    110110:dt.:hp2.Profildatei:ehp2.&colon.
    111 :dd.L&ae.dt die Datei mit der Endung .evp f&ue.r EVFS&comma. bzw.
    112 .ndc f&ue.r Netdrive restauriert alle Verbindungen.
     111:dd.L&ae.dt die Datei mit der Endung :hp2.evp:ehp2. f&ue.r EVFS&comma. bzw. :hp2.ndc
     112:ehp2.f&ue.r Netdrive restauriert alle Verbindungen.
    113113:p.Eine Profildatei kann auch mitttels Drag und Drop auf das linke
    114114Panel gezogen werden&comma. um die entsprechenden Verbindungen

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

    r345 r347  
    3636however other tools to accomplish this task.
    3737
    38 :p.:hp2.Additianal note to Netdrive:ehp2.&colon. EVFSGUI only support the
     38:p.:hp2.Additional note to Netdrive:ehp2.&colon. EVFSGUI only support the
    3939CIFS&slr.SMB Netdrive Plugin&comma. but not other plugin
    4040types&comma. such as local&comma. FTP&comma. DAV. Supporting
    … …  
    7171(Current connections).
    7272
    73 :p.:hp2.View:ehp2.&colon.
     73:p.:hp2.View:ehp2.&colon. Allows you to select the different views of the
     74program.
    7475
    7576:p.:hp2.Selected:ehp2.&colon. Corresponds with the context menu of the right
    … …  
    245246(domains)&comma. server or its shares.
    246247
    247 
    248248:p.Using either the context menu or drag and drop operations you can
    249249create new  connections.

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

    r345 r347  
    3232EVG0025I: Utilisateur :
    3333EVG0026I: Mot de passe :
    34 EVG0027I: Monter sur :
     34EVG0027I: Mont‚ en :
    3535EVG0028I: ~Monter
    3636EVG0029I: ~Fermer

  • branches/guitools-2.0/evfsgui/readme.txt

    r345 r347  
    1 EVFSGUI Version 2.0 beta3
     1EVFSGUI Version 2.0 beta5
    22=========================
    33
    … …  
    1313- Get smbclut-3.0.37-20091023.zip (or better).
    1414- Unzip the enclosed binaries into a directory within your PATH.
    15 - Unzip the files from evfsgui-20beta3-20091029 (or better) into a
     15- Unzip the files from evfsgui-20beta5-20xxxxxx.zip into a
    1616  directory within your PATH (preferably the one where you also put
    1717  binaries from smbclut-3.0.37-20091023.zip.
    … …  
    3939  which is compatible (both programs will use the same settings).
    4040- The language files are NOT backward compatible.
    41 - Running 1.3.x and 2.0 beta3 side by side is possible.
     41- Running 1.3.x and 2.0 beta5 side by side is possible.
    4242
    43434. Usage:
    4444
    45 EVFSGUI 2.0 beta3 detects whether it should use EVFS or NDFS automatically.
     45EVFSGUI 2.0 beta5 detects whether it should use EVFS or NDFS automatically.
    4646If you have installed both (which does not really make sense),
    4747EVFS will be chosen, unless you specify -ndfs on the commandline.
    … …  
    102102
    103103- Loading a profile in 1.3 completely replaced all existing connections,
    104   whereas in 2.0 beta3 the profiles are merged. A warning is issured, in
    105   case a connection should be created, if it already exists.
     104  whereas in 2.0 beta5 the profiles are merged. A warning is issued, in
     105  case a connection should be created, which already exists.
    106106 
    107107- EVFSGUI 1.3 only saved active connections to a profile, EVFSGUI 2.0 will
    108108  save all connections to a profile.
    109109 
    110 - EVFSGUI 2.0 beta3 can be made to look like 1.3: Set "View - Mini Icons",
     110- EVFSGUI 2.0 beta5 can be made to look like 1.3: Set "View - Mini Icons",
    111111  set "View - Buttons" and "View Dialog".
    112112 
    113 - EVFSGUI 2.0 beta3 does not save the workgroup across sessions anymore, as
    114   this does not make sense anymore.
    115      
     113- EVFSGUI 2.0 beta5 does not save the workgroup across sessions anymore, as
     114  this does not make sense anymore. However, in order to not to loose comfort,
     115  the entries for workgroup, servers and shares are prepolutaed from the
     116  network neighbourhood.
     117     
    1161186. Limitations:
    117119
    … …  
    123125  context menu.
    124126 
    125 - There are no updated help files yet. The ones from 1.3 can be used, but they
    126   are partly outdated.
    127  
    1281277. Authors, credits:
    129128
    130 - EVFSGUI 1.x (which is still the base of EVFSGUI 2.0 beta3) was created
     129- EVFSGUI 1.x (which is still the base of EVFSGUI 2.0 beta5) was created
    131130  by Alex Taylor and modified and extended by Herwig Bauernfeind.
    132131  Thanks Alex, for letting me use your code as a base!
    … …  
    134133- VRSPLITB.DLL (VX-REXX splitbar control) was provided by Alex Taylor.
    135134 
    136 - EVFSGUI 2.0 beta3 was created by Herwig Bauernfeind.
     135- EVFSGUI 2.0 beta5 was created by Herwig Bauernfeind.
    137136
    138137- The Samba Client Utilities were compiled by Herwig Bauernfeind and are
    … …  
    145144for his support, feedback and ideas.
    146145
    147 Herwig Bauernfeind, St.Veit/Glan, Austria, 29.10.2009
     146Herwig Bauernfeind, St.Veit/Glan, Austria, 15.11.2009
    148147mailto: herwig.bauernfeind@aon.at

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

    r345 r347  
    106106    IF options.!debug == 1 THEN say '  Samba smb.conf = "'samba.!smbconf'"'
    107107
     108    /* upcase table files - several utilities need these */
     109    if (\VRFileExists(samba.!bin'\lib\upcase.dat')) |,
     110       (\VRFileExists(samba.!bin'\lib\lowcase.dat')) |,
     111       (\VRFileExists(samba.!bin'\lib\valid.dat')) then call _ErrorDataFileNotFound 'upcase table files not present.'
     112
    108113    /* Create these directories to make sure they do exist */
    109114    ok = SysMkDir(unixetc)

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

    r346 r347  
    136136                end
    137137            end
     138            when smbtreeline.sl = "" then nop
    138139            otherwise do
    139                 say "Workgroup: "smbtreeline.sl
     140                say 'Workgroup: "'smbtreeline.sl'"'
    140141                if pos("RECEIVING",translate(smbtreeline.sl)) > 0 then do
    141142                    Msg.Type = "W"
    … …  
    207208        stat = stream(smbmachine.I,'c','open read')
    208209        if stat = "READY:" then do /* we found a readable output file */
    209             Machine = VRParseFilename(smbmachine.I,'E')
     210            /* Machine = VRParseFilename(smbmachine.I,'E') */
     211            Machine = substr(smbmachine.I,pos('.',smbmachine.I)+1)
     212
    210213            smbtree.!machine = _GetMachinehandle(Machine)
    211214            say '  Machine (handle) = "'machine'" ('smbtree.!machine')'
    … …  
    272275            end
    273276
     277            do until left(line,10) = '09'x||'Workgroup'
     278                line = linein(smbmachine.I)
     279            end
     280            line = linein(smbmachine.I)
     281            /* Reading workgroup and master - eventually both empty */
     282            line = linein(smbmachine.I)
     283            parse var line '09'x workgroup master
     284            master = strip(master)
     285
     286            /* we use this to set the workgroup for manually added servers */
     287            if workgroup <> "" then do
     288                wgh = _GetMachinehandle(workgroup)
     289                if wgh = "" then do /* This machine is in a new workgroup - add it as well */
     290                    wgh = VRMethod( "CN_smbtree", "AddRecord",,, workgroup,"#62:PMWP.DLL")
     291                    ok = VRMethod( "CN_smbtree", "SetFieldData", wgh, WorkGroupFH, workgroup)
     292                    ok = VRMethod( "CN_smbtree", "SetRecordAttr", wgh, "Collapsed", 0)
     293                    ok = VRMethod( "CN_smbtree", "SetRecordAttr", wgh, "ReadOnly", 1)
     294                    ok = VRMethod( "CN_smbtree", 'SetRecordAttr', wgh, "UserData", "WORKGROUP|")
     295                end
     296                if wgh <> "" then ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Parent', wgh)
     297            end
     298
    274299            say "_AddSharesDisplay() success and cleanup"
    275300            ok = stream(smbmachine.I,'c','close')
    … …  
    279304        else say '  Got "'stat'" for "'smbmachine.I'"'
    280305    end
    281     say "_AddSharesDisplay() loop finished"
     306    say "_AddSharesDisplay() loop end"
    282307return
    283308
    … …  
    285310*/
    286311
    287 _GetMachinehandle: procedure
     312_GetMachinehandle: procedure /* get recordhandle by machine name (also works for workgroups) */
    288313    Machine = translate(arg(1))
    289314
Note: See TracChangeset for help on using the changeset viewer.