"

 COPYRIGHT (c) 2008 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

Object subclass:#Win32FileDialog

	instanceVariableNames:'fileName openFileNameStruct filters lpstrFilter lpstrFile

		lpstrInitialDir lpstrTitle lpstrDefExt defFilter defExtension

		style title smalltalkFileFilters defFilterIndex parent error'

	classVariableNames:'InitialDirectory CommonDialogConstants FilterPatternDescriptions'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

ByteArray variableByteSubclass:#OpenFilenameStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32FileDialog

!

!Win32FileDialog class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2008 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    interface to windows file dialogs

"

! !

!Win32FileDialog class methodsFor:'initialization'!

initialize

    Lock := RecursionLock new.

    "Created: / 26-10-2010 / 12:51:23 / cg"

!

startUp

    "Private - Initialize the class variables.  

     This is called during startup."

    InitialDirectory := Directory pathName: Disk drivePathName.

! !

!Win32FileDialog class methodsFor:'instance creation'!

new

    ^ self basicNew initialize

! !

!Win32FileDialog class methodsFor:'accessing'!

getInitialDirectory

    ^ InitialDirectory

    "Modified: / 26-10-2010 / 18:47:46 / cg"

!

setInitialDirectory:aName 

    InitialDirectory := Directory pathName:aName

    "Modified: / 26-10-2010 / 18:47:48 / cg"

! !

!Win32FileDialog class methodsFor:'constants'!

commonDialogConstantAt:aString 

    ^ self commonDialogConstants at:aString

        ifAbsent:[

            Transcript showCR:'Common Dialog Constant ' , aString , ' notfound!!'

        ]

    "Modified: / 26-10-2010 / 18:47:51 / cg"

!

commonDialogConstants

    CommonDialogConstants isNil ifTrue:[

        CommonDialogConstants := self generateCommonDialogConstants

    ].

    ^ CommonDialogConstants

    "Modified: / 26-10-2010 / 18:47:54 / cg"

!

generateCommonDialogConstants

    |dictionary|

    dictionary := Dictionary new.

    dictionary

        at:'CcPreventfullopen' put:4;

        at:'FrShowhelp' put:128;

        at:'PdEnablesetuptemplate' put:32768;

        at:'FrNoupdown' put:1024;

        at:'CfNosimulations' put:4096;

        at:'OfnPathmustexist' put:2048;

        at:'CfWysiwyg' put:32768;

        at:'PdReturndc' put:256;

        at:'PdEnableprinthook' put:4096;

        at:'CfInittologfontstruct' put:64;

        at:'CfScalableonly' put:131072;

        at:'PdPrinttofile' put:32;

        at:'CfEffects' put:256;

        at:'PdShowhelp' put:2048;

        at:'OfnEnabletemplatehandle' put:128;

        at:'CfBoth' put:3;

        at:'OfnReadonly' put:1;

        at:'PdNopagenums' put:8;

        at:'PdDisableprinttofile' put:524288;

        at:'PdHideprinttofile' put:1048576;

        at:'OfnAllowmultiselect' put:512;

        at:'CfPrinterfonts' put:2;

        at:'CfEnabletemplatehandle' put:32;

        at:'PdSelection' put:1;

        at:'OfnHidereadonly' put:4;

        at:'PdPrintsetup' put:64;

        at:'OfnExtentiondifferent' put:1024;

        at:'FrReplaceall' put:32;

        at:'FrMatchcase' put:4;

        at:'OfnFilemustexist' put:4096;

        at:'PdCollate' put:16;

        at:'CfFixedpitchonly' put:16384;

        at:'PdEnablesetuphook' put:8192;

        at:'OfnShareaware' put:16384;

        at:'CcEnablehook' put:16;

        at:'CfEnabletemplate' put:16;

        at:'Findmsgstring' put:'commdlgFindreplace';

        at:'CfLimitsize' put:8192;

        at:'OfnNochangedir' put:8;

        at:'OfnCreateprompt' put:8192;

        at:'ScreenFonttype' put:8192;

        at:'PdUsedevmodecopies' put:262144;

        at:'CcRgbinit' put:1;

        at:'FrFindnext' put:8;

        at:'CfUsestyle' put:128;

        at:'FrEnablehook' put:256;

        at:'PdEnableprinttemplatehandle' put:65536;

        at:'CfShowhelp' put:4;

        at:'FrNowholeword' put:4096.

    dictionary

        at:'ShareExist' put:16448;

        at:'OfnOverwriteprompt' put:2;

        at:'OfnEnablehook' put:32;

        at:'OfnShowhelp' put:16;

        at:'CcEnabletemplatehandle' put:64;

        at:'SimulatedFonttype' put:32768;

        at:'FrDown' put:1;

        at:'PdEnableprinttemplate' put:16384;

        at:'CfNovectorfonts' put:2048;

        at:'PdNoselection' put:4;

        at:'CfAnsionly' put:1024;

        at:'OfnNovalidate' put:256;

        at:'CfScreenfonts' put:1;

        at:'FrWholeword' put:2;

        at:'FrEnabletemplatehandle' put:8192;

        at:'PdAllpages' put:0;

        at:'CfForcefontexist' put:65536;

        at:'CcEnabletemplate' put:32;

        at:'PdPagenums' put:2;

        at:'FrReplace' put:16;

        at:'PdEnablesetuptemplatehandle' put:131072;

        at:'CfApply' put:512;

        at:'OfnEnabletemplate' put:64;

        at:'DnDefaultprn' put:1;

        at:'PdNowarning' put:128;

        at:'CfTtonly' put:262144;

        at:'PrinterFonttype' put:16384;

        at:'CcShowhelp' put:8;

        at:'CcFullopen' put:2;

        at:'PdReturnic' put:512;

        at:'FrEnabletemplate' put:512;

        at:'FrDialogterm' put:64;

        at:'Helpmsgstring' put:'commdlgHelp';

        at:'PdReturndefault' put:1024;

        at:'FrNomatchcase' put:2048;

        at:'CfEnablehook' put:8.

    ^ dictionary

    "Modified: / 26-10-2010 / 18:47:57 / cg"

