WinWorkstation.st
changeset 3526 e9c3f08c2305
parent 3525 0afbeec72edb
child 3544 6c59714157cd
equal deleted inserted replaced
3525:0afbeec72edb 3526:e9c3f08c2305
 12064 
 12064 
 12065     if (__isExternalAddress(ownerId)) {
 12065     if (__isExternalAddress(ownerId)) {
 12066 	hWndOwner = _HWNDVal(ownerId);
 12066 	hWndOwner = _HWNDVal(ownerId);
 12067     }
 12067     }
 12068 
 12068 
 12069     ofn.lStructSize = sizeof(ofn);
 12069     ofn.lStructSize = OPENFILENAME_SIZE_VERSION_400; // sizeof(ofn);
 12070     ofn.hwndOwner = hWndOwner;
 12070     ofn.hwndOwner = hWndOwner;
 12071     ofn.hInstance = NULL;
 12071     ofn.hInstance = NULL;
 12072 
 12072 
 12073     if ((filterArrayOrNil != nil) && __isArray(filterArrayOrNil)) {
 12073     if ((filterArrayOrNil != nil) && __isArray(filterArrayOrNil)) {
 12074 	char *dst = filterBuffer;
 12074 	char *dst = filterBuffer;
 12215 	    }
 12215 	    }
 12216 	    ofn.Flags |= flagVal;
 12216 	    ofn.Flags |= flagVal;
 12217 	}
 12217 	}
 12218     }
 12218     }
 12219 
 12219 
 12220     ofn.Flags = 0
       
 12221 		| OFN_ENABLESIZING
       
 12222 		| OFN_HIDEREADONLY    
       
 12223 		| OFN_EXPLORER
       
 12224 #ifdef OFN_ENABLESIZING
       
 12225 		| OFN_ENABLESIZING
       
 12226 #endif
       
 12227 		;
       
 12228 
       
 12229     if (isSaveDialog == true) {
 12220     if (isSaveDialog == true) {
 12230 	if (blocking == true) {
 12221 	if (blocking == true) {
 12231 	    __rslt = GetSaveFileName(&ofn);
 12222 	    __rslt = GetSaveFileName(&ofn);
 12232 	} else {
 12223 	} else {
 12233 	    __rslt = __STX_API_CALL1( (void *)GetSaveFileName, (void *)(&ofn));
 12224 	    __rslt = __STX_API_CALL1( (void *)GetSaveFileName, (void *)(&ofn));
 12315 	inDirectory:dirPathOrNil 
 12306 	inDirectory:dirPathOrNil 
 12316 	initialAnswer:initialOrNil 
 12307 	initialAnswer:initialOrNil 
 12317 	flags:flags
 12308 	flags:flags
 12318 	filter:filterArrayOrNil 
 12309 	filter:filterArrayOrNil 
 12319 	extension:extensionOrNil
 12310 	extension:extensionOrNil
 12320 	blocking:(OperatingSystem isMSWINDOWSNTlike not)
 12311 	blocking:false
 12321 
 12312 
 12322     "
 12313     "
 12323      Display 
 12314      Display 
 12324 	nativeFileDialogFor:nil save:false
 12315 	nativeFileDialogFor:nil save:false
 12325 	title:'Test OpenFile Dialog'
 12316 	title:'Test OpenFile Dialog'
 14231 ! !
 14222 ! !
 14232 
 14223 
 14233 !WinWorkstation class methodsFor:'documentation'!
 14224 !WinWorkstation class methodsFor:'documentation'!
 14234 
 14225 
 14235 version
 14226 version
 14236     ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.204 2001-10-15 08:14:23 cg Exp $'
 14227     ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.205 2001-10-15 08:43:49 cg Exp $'
 14237 ! !
 14228 ! !
 14238 WinWorkstation initialize!
 14229 WinWorkstation initialize!