equal
deleted
inserted
replaced
4868 |
4868 |
4869 "Opens a windows native file dialog without blocking stx for an OpenFilenameStructure stored in an externalAddress. |
4869 "Opens a windows native file dialog without blocking stx for an OpenFilenameStructure stored in an externalAddress. |
4870 openFilenameStructureExternalAddress is an integer representing it's address" |
4870 openFilenameStructureExternalAddress is an integer representing it's address" |
4871 |
4871 |
4872 | rslt | |
4872 | rslt | |
|
4873 |
4873 %{ /* STACK: 32000*/ |
4874 %{ /* STACK: 32000*/ |
4874 |
4875 |
4875 INT __address; |
4876 void *__address; |
4876 int __rslt; |
4877 int __rslt; |
4877 |
4878 |
4878 __address = __intVal(openFilenameStructureExternalAddress); |
4879 if (__isExternalAddressLike(openFilenameStructureExternalAddress) |
4879 // do not cast to INT - will loose sign bit then! |
4880 || __isExternalBytesLike(openFilenameStructureExternalAddress)){ |
4880 __rslt = __STX_API_CALL1( "GetOpenFileName", (void *)GetOpenFileName, (void *)(__address)); |
4881 __address = __externalAddressVal(openFilenameStructureExternalAddress); |
4881 |
4882 __rslt = __STX_API_CALL1( "GetOpenFileName", (void *)GetOpenFileName, __address); |
4882 if (__rslt == TRUE) { |
4883 |
4883 rslt = true; |
4884 if (__rslt == TRUE) { |
4884 } else { |
4885 rslt = true; |
4885 rslt = false; |
4886 } else { |
|
4887 rslt = false; |
|
4888 } |
4886 } |
4889 } |
4887 %}. |
4890 %}. |
|
4891 rslt isNil ifTrue:[ self primitiveFailed ]. |
4888 ^ rslt |
4892 ^ rslt |
|
4893 |
|
4894 "Modified (format): / 11-02-2014 / 21:18:02 / cg" |
4889 ! |
4895 ! |
4890 |
4896 |
4891 getSaveFilename: openFilenameStructureExternalAddress |
4897 getSaveFilename: openFilenameStructureExternalAddress |
4892 |
4898 |
4893 "Opens a windows native file dialog without blocking stx for an OpenFilenameStructure stored in an externalAddress. |
4899 "Opens a windows native file dialog without blocking stx for an OpenFilenameStructure stored in an externalAddress. |
4895 |
4901 |
4896 | rslt | |
4902 | rslt | |
4897 |
4903 |
4898 %{ /* STACK: 32000*/ |
4904 %{ /* STACK: 32000*/ |
4899 |
4905 |
4900 INT __address; |
4906 void *__address; |
4901 int __rslt; |
4907 int __rslt; |
4902 |
4908 |
4903 __address = __intVal(openFilenameStructureExternalAddress); |
4909 if (__isExternalAddressLike(openFilenameStructureExternalAddress) |
4904 // do not cast to INT - will loose sign bit then! |
4910 || __isExternalBytesLike(openFilenameStructureExternalAddress)){ |
4905 __rslt = __STX_API_CALL1( "GetSaveFileName", (void *)GetSaveFileName, (void *)(__address)); |
4911 __address = __externalAddressVal(openFilenameStructureExternalAddress); |
4906 |
4912 __rslt = __STX_API_CALL1( "GetSaveFileName", (void *)GetSaveFileName, __address); |
4907 if (__rslt == TRUE) { |
4913 |
4908 rslt = true; |
4914 if (__rslt == TRUE) { |
4909 } else { |
4915 rslt = true; |
4910 rslt = false; |
4916 } else { |
|
4917 rslt = false; |
|
4918 } |
4911 } |
4919 } |
4912 %}. |
4920 %}. |
|
4921 rslt isNil ifTrue:[ self primitiveFailed ]. |
4913 ^ rslt |
4922 ^ rslt |
|
4923 |
|
4924 "Modified: / 11-02-2014 / 21:18:20 / cg" |
4914 ! ! |
4925 ! ! |
4915 |
4926 |
4916 !Win32OperatingSystem class methodsFor:'file queries'! |
4927 !Win32OperatingSystem class methodsFor:'file queries'! |
4917 |
4928 |
4918 caseSensitiveFilenames |
4929 caseSensitiveFilenames |
17486 ! ! |
17497 ! ! |
17487 |
17498 |
17488 !Win32OperatingSystem class methodsFor:'documentation'! |
17499 !Win32OperatingSystem class methodsFor:'documentation'! |
17489 |
17500 |
17490 version |
17501 version |
17491 ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.489 2014-01-29 16:08:17 stefan Exp $' |
17502 ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.490 2014-02-11 20:18:49 cg Exp $' |
17492 ! |
17503 ! |
17493 |
17504 |
17494 version_CVS |
17505 version_CVS |
17495 ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.489 2014-01-29 16:08:17 stefan Exp $' |
17506 ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.490 2014-02-11 20:18:49 cg Exp $' |
17496 ! |
17507 ! |
17497 |
17508 |
17498 version_SVN |
17509 version_SVN |
17499 ^ '$Id: Win32OperatingSystem.st,v 1.489 2014-01-29 16:08:17 stefan Exp $' |
17510 ^ '$Id: Win32OperatingSystem.st,v 1.490 2014-02-11 20:18:49 cg Exp $' |
17500 |
17511 |
17501 ! ! |
17512 ! ! |
17502 |
17513 |
17503 |
17514 |
17504 Win32OperatingSystem initialize! |
17515 Win32OperatingSystem initialize! |