! !

!Win32FileDialog class methodsFor:'examples'!

openFile

    ^ (Win32FileDialog new openFile: 'c:\untitled.txt') file.

    "

     self openFile

    "

!

saveFile

    ^ (Win32FileDialog new saveFile: 'C:\vsw311\untitled.txt') file.

    "

     self saveFile

    "

! !

!Win32FileDialog class methodsFor:'filters'!

filterPatternDescription:filterPattern 

    ^ self filterPatternDescriptions at:filterPattern ifAbsent:''

    "Modified: / 26-10-2010 / 18:48:24 / cg"

!

filterPatternDescriptions

    FilterPatternDescriptions isNil ifTrue:[

        FilterPatternDescriptions := self generateFilterPatternDescriptions

    ].

    ^ FilterPatternDescriptions

    "Modified: / 26-10-2010 / 18:48:25 / cg"

!

filtersFor:pattern 

    |filters filterPatterns|

    pattern isEmptyOrNil ifTrue:[

        ^ nil

    ].

    filters := OrderedCollection new.

    filterPatterns := pattern subStrings:$;.

    filterPatterns do:[:filterPattern | 

        filterPattern notEmpty ifTrue:[

            filters add:(Array with:(self filterPatternDescription:filterPattern)

                        with:filterPattern)

        ].

    ].

    ^ filters asArray

    "Modified: / 26-10-2010 / 18:48:26 / cg"

!

generateFilterPatternDescriptions

    ^ (Dictionary new)

        at:'*.txt' put:'Text files (*.txt)';

        at:'*.st' put:'Smalltalk files (*.st)';

        at:'*.csv' put:'CSV files (*.csv)';

        at:'*.xml' put:'XML files (*.xml)';

        at:'*.zip' put:'ZIP files (*.zip)';

        at:'*.xls' put:'Excel files (*.xls)';

        at:'*.ent' put:'SGML Entity files (*.ent)';

        at:'*.ccs' put:'CCS files (*.ccs)';

        at:'*.ini' put:'Configuration files (*.ini)';

        at:'*.prn' put:'Printer Text files (*.prn)';

        at:'*.dir' put:'DapasX Database files (*.dir)';

        at:'*.dat' put:'DapasX Database files (*.dat)';

        at:'*.prg' put:'DapasX Program files (*.prg)';

        at:'*.dcf' put:'DapasX Options files (*.dcf)';

        at:'*.ext' put:'DapasX Backup files (*.ext)';

        at:'*.mpl' put:'DapasX Project files (*.mpl)';

        yourself

    "Modified: / 26-10-2010 / 18:48:28 / cg"

! !

!Win32FileDialog class methodsFor:'opening'!

fileDialogFor:ownerWindow save:isSaveDialog 

    title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil

    filter:pattern extension:extensionOrNil

    "start a native open-file dialog.

     If not cancelled, the selected fileName is returned; nil otherwise.

     Of course, this one looks like the

     Windows file dialog - no matter which viewStyle settings are active.

     Notice: if no ownerWindow is given, the dialog pops up at 0@0.

     EXPERIMENTAL & non-portable: use with caution"

    |filePath filterArrayOrNil|

    filterArrayOrNil := self filtersFor: pattern.

    filePath := 

        self new

            openFor:ownerWindow

            save:isSaveDialog

            title:titleOrNil

            inDirectory:dirPathOrNil

            initialAnswer:initialOrNil

            filter:filterArrayOrNil

            extension:extensionOrNil.

    ^ filePath

! !

!Win32FileDialog methodsFor:'accessing'!

addAllFilesFilter

    self addFilter: '*.*' description: 'All Files (*.*)'.

!

addFilter:aFilter description:aDescription 

    "Add aFilter and aDescription to the list of File dialog filters."

    filters add:(Association key:aFilter value:aDescription).

    "Modified: / 26-10-2010 / 18:45:27 / cg"

!

addSmalltalkFileFilters

    ^ smalltalkFileFilters

    "Modified: / 26-10-2010 / 18:45:29 / cg"

!

defExtension:aDefExtension 

    "Specifies the default extension of File dialog."

    defExtension := aDefExtension.

    "Modified: / 26-10-2010 / 18:45:54 / cg"

!

defFilter

    "Answers the aDefFilterString as the default filter of File dialog."

    ^ defFilter

    "Modified: / 26-10-2010 / 18:45:56 / cg"

!

defFilter:aDefFilterString 

    "Specifies the aDefFilterString as the default filter of File dialog."

    defFilter := aDefFilterString

    "Modified: / 26-10-2010 / 18:45:58 / cg"

!

defFilterIndex:defaultFilterIndex 

    defFilterIndex := defaultFilterIndex.

    "Modified: / 26-10-2010 / 18:46:01 / cg"

!

directory

    "Answer the selected directory."

    InitialDirectory isNil ifTrue:[

        ^ Filename currentDirectory pathName asFilename

    ].

    ^ InitialDirectory "? OperatingSystem getCurrentDirectory asFilename"

    "Modified: / 26-10-2010 / 18:46:03 / cg"

!

directory:directory 

    "Sets the initial directory."

    |aFilename|

    directory isNil ifTrue:[

        ^ self.

    ].

    aFilename := directory asFilename.

    aFilename exists ifTrue:[

        InitialDirectory := aFilename

    ].

    "Modified: / 26-10-2010 / 18:46:06 / cg"

!

file

    "Answer the selected file."

    ^ fileName

    "Modified: / 26-10-2010 / 18:46:10 / cg"

!

fileSpec: aFileSpec

    "Sets the initial fileName and directory in the File Dialog."

    | array dir |

    "SHOULD assign initial fileName and directory separately using #fileName: and #directory"

    self breakPoint:#fm.

    fileName := aFileSpec.

"/    array := Filename splitPath: aFileSpec in: self directory .

"/    dir := 

"/        (( String with: ( array at: 1 ) with: $: ),

"/        ( ( array at: 2 ) isEmpty ifTrue: [ '\' ] ifFalse: [ array at: 2 ] )) asFilename.

"/    dir exists ifFalse: [ dir := OperatingSystem getCurrentDirectory asFilename ].

"/

"/    self directory: dir.

"/    fileName := array at: 3

    "Modified: / 26-10-2010 / 18:46:22 / cg"

!

filters

    "Private - answers  a string containing all filters and sets up

     the defFilterIndex property"

    | filterString count defaultFilterIndex defaultFilter|

    smalltalkFileFilters notNil ifTrue: [

        self

            addFilter: '*.cls' description: 'Class Files (*.CLS)';

            addFilter: '*.mth' description: 'Method Files (*.MTH)';

            addFilter: '*.st' description: 'Smalltalk Files (*.ST)';

            addFilter: '*.bnd' description: 'Library Bind Files (*.BND)';

            addFilter: '*.map' description: 'Library Map Files (*.MAP)';

            addFilter: '*.ini' description: 'Initialization Files (*.INI)';

            addFilter: '*.obj' description: 'Object Files (*.OBJ)';

            addFilter: '*.log' description: 'Log Files (*.LOG)' 

    ].

    defaultFilter := self defFilter.

    (fileName notEmptyOrNil and:[defaultFilter isNil]) ifTrue:[

        |initialFilenameSuffix|

        initialFilenameSuffix := fileName asFilename suffix.

        initialFilenameSuffix notEmptyOrNil ifTrue:[

            defaultFilter := '*.', initialFilenameSuffix.

        ].

    ].

    filterString := String new.

    count := 0.

    defaultFilterIndex := 0.

    filters do: [:assoc |

        count := count + 1.

        assoc key = defaultFilter ifTrue: [ defaultFilterIndex := count ].

        filterString := filterString, assoc value, #[0] asString, assoc key , #[0] asString. 

    ].

    self defFilterIndex: defaultFilterIndex.

    ^filterString

    "Modified: / 26-10-2010 / 18:46:35 / cg"

!

flags

    "Private - Answers the dialog box current flags.

     For compatibility reasons -> use style instead"

    ^ openFileNameStruct flags

    "Modified: / 26-10-2010 / 18:46:38 / cg"

!

flags:flags 

    "Private - Specifies the dialog box creation flags.

     Kept for compatibility reasons. Use style: instead"

    self style:flags

    "Modified: / 26-10-2010 / 18:46:42 / cg"

!

hideReadonly

    "Hides the file dialog's Readonly check box. "

    self 

        style:self style | (self class commonDialogConstantAt:'OfnHidereadonly')

    "Modified: / 26-10-2010 / 18:46:48 / cg"

!

initialFileName:filename 

    "Sets the initial fileName string in the File Dialog."

    |aString|

    filename isNil ifTrue:[

        ^ self.

    ].

    aString := filename.

    filename isFilename ifTrue:[

        aString := filename baseName

    ].

    fileName := aString.