"

 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'

	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.

"

! !

!Win32FileDialog class methodsFor:'initialization'!

startUp

        "Private - Initialize the class variables.  This is called

         during startup."

    InitialDirectory := Directory pathName: Disk drivePathName.

! !

!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:'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 isNil ifTrue:[

        ^ Filename currentDirectory pathName asFilename

    ].

    ^ 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"

    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, #[0] asString, assoc key , #[0] asString. 

    ].

    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