"{ Package: 'stx:libtool' }"

Object subclass:#Win32FileDialog

	instanceVariableNames:'fileName openFileNameStruct filters lpstrFilter lpstrFile

		lpstrInitialDir lpstrTitle lpstrDefExt defFilter defExtension

		style title smalltalkFileFilters defFilterIndex parent'

	classVariableNames:'InitialDirectory CommonDialogConstants FilterPatternDescriptions'

	poolDictionaries:''

	category:'Interface-Tools-File'

!

ByteArray variableByteSubclass:#OpenFilenameStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32FileDialog

!

!Win32FileDialog class methodsFor:'instance creation'!

new

    ^ super new initialize

! !

!Win32FileDialog class methodsFor:'accessing'!

getInitialDirectory

     ^ InitialDirectory

!

setInitialDirectory: aName

     InitialDirectory := Directory pathName: aName

! !

!Win32FileDialog class methodsFor:'constants'!

commonDialogConstantAt: aString

    ^ self commonDialogConstants at: aString ifAbsent:[Transcript showCR: 'Common Dialog Constant ', aString, ' notfound!!']

!

commonDialogConstants

    CommonDialogConstants isNil ifTrue:[CommonDialogConstants := self generateCommonDialogConstants ].

    ^ CommonDialogConstants

!

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

! !

!Win32FileDialog class methodsFor:'examples'!

openFile

    "

        self openFile

    "

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

!

saveFile

    "

        self saveFile

    "

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

! !

!Win32FileDialog class methodsFor:'filters'!

filterPatternDescription: filterPattern

    ^ self filterPatternDescriptions at: filterPattern ifAbsent: ''

!

filterPatternDescriptions

    FilterPatternDescriptions isNil ifTrue:[ FilterPatternDescriptions := self generateFilterPatternDescriptions ].

    ^ FilterPatternDescriptions

!

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

!

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

! !

!Win32FileDialog class methodsFor:'initialize'!

startUp

        "Private - Initialize the class variables.  This is called

         during startup."

    InitialDirectory := Directory pathName: Disk drivePathName.

! !

!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 ).

!

addSmalltalkFileFilters

    ^ smalltalkFileFilters

!

defExtension: aDefExtension

        "Specifies the default extension of File dialog."

    defExtension := aDefExtension.

!

defFilter

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

    ^ defFilter

!

defFilter: aDefFilterString

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

    defFilter := aDefFilterString

!

defFilterIndex: defaultFilterIndex 

    defFilterIndex := defaultFilterIndex.

!

directory

        "Answer the selected directory."

    ^ InitialDirectory ? OperatingSystem getCurrentDirectory asFilename

!

directory: directory

        "Sets the initial directory."

    | aFilename |

    directory isNil ifTrue:[^ self.].

    aFilename := directory asFilename.

    aFilename exists ifTrue: [ InitialDirectory := aFilename ].      

!

file

        "Answer the selected file."

    ^fileName

!

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

    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

!

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 asAsciiZ, assoc key asAsciiZ 

    ].

    self defFilterIndex: defaultFilterIndex.

    ^filterString

!

flags

        "Private - Answers the dialog box current flags.

        For compatibility reasons -> use style instead"

    ^openFileNameStruct flags

!

flags: flags

        "Private - Specifies the dialog box creation flags.

        Kept for compatibility reasons. Use style: instead"

    self style: flags

!

hideReadonly

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

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

!

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.

!

overwritePrompt

        "Prompt if the user attempts to overwrite a file"

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

!

owner: ownerWindow

        "Sets the owner of the Dialog box."

    |mainView handle|

    ownerWindow isNil ifTrue:[^ self].

    mainView := ownerWindow windowGroup mainView.

    mainView notNil ifTrue:[

        handle := mainView id.

        handle notNil ifTrue:[

            parent := handle address

        ].

    ].

"/    super owner: anOwner.

"/    owner isWindow

"/        ifTrue: [ parent := owner ]

"/        ifFalse: [ parent := owner mainView.

"/                       parent isWindow ifFalse: [

"/                            parent := Notifier findWindow: WindowHandle queryActive ]].

!

pathMustExist

       "Private & DEFAULT!!."

       "Changed by K3/EES5-Mg, 29.01.97"

    self style: self style | 16r800.

!

shareAware

        "Allows a previously opened file to be opened

         (e.g. change.log)"

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

!

style

    ^ style ? 8

!

style:something

    style := something.

!

title: aTitle

        "Specifies the string to be placed in the title bar of the

        File dialog."

    title := aTitle

! !

!Win32FileDialog methodsFor:'dapas'!

dapasOpenFile

        "Brings up the default open file dialog "

       "Changed by K3/EES5-Mg, 28.02.96"

    self hideReadonly;

         shareAware;

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

    self defFilter isNil ifTrue:[ self defFilter: '*.*'].

    self open.

!

dapasSaveFile

        "Brings up the file save dialog."

       "Changed by K3/EES5-Mg, 28.02.96"

    self hideReadonly;

         overwritePrompt;

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

    self save.

!

openFileXml

        "Brings up the default open file dialog "

       "Changed by K3/EES5-Mg, 28.02.96"

       "Changed by GS-EC/EES3 - Bernd Eisenmann, 14.08.03"

    self hideReadonly;

         shareAware;

         addFilter: '*.xml' description: 'XML-Datei'.

    self defFilter isNil ifTrue:[ self defFilter: '*.*'].

    self open.

!

openFileXmlZip

        "Brings up the default open file dialog "

       "Changed by K3/EES5-Mg, 28.02.96"

       "Changed by GS-EC/EES3 - Bernd Eisenmann, 14.08.03